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PREFACE 



This Program Logic Manual (PLM) is a guide 
to the IBM System/360 Disk Operating 
System,, System Control Programs, Linkage 
Editor, and Librarian; it supplements the 
program listings by providing descriptive 
text and flowcharts.. 



Organization, function, and format of 
system residence. 



Generation and function of the 
supervisor control program,, including 
physical IOCS. 



PREREQUISITE AND RELATED LITERATURE 



Prerequisite and related publications that 
will aid in the use of this manual are: 

• IBM System/ 360 Principles of Operation , 
Form A22-6821 

• IBM System/360 Disk Operating 
System: System Control and System 
Service Programs , Form C24-5036 

• IBM System/36 Disk Operating 
System: Supeiryisor and Input/Output 
Macros, Form C24-5037 

• IBM System/360 Disk Operating 
System: System Generation and 
Maintenance,, Form C24-5033 

• IBM Svstem/360 Disk Operating 

System: Operating Guide , Form C24-5022 

Closely related publications are: 

• IBM System/36 Disk Operating 

System; Data Management Concepts , Form 
C24-3427 

• IBM System/ 360 Disk and Tape Operating 
Systems: Assembler Specifications , 
Form C24-3414- 

[Titles and Abstracts of other related 
publications are listed in the IBM 
System/360 Bibliography , Form A22-6822, 



ORGANIZATION AND USE OF THIS PUBLICATION 



This manual presents the components of the 
DOS System Control Program in a logical 
manner that emphasizes: 

• Interrelationship of the components in 
an operating system environment - 



• Function of the system control 
programs, IPL and Job Control. 

• Function and interrelationship of the 
Linkage Editor program and the 
Librarian programs. 



The first three sections provide 
background material essential for an 
understanding of the individual components 
of the DOS System Control Program. 

This manual is organized to provide 
quick access to the detailed information on 
the internal logic of all components of the 
DOS System Control Program. Cross 
referencing is provided as follows: 

1. The label list. Appendix A, provides a 
cross reference between the listing and 
the detail (routine) level flowcharts. 

2. Error messages. Appendix F, are cross 
referenced to the program phase and the 
detail (routine) level flowchart. 

3. Program level flowcharts refer to the 
detail (routine) level flowcharts. 

4. Detail (routine) level flowcharts, 
where applicable, refer to the program 
level flowcharts.. 

The organization of this manual is 
adaptable to the various ways in which it 
will be used: 

1. Sections 1 through 3 may be read as an 
introduction to the DOS System Control 
Program. 

2. Sections 4 through 8 may be read, 
either selectively or completely, for 
program level concepts. 

3. The reader may choose his own point of 
entry into the manual based on his 
individual qualifications. Figure 1 is 
an example of how the various parts of 
the manual may be used in satisfying a 
particular situation. 
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Figure 1. Example of PLM Usage 
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STRUCTURE 



This manual contains eight sections and 
seven appendixes. The function of each 
section and appendix is presented below. 



General Information Sections 



Section 1: Provides an introduction to the 
IBM System/360 Disk Operating System, 
System Control Programs. 

Section 2; Provides information about the 
organization of system residence (SYSRES) . 

Section 3: Provides information about 
supervisor generation. This section 
includes a discussion of: 

1. Supervisor generation macros. 

2. Common information that is referenced 
from other sections, such as: 

a. Supervisor storage organization 
(MAP) 

b. Communications region 

c. Device dependent codes 

d. I/O Tables 

• LUB Table 

• PUB Table 

• TEB Table 

• JIB Table 

• Number in class list (NICL) 

• First in class list (FICL) 

• First on channel list (FOCL) 

• First available pointer (FAVP) 

e. Program Information Block (PIB) 

f . Disk Information Block (DIB) 

Note: The background information contained 
in Sections 1 through 3 is essential 
for an understanding of the 
individual components presented in 
subsequent sections. 



Program Information Sections 



Sections 4 through 8 contain program level 
discussions of the system control programs. 
These discussions contain the following 
information when applicable: 

1. Program introduction 



2. Interface with other programs 

3. Program flow (phase to phase) 

4. I/O flow 

5. Storage maps 

6. Key concepts 

Note: The program level flowchart for a 
specific program is located 
immediately following the program 
level information for that program. 
In some cases, it was necessary to 
group the program level flowcharts 
immediately following a group of 
programs. This is particularly true 
in the case of the B-transients and 
the A-transients in Section 4. 

Section 4: Provides information about the 
following programs : 

1. Initial Program Load (IPL) 

2. Job control ($JOBCTLA) 

3. Supervisor Control ($$A$SUP1) 

4. A-transients 

5. B-transients 

a. Foreground Initiator 

b. Nonresident Attention Routine 

c. Program Terminator 

Section 5: Provides information about the 
Linkage Editor program ($LNKEDT). 

Section 6; Provides information about the 
following Librarian Maintenance programs: 

1. Common Liorary Maintenance program 
(MAINT) 

2. Automatic Condense Limits program 
(MAINTCL) 

3. Core Image Library Maintenance program 
(MAINTC2) 

4. Relocatable Library Maintenance program 
(MAINTR2) 

5. Source Statement Library Maintenance 
program (MAINTS2) 

6. Update Transient^ Library-Routine, and 
Foreground Directories program 
($MAINEOJ) 

7. Library Condense program (MAINTCN) 

8. System Reallocation program (MAINT A) 



Section 7; Provides information about the 
Librarian Organization program CORGZ (Copy 
System program) . 



Section 8; 



Provides information about the 



following Librarian Service programs: 

1. Directory Service program (DSERV) . 

2. Relocatable Library Service program 
(RSERV) . 

3. Source Statement Library Service 
program (SSERV) . 



Appendixes 



Appendix A; Contains the label list for 
all programs in this manual. The structure 
of this appendix is as follows: 

1. Labels are sequenced alphamerically 
within a phase. 

2. Phases are sequenced alphamerically 
within a program. 

3. Programs are ordered to reflect the 
structure of this manual (Sections 4 

through 8, IPL^ Job Control, , DSERV, 

RSERV, SSERV) . 

A label may be cross referenced to the 
detail (routine) level flowchart that 
contains the label or it may contain the 
notation "Listing Only." The latter 
notation designates that this label does 
not appear in any flowchart. However, the 
comment following this label presents some 
information that is not readily clear in 
the listing. 

Appendix B: Contains a list of flowchart 
abbreviations that have been established as 
standard within this manual. 

Appendix C; Contains an explanation of the 
flowchart symbols used in this manual. 



Appendix D: 
printouts. 



Contains sample LISTIO 



Appendix E: Contains a detailed 
description of ESD processing in the 
Linkage Editor program. It is to be used 
as a supplement for the Linkage editor 
charts RA-RJ in Appendix H. 



Appendix F; Contains an error message 
cross reference that identifies the program 
phase (s) and the detail (routine) level 
chart (s) associated with a specific error 
message. 

Appendix G; Definition of PIK (Program 
Interrupt Key), LTK (Logical Transient 
Key) , RIK (Requestor I/O Key) , and FIK 
(Fetch I/O Key) . 

Appendix H; Contains the detail (routine) 
level flowcharts for all programs in this 
manual. Flowchart titles, where 
applicable, refer to the program level 
chart associated with the detail chart,. An 
example of this upward cross referencing 
follows : 

Chart SH. Map Processor (Refer to 

Linkage Editor - Chart 36) 

Cross reference from the program level 
chart to a detail level chart is provided 
in the program level chart. Each block in 
a program level chart contains a detail 
chart designation in the block title line. 
An example of this downward cross 
referencing follows: 

STMTIN 

r 1 

I CONTROL STATEMENT READ Chart BB | 
(: ^ 

I I 

I Where: BB represents the detail level | 
I flowchart of this routine. | 

L J 

It is recommended that all the 
flowcharts in Appendix H be removed and 
placed in a separate binder. This 
procedure, if followed, provides the reader 
with access to the flowcharts and the rest 
of the manual with a minimum of page 
turning. It also divides the manual into 
two, easier to handle, parts. 
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Control, Chart 05 313 

Chart BX. DVCUP Statement Processor — 
$JOBCTLD; Refer to Job Control Chart 
05 314 

Chart BY. ASSGN Statement Processor- 
$JOBCTLD (Scan and Check First and 
Second Operand; Part 1 of 10) ; Refer 
to Job Control, Chart 04 315 

Chart BZ. ASSGN Statement Processor- 
$JOBCTLD (Cross Assignment 
Verification) ; (Part 2 of 10) ; R^f er 
to Job Control, Chart 04 316 

Chart CA. ASSGN Statement Processor- 
$JOBCTLD (Vbrify and Store UA or IGN 
Assignment; (Part 3 of 10) ; Refer to 
Job Control, Chart 04 317 

Chart CB. ASSGN Statement Processor- 
$JOBCTLD (Complete Scan of Operands; 
Part 4 of 10) ; Refer to Job Control, 
Chart 04 318 

Chart CC. ASSGN Statement Processor- 
$JOBCTLD (Final Verification for 
Normal Assignment; Part 5 of 10) ; 
Refer to Job Control, Chart 04 319 

Chart CD. ASSGN Statement Processor- 
$JOBCTLD (Make Normal Standard 
Assignment; Part 6 of 10); Refer to 
Job Control, Chart 04 320 
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Chart CE. ASSGN Statement Processor- 
$JOBCTLD (Make Normal Temporary 
Assignment; Part 7 of 10) ; Refer to 
Job Control, Chart 04 321 

Chart CF, ASSGN Statement Processor- 
$JOBCTLD (Make Alternate Assignment; 
Part 8 of 10); Refer to Job Control, 
Chart 04 322 

Chart CG. ASSGN Statement Processor- 
$JOBCTLD (Terminate Assignment and 
Open Files — Part 1 of 2) ; Refer to 
Job Control, Chart 04 (Part 9 of 10). .323 

Chart CH. ASSGN Statement Processor- 
$JOBCTLD (Terminate Assignment and 
Open Files — Part 2 of 2) ; Refer to 
Job Control, Chart 04 (Part 10 of 10) .324 

Chart CJ. RESET Statement Processor- 
$J0BCTLD (Part 1 of 2); Refer to Job 
Control, Chart 05 325 

Chart CK. RESET Statement Processor- 
$J0BCTLD (Part 2 of 2) ; Refer to Job 
Control, Chart 05 326 

Chart CL. Subroutine — $J0BCTLD 
(CLOSES); Refer to Job Control, 
Charts 04, 05 327 

Chart CM. Subroutines — $JOBCTLD 
(TXCUU, TXCUU3, HEXCON and CLOSED; 
Refer to Job Control, Charts 04, 05 . .328 

Chart CN. Subroutines — $JOBCTLD 
(SCNLUB, SCNJIB, and IHKOPN) ; Refer 
to Job Control, -Charts 04, 05 329 

Chart CP. Subroutines — $JOBCTLD 
(DVCDN3, UNPA, UNPAl , and UNAENT) ; 
Refer to Job Control, Charts 04, 05 . .330 

Chart CQ. Subroutines — $JOBCTLD 
(SKIPLN, OUTPUT, OUTPUTS, and 
OUTPUTl) ; Refer to Job Control, 
Charts 04, 05 331 

Chart CR. Subroutines — $JOBCTLD 
(GETLAN, INITL, CHKRNG, and NUMCON) ; 
Refer to Job Control, Charts 04, 05 . .332 

Chart CS. Subroutine— $JOBCTLD 
(SYSXXX) ; Refer to Job Control, 
Charts 04, 05 333 

Chart CT. Subroutines — $JOBCTLD 
(EXCP, EXCPROG, EXCPROGl, and 
SVCBTRANS) ; Refer to Job Control, 
Charts 04, 05 334 

Chart CU. Subroutines — $JOBCTLD 
(RSTSTD, and GET JIB) ; Refer to Job 
Control, Charts 04, 05 335 

Chart CV. Subroutine — $JOBCTLD 
(SFPPE; Part 1 of 3) ; Refer to Job 
Control, Charts 04, 05 336 

Chart CW. Subroutine — $JOBCTLD 
(SFPPE; Part 2 of 3) ; Refer to Job 
Control, Charts 04, 05 337 

Chart ex. Subroutine — $JOBCTLD 
(SFPPE; Part 3 of 3) ; Refer to Job 
Control, Charts 04, 05 338 

Chart c:y. Error Routines — $JOBCTLD 
(ILUS; INDVTP, TXCUUl+8, IVDS, SFNC, 
TIAERR, CNIOAG, FNIOAG, NOMRJB, 
ASSGN43, and ERRRTN) ; Refer to Job 
Control, Charts 04, 05 339 

Chart DA. CANCEL, and STOP Statement 
Processors — $JOBCTLG; Refer to Job 
Control, Charts 07, 08 340 



Chart DB. EOJ (/S) Statement 
Processor- $JOBCTLG (Part 1 of 2) ; 
Refer to Job Control, Chart 07 341 

Chart DC. EOJ (/S) Statement 
Processor- $JOBCTLG (Part 2 of 2) ; 
Refer to Job Control, Chart 07 342 

Chart DD. EXEC Statement Processor- 
$JOBCTLG (Part 1 of 4); Refer to Job 
Control, Chart 08 \ 343 

Chart DE. EXEC Statement Processor- 
$JOBCTLG (Part 2 of 4) ; Refer to Job 
Control, Chart 08 344 

Chart DF. EXEC Statement Processor- 
$JOBCTLG (Part 3 of 4) ; Refer to Job 
Control, Chart 08 345 

Chart DG. EXEC Statement Processor- 
$J0BCTLG (Part 4 of 4); Refer to Job 
Control, Chart 08 346 

Chart DH. PAUSE, LOG and NOLOG 
Statement Processors — $JOBCTLG; 
Refer to Job Control, Chart 08 347 

Chart DJ. OPTION Statement Processor- 
$JOBCTLG (Part 1 of 3); Refer to Job 
Control, Chart 06 348 

Chart DK. OPTION Statement Processor- 
$JOBCTLG (Part 2 of 3); Refer to Job 
Control, Chart 06 349 

Chart DL. OPTION Statement Processor- 
$JOBCTLG (Part 3 of 3) ; Refer to Job 
Control, Chart 06 350 

Chart DM. ALLOC Statement Processor- 
$JOBCTLG (Part 1 of 3) ; Refer to Job 
Control, Chart 08 351 

Chart DN. ALLOC Statement Processor- 
$JOBCTLG (Part 2 of 3); Refer to Job 
Control, Chart 08 352 

Chart DP. ALLOC Statement Processor 
(Part 3 of 3) and MAP Statement 
Processor — $JOBCTLG; Refer to Job 
Control, Chart 08 353 

Chart DQ. JOB Statement Processor- 
$JOBCTLG (Part 1 of 2); Refer to Job 
Control, Chart 07 354 

Chart DR. JOB Statement Processor- 
$JOBCTLG (Part 2 of 2); Refer to Job 
Control, Chart 07 355 

Chart DS. Subroutines — $JOBCTLG 
(OPNLNK, RSTLAD, CHKLNK, lOROUT, and 
GTMXHN) ; Refer to Job Control, Charts 
06-08 356 

Chart DT. Subroutines — $JOBCTLG 
(RASCAN, LUBSCN, GETPUB, and JIBSCN) ; 
Refer to Job Control, Charts 06-08. . .357 

Chart DUo Subroutines — $JOBCTLG 
(SCNINT, and UASCAN) ; Refer to Job 
Control, Charts 06-08 358 

Chart DV. Subroutines-- $JOBCTLG 
(GETIME, TIMOUT, RSTASG, and RSPASG) ; 
Refer to Job Control, Charts 06-08. . .359 

Chart DW. Subroutine — $JOBCTLG 
(LBLOUT); Refer to Job Control, 
Charts 06-08 360 

Chart DX. Subroutines — $JOBCTLG 
(CNVBCD, CHGSTT, STUCRL, STUSPC, and 
STUFIU); Refer to Job Control, Charts 
06-08 361 



12 



DOS System Control 



Chairt DY. Error Routines — $JOBCTLG 
(LAXERR, PNPERR, NDTERR, NVAERR, 
OTSERR, and lANERR) ; Refer to Job 
Control, Charts 06-08 362 

Chart. EA. RELSE, and HOLD Statement 
Processors — $J0BCTLJ; Refer to Job 
Control, Chart 11 363 

Chart EB. UCS Statement Processor- 
$J0BCTLJ (Part 1 of 2); Refer to Job 
Control, Chart 11 364 

Chart EC, UCS Statement Processor- 
$J0BCTLJ (Part 2 of 2) ; Refer to Job 
control. Chart 11 365 

Chart ED. ACTION, and INCLUDE 
Statement Processors — $J0BCTLJ; 
Refer to Job Control, Chaiyt 09 366 

Chart EE. MTC Statement Processor — 
$J0BCTLJ; Refer to JoId Control, Chart 
09 367 

Chart EF. LBLTYP, and VOL Statement 
Processors — $J0BCTLJ; Refer to Job 
Control, Chairt 10 368 

Chart EG. DLAB Statement Processor — 
$J0BCTLJ; Refer to Job Control, Chart 
10 369 

Chart EH. XTENT Statement Processor- 
$JOBCTLJ (Part 1 of 2) ; Refer to Job 
Control, Chart 10 370 

Chart EJ. XTENT Statement Processor- 
$JOBCTLJ (Part 2 of 2) ; Refer to Job 
Control, Chart 10 371 

Chart EK. TPLAB, and DATE Statement 
Processors — $JOBCTLJ; Refer to Job 
Control, Charts 09, 10 372 

Chart EL. SET Statement Processor — 
$J0BCTLJ; Refer to Job Control, Chart 
09. . « 373 

Chart EM. UPSI Statement Processor — 
$JOBCTLJ; Refer to Job Control, Chart 
09 374 

Chaii: EN. RSTRT Statement Processor — 
$JOBCTLJ; Refer to Job Control, Chart 
09 375 

Chart EP. Subroutines — $JOBCTLJ 
(LBLOUT, and CONCAT) ; Refer to Job 
control. Charts 09-11 376 

Chart EQ. Subroutines — $J0BCTLJ 
(TXCUU, HEXCON, and CNUNCO) ; Refer to 
Job Control, Charts 09-11 377 

Chart ER. Subroutines — $JOBCTLJ 
(UPDSAV, LNKOUT, NUMCON, and GTMXHN) ; 
Refer to Job Control, Charts 09-11. . .378 

Chart ES. Subroutines — $JOBCTLJ 
(DOP34, XT0P12, XTOP34, and BINCON) ; 
Refer to Job Control, Charts 09-11. . .379 

Chart ET. Error Routines — $JOBCTLJ 
(NDTERR, NLUERR, DNEERR, NDSERR, 
INAERR, NLSERR, LAXERR, and OTSERR) ; 
Refer to Job Control, Charts 09-11. . .380 

Chart EV. Initialize and Return to 
Fetching Routine — $$BLSTI0; Refer to 
Job Control, Chart 05 381 

Chart EW. Build Printline in Workarea 
Subroutine — $$BLSTIO (PUIF) ; Refer 
to Job Control, Chart 05 . .382 

Chart EX. Identify the LISTIO Operand 
Subroutine— $$BLSTI0 (FNDARG) ; Refer 
to Job Control, Chart 05 383 



Chart EY, Build Header Subroutines — 
$$BLSTIO (PSgRTN, and LHRTN) ; Refer 
to Job Control, Chart 05 384 

Chart EZ. Build Print Line 
Subroutines-^ $$BLSTIO (SOLB, and 
SEUOB) ; Refer to Job Control, Chart 
05 385 

Chart FA. SUPVR Macro — General 
Entry; Refer to Supervisor, Chart 12. .386 

Chart FB. FOPT Macro — General 
Cancels and Program Check without 
User PC Routine; Refer to Supervisor, 
Charts 14 and 16 387 

Chart FC. FOPT Macro — General Cancel 
Subroutine; Refer to Supervisor, 
Chart 14 388 

Chart FD. FOPT Macro — General Exits; 
Refer to Supervisor, Chart 12 389 

Chart FE. FOPT Macro — General Entry; 
Refer to Supervisor, Chart 16 390 

Chart FF. SGTCHS Channel Scheduler 
(Part 1 of 3) ; Refer to Supervisor, 
Chart 15 391 

Chart FG. SGTCHS Channel Scheduler 
(Part 2 of 3) ; Refer to Supervisor, 
Chart 15 392 

Chart FH. SGTCHS Channel Scheduler 
(Part 3 of 3) ; Refer to Supervisor, 
Chart 15 393 

Chart FJ. SGTCHS Start I/O— No 
Options; Refer to Supervisor, Chart 
15 394 

Chart FK. SGTCHS Start I/O — Maximum 
Options (Part 1 of 3) ; Refer to 
Supervisor, Chart 15 395 

Chart FL. SGTCHS Start I/O — Maximum 
Options (Part 2 of 3); Refer to 
Supervisor, Chart 15 396 

Chart FM. SGTCHS Start I/O— Maximum 
Options (Part 3 of 3) ; Refer to 
Supervisor, Chart 15 397 

Chart FN. SGTCHS Macro— I/O 
Interrupt (Part 1 of 5) ; Refer to 
Supervisor, Chart 15 398 

Chart FP. SGTCHS Macro— I/O 
Interrupt (Part 2 of 5) ; Refer to 
Supervisor, Chart 15 399 

Chart FQ. SGTCHS Macro— I/O 
Interrupt (Part 3 of 5) ; Refer to 
Supervisor, Chart 15 400 

Chart FR. SGTCHS Macro — I/O 
Interrupt (Part 4 of 5) ; Refer to 
Supervisor, Chart 15 401 

Chart FS. SGTCHS Macro — I/O 
Interrupt (Part 5 of 5) ; Refer lo 
Supervisor, Chart 15 402 

Chart FT. SGUNCK Macro— Unit Check 
Routine Entries; Refer to Supervisor, 
Chart 17 403 

Chart FU. SGUNCK Macro— Unit Check 
Routine Build Error Queue Entry; 
Refer to Supervisor, Chart 17 , 404 

Chart FV. SGUNCK Macro Error Recovery 
Exits (Part 1 of 2) ; Refer to 
Supervisor, Chart 17. ....... . .405 

Chart FW. SGUNCK Macro Error Recovery 
Exits (Part 2 of 2) ; Refer to 
Supervisor, Chart 17 406 
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Chart FX. SGUNCK Macro — DEQUER and 

RSTREG Subroutines; Refer to 

Supervisor, Chart 17 407 

Chart FY. SGUNCK Macro — Error Start 

I/O Subroutine; Refer to Supervisor, 

Chart 17 408 

Chart FZ. SGUNCK Macro — Quiesce I/O 

Task; Refer to Supervisor, Chart 17 . .409 
Chart GA. SGDFCH Macro— Fetch with 

MPS Option (Paii: 1 of 3); Refer to 

Supervisor, Chart 14 410 

Chart GB. SGDFCH Macro — Fetch with 

MPS Option (Part 2 of 3) , Refer to 

Supervisor, Chart 14 411 

Chart GC. SGDFCH Macro — Fetch with 

MPS Option (Pairt 3 of 3); Refer to 

Supervisor, Chart 14 412 

Chart GD. SGDFCH Macro — Fetch with 

Batch Only Option (Part 1 of 2) ; 

Refer to Supervisor, Chart 14 413 

Chart GF. SGDFCH Macro — Fetch with 

Batch Only Option (Part 2 of 2) ; 

Refer to Supervisor, Chart 14 414 

Chart GG. SGDFCH Macro- RE ADUPDT and 

RSTPUB Subroutine; Refer to 

Supervisor, Chart 14 415 

Chart GH. SGSVC Macro — SVC Interrupt 

Handler; Refer to Supervisor, Chart 

14 416 

Chart GJ. SGSVC Macro— SVC's 1, 5, 

12, and 13; Refer to Supervisor, Chart 

14 417 

Chart GK. SGSVC Macro — SVC's 2 and 

11 with MPS Option; Refer to 

Supervisor, Chart 14 418 

Chart GL. SGSVC Macro — SVC's 2 and 

11 with Batch Only Option; Refer to 

Supervisor, Chart 14 419 

Chart GM. SGSVC Macro — SVC's 3, 4, 

and 7; Refer to Supervisor, Chart 14. .420 
Chart GN. SGSVC Macro — SVC's 's, 9, 

and 10; Refer to Supervisor, Chart 14 .421 
Chart GP. SGSVC Macro — SVC's 22, 23, 

24, and 26; Refer to Supervisor, 

. Chart 14 4 22 

Chart GQ. SGSVC Macro — Program Check 

Interrupt, SVC's 17 and 18; Refer to 

Supervisor, Chart 14 423 

Chart GR. SGSVC Macro — Program Check 

Interrupt; Refer to Supervisor, Chart 

16 424 

Chart GS. SGSVC Macro — External 

Interrupt with User OC or IT 

Routines; Refer to Supervisor, Chart 

16 425 

Chart GT. SGSVC Macro — External 

Interrupt Subroutines; Refer to 

Supervisor, Chart 16 4 26 

Chart GU. SGSVC Macro — Program Check 

Interrupt; Refer to Supervisor, Chart 

14 427 

Chart GV. SGDSK Macro-Resident Disk 

Error Recovery (Part 1 of 2) ; Refer 

to Supervisor, Chart 17 428 

Chart GW. SGDSK Macro — Resident Disk 

Error Recovery (Part 2 of 2) ; Refer 

to Supervisor, Chart 17 429 



Chart GX. SGTCON Macro — Resident 
Attention and SVEREG-VLDADR 
Subroutines; Refer to Supervisor, 
Chart 13. . • 430 

Chart GY. SEND Macro — LTA Subroutine .431 

Chart HA, ERP Monitor (Part 1 of 2); 
($$ANERRA); Refer to Supervisor,, 
Chart 18 432 

Chart HB. ERP Monitor (Part 2 of 2; 
$$ANERRA) ; Refer to Supervisor, Chart 
18 433 

Chart HC. 2311 Nonresident ERP (Part 

1 of 2) $$ANERRB; Refer to Supervisor, 
Chart 18 434 

Chart HD. 2311 Nonresident ERP (Part 

2 of 2) $$ANERRB; Refer to 
Supervisor, Chart 18 435 

Chart HE. 2400 ERP — Error Analysis 
and Selected Errors (Part 1 of 2) 
$$ANERRD; Refer to Supervisor, Chart 
18 - 436 

Chart HF. 2400 ERP — Error Analysis 
and Selected Errors (Part 2 of 2) 
$$ANERRD; Refer to Supervisor, Chart 
18 437 

Chart HG. 2400 ERP Selected Errors 
(Part 1 of 3) $$ANERRE; lefer to 
Supervisor, Chart 18 438 

Chart HH. 2400 ERP Selected Errors 
(part 2 of 3) $$ANERRE; Refer to 
Supervisor, Chart 18 439 

Chart HJ. 2400 ERP Selected Errors 
(Part 3 of 3) $$ANERRE; Refer to 
Supervisor, Chart 18 440 

Chart HK. 2400 ERP Data Check (Part 1 
of 3) $$ANERRF; Refer to Supervisor, 
Chart 18 441 

Chart HL. 2400 ERP Data Check (Part 2 
of 3) $$ANERRF; Refer to Supervisor, 
Chart 18 ' 442 

Chart HM. 2400 ERP Data Check (Part 3 
of 3) $$ANE'RRF; Refer to Supervisor, 
Chart 18 443 

Chart HN. 2321 ERP Error Analysis 
(Part 1 of 3) $$ANERRG; Refer to 
Supervisor Chart 18 444 

Chart HP. 2321 ERP Error Analysis 
(Part 2 of 3) $$ANERRG; Refer to 
Supervisor, Chart 18 445 

Chart HQ 2321 ERP Error Analysis 
(Part 3 of 3) $$ANERRG; Refer to 
Supervisor, Chart 18 446 

Chart HR. 2321 ERP Track Condition 
Check ($$ANERRH); Refer to 
Supervisor, Chart 18 447 

Chart HS. 2321 ERP— Data 
Check/Missing Address Marker 
($$ANERRI); Refer to Supervisor, 
Chart 18 448 

Chart HT. 2321 ERP — NRF/Missing 
Address Marker, NRF/Seek Check (Part 

1 of 2) $$ANERRJ; Refer to 
Supervisor, Chart 18 449 

Chart HU. 2321 ERP NRF/Missing 
Address Marker, NRF/Seek Check (Part 

2 of 2) $$ANERRJ; Refer to 
Supervisor, Chart 18 450 
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Chart EV. 2321 ERP — Continuation of 
$$ANERRJ ($$ANERRK); Refer to 
Supervisor, Chart 18 451 

Chart JA. Message Writer — Determine 
Action Type and Targets; $$AN£RRjyi; 
Refer to Supervisor, Chart 19 452 

Chart JB. Message Writer — Determine 
Ownership (Part 1 of 2; $$ANERRN; 
Refer to Supervisor Chart 19. . . . - .4 53 

Chart JC. Message Writer — Determine 
Ownership (Part 2 of 2) $$ANERRN; 
Refer to Supervisor, Chart 19 454 

Chart JD. Message Writer — Format 
Message; $$ANERRO; Refer to 
Supervisor, Chart 19 455 

Chart JE. Message Writer — Output 
Message; $$ANERRP ; Refer to 
Supervisor, Chart 19 456 

Chart JF. Message Writer — Read 
Operator Reply (Part 1 of 2) 
$$ANERRQ; Refer to Supervisor, Chart 
19 457 

Chart JG. Message Writer — Read 
Operator Reply (Part 2 of 2) 
$$ANERRQ; Refer to Supervisor, Chart 
19 458 

Chart JH. Message Writer — Error 
Recovery; $$ANERRR; Refer to 
Supervisor, Chart 19 4 59 

Chart JJ. Message Writer — Cancel, 
Ignore or Dequeue ($$ANERRS) ; Refer 
to Supervisor, Chart 19 460 

Chart JK. Unit Record ERP — 1052 and 
1056 (Part 1 of 2) $$ANERRU; Refer to 
Supervisor, Chart 18 461 

Chart JL. Unit Record ERP — 1052 and 
1056 (Part. 2 of 2) $$ANERRU; Refer to 
Supervisor, Chart 18 4 62 

Chart JM. Unit Record ERP — 1403, 
1442, 1443, 2501, 2520, 2540, (Part 1 
of 2) $$ANERRV; Refer to Supervisor, 
Chart 18 463 

Chart JN. Unit Record ERP— 1403, 
1442, 1433, 2501, 2520, 2540, (Part 2 
of 2) $$ANERRV; Refer to Supervisor, 
Chart 18 464 

Chart JP. Paper Tape ERP— 2671 (Part 

1 of 2) $$ANERRX; Refer to 

Supervisor, Chart 18 465 

Chart JQ. Paper Tape ERP — 2671 (Part 

2 of 2) $$ANERRX; Refer to 

Supervisor, Chart 18 4 66 

Chart JR. Optical Reader ERP — 1285; 
$$ANERR9: Refer to Supervisor, Chart 
18 467 

Chart JRA. Optical Reader ERP — 1285; 
$$ANERR9: Refer to Supervisor, Chart 
18 468 

Chart JRB. Optical Reader ERP— 1285; 
$$AKERR9: Refer to Supervisor, Chart 
18 469 

Chart JS. Physical Attention — Send 
Message; $$ANERRY; Refer to 
Supervisor, Chart 20 470 

Chart JT. Physical Attention — Read 
Operator Reply; ^ANERRY; Refer to 
Supervisor, Chart 20 471 



Chart JU. Physical Attention — 
Initial PUB Scan; $$ANERRZ; Refer to 
Supervisor, Chart 20 472 

Chart JV. Physical Attention — Cancel 
Routine and Physcial Ittention 
Subroutines ($$ANERRZ) ; Refer to 
Supervisor, Chart 20 473 

Chart JW. Physical Attention — 
Emergency Cancel (Part 1 of 2) 
$$ANERRO; Refer to Supervisor, Chart 
20 474 

Chart JX. Physical Attention — 
Emergency Cancel (Part 2 of 2) 
$$ANERRO; Refer to Supervisor, Chart 
20 475 

Chart JY. Move Data to Communications 
Region ($$ANERR1) 476 

Chart KA. Nonresident 
Attention/Initiator Root Phase 
($$BATTNA); Refer to Supervisor, 
Chart 21 477 

Chart KB. Control Routine ($$BATTNA); 
Refer to Supervisor, Chart 21 478 

Chart KC. Root Phase Subroutines 
($$BATTNA); Refer to Supervisor, 
Chart 21 479 

Chart KD. General Scan Routines 
($$BATTNA); Refer to Supervisor, 
Chart 21 480 

Chart KE. MSG Statement Processor 
($$BATTNB); Refer to Supervisor, 
Chart 24 481 

Chart KF. Set Operator Communications 
and Exit Table Linkage ($$BATTNB) ; 
Refer to Supervisor, Chart 24 482 

Chart KG- CANCEL Statement Processor 
($$BATTNC); Refer to Supervisor, 
Chart 24 483 

Chart KH. PAUSE, LOG, and NOLOG 
Statement Processors ($$BATTNC) ; 
Refer to Supervisor, Chart 24 484 

Chart KJ. MAP Statement Processor 
($$BATTND); Refer to Supervisor, 
Chart 24 485 

Chart KL. Output MAP Subroutines 
(Part 1 of 2) $$BATTND; Refer to 
Supervisor, Chart 24 486 

Chart KM. Output MAP Subroutines 
(Part 2 of 2) $$BATTND; Refer to 
Supervisor, Chart 24 487 

Chart KN. ALLOC Statement Processor, 
Part 1; $$BATTNE) ; Refer to 
Supervisor, Chart 25 488 

Chart KP. ALLOC Statement Operand 
Validity Checking; $$BATTNE; Refer to 
Supervisor, Chart 25 489 

Chart KQ. ALLOC Statement Processor, 
Part 2 (Part 1 of 2) $$BATTNF; Refer 
to Supervisor, Chart 25 490 

Chart KR. ALLOC Statement Processor, 
Part 2 (Part 2 of 2) $$BATTNF; Refer 
to Supervisor, Chart 25 491 

Chart KS. START Statement Processor, 
Part 1 ($$BATTNG); Refer to 
Supervisor, Chart 25. . . ^ 492 

Chart KT. START Statement Processor, 
Part 2; $$BATTNH; Refer to 
Supervisor, Chart 25 493 
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Chart KU. START Processor Subroutines 
$$BATTNH; Refer to Supervisor, Chart 
25 494 

Chart KV. ASSGN Statement Processor 
(Part 1 of 2) $$BATTNI; Refer to 
Supervisor, Chart 22 495 

Chart KW, ASSGN Statement Processor 
(Part 2 of 2) $$BATTNI; Refer to 
Supervisor, Chart 22 496 

Chart KX. READ Statement Processor 
$$BATTNI; Refer to Supervisor, Chart 
22 497 

Chart KY. Validate Si^SXXX Subroutine 
$$BATTNI; Refer to Supervisor, Chart 
22 498 

Chart KZ. Validity Check Channel and 
Unit and Convert to Binary; $$BATTNI; 
REFER TO Supervisor, Chart 22 4 99 

Chart LA. Unassign Subroutine 
$$BATTNI; Refer to Supervisor, Chart 
22 500 

Chart LB. Scan LUBs in Class 
Subroutine $$BATTNI; Refer to 
Supervisor, Chart 22 501 

Chart LC. Scan JIB's Subroutine 
$$BATTNI; Refer to Supervisor, Chart 
22 502 

Chart LD. Reset Free List Routine 
$$BATTNI; Refer to Suoervisor, Chart 
22 ^ 503 

Chart LE. ASSGN Processor Subroutines 
(Part 1 of 2) $$BATTNI; Refer to 
Supervisor, Chart 22 504 

Chart LF. ASSGN Processor Subroutines 
(Part 2 of 2) $$BATTNI; Refer to 
Supervisor Chart 22 505 

Chart LG. Common Error Exits 
$$BATTNI; Refer to Supervisor, Chart 
22 506 

Chart LH. LISTIO Statement Processor 
$$BATTNJ; Refer to Supervisor, Chart 
23 507 

Chart LJ. List Subroutines $$BATTNJ; 
Refer to Supervisor, Chart 23 508 

Chart LK. Locate Assignment Routine 
$$BATTNJ; Refer to Supervisor, Chart 
23 509 

Chart LL. Output List (Part 1 of 3) 
$$BATTNJ; Refer to Supervisor, Chart 
23 510 

Chart LM. Output List (Part 2 of 3) 
$$BATTNJ; Refer to Supervisor, Chart 
23 .511 

Chart LN. Output List (Part 3 of 3)' 
$$BATTNJ; Refer to Supervisor, Chart 
23 512 

Chart LP. VOL Statement Processor 
$$BATTNK; Refer to Supervisor, Chart 
23 513 

Chart LQ. TPLAB Statement Processor 
$$BATTNK; Refer to Supervisor, Chart 
23 514 

Chart LR. Concatenate Subroutine 
$$BATTNK; Refer to Supervisor, Chart 
23 515 

Chart LS. Validity Check Subroutine 
$$BATTNK; Refer to Supervisor, Chart 
23 516 



Chart LT. DLAB Statement Processor 
$$BATTNK; Refer to Supervisor, Chart 
23 517 

Chart LU. Extract Operand from 
Statement Subroutine $$BATTNK; Refer 
to Supervisor, Chart 23 518 

Chart LV. Common Error Exits 
$$BATTNK; Refer to Supervisor, Chart 
23 519 

Chart LW. Output Label Data 
Subroutine $$BATTNK; Refer to 
Supervisor, Chart 23 520 

Chart LX. XTENT Statement Processor, 
Type and Sequence (Part 1 of 2) 
$$BATTNL; Refer to Supervisor, Chart 
23 521 

Chart LY. XTENT Statement Processor, 
Type and Sequence (Part 2 of 2) 
$$BATTNL; Refer to Supervisor, Chart 
23 522 

Chart LZ. XTENT Limit Processing 
$$BATTNL; Refer to Supervisor, Chart 
23 523 

Chart MA. XTENT Processor Subroutines 
$$BATTNL; Refer to Supervisor, Chart 
23 524 

Chart MB. Terminal XTENT Statement 
Processing $$BATTNL; Refer to 
Supervisor, Chart 23 525 

Chart MC. EXEC Statement Processor 
$$BATTNM; Refer to Supervisor, Chart 
23 526 

Chart MD. Output Last Block of Label 
Information $$BATTNM; Refer to 
Supervisor, Chart 23 527 

Chart ME. Move Last Block Routine 
$$BATTNM; Refer to Supervisor, Chart 
23 528 

Chart MF. Move Subroutine and 
Initialize for FG Program Load 
Routine $$BATTNM; Refer to 
Supervisor, Chart 23 529 

Chart MG. UCS Statement Processor 
$$BATTNM; Refer to Supervisor, Chart 
23 530 

Chart MH. TIMER Statement Processor 
$$BATTNN; Refer to Supervisor, Chart 
25 531 

Chart MJ. UNA Statement Processor 
$$BATTNI; Refer to Supervisor, Chart 
22 532 

Chart MK. HOLD or RELSE Statement 
Processor $$BATTNI; Refer to 
Supervisor, Chart 22 533 

Chart ML. UNA, HOLD, RELSE Processor 
Subroutines $$BATTNI; Refer to 
Supervisor, Chart 22 534 

Chart NA. Terminated Program I/O 
Handling $$BEOJ; Refer to Supervisor, 
Chart 26 535 

Chart NB. EOJ Processing Routine and 
$$BEOJ Subroutines $$BEOJ; Refer to 
Supervisor, Chart 26 536 

Chart NC. Message Output Subroutine 
$$BEOJ; Refer to Supervisor, Chart 26 .537 

Chart ND. Quiesce I/O Phase $$BE0J3; 
Refer to Supervisor, Chart 26 538 
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Chart NE. Reset Foreground PUB 

Ownership and Detach Attention 

Routine $$BTERM; Refer to Supervisor^ 

Chart 26 539 

Chart NF. Reset JIB's for I/O Devices 

of Terminated Program $$BTERM; Refer 

to Supervisor, Chart 26 540 

Chart NG. Get TEB Statistics and 

Reset TEB's $$BTERM; Refer to 

Supervisor, Chart 26 541 

Chart NH. Print Message and TEB 

Statistics Subroutine $$BTERM; Refer 

to Supervisor, Chart 26 542 

Chart NJ. Prepare Cancel Cause 

Message $$BE0J1; Refer to Supervisor, 

Chart 27 543 

Chart NK. Output Cancel Message on 

SYSLST; $$BE0J1; Refer to Supervisor, 

Chart 27 544 

Chart NL. Select Cancel Message and 

Program Identification $$BE0J2; Refer 

to Supervisor, Chart 28 545 

Chart NM. Select I/O Device and 

Output the Cancel Message $$BE0J2; 

Refer to Supervisor, Chart 28 546 

Chart NN. Prepare Information About 

Cancel Cause $$BILSVC; Refer to 

Supervisor, Chart 28 547 

Chart NP. Select I/O Device and 

Prepare to Output a Message $$BILSVC; 

Refer to Supervisor, Chart 28 548 

Chart NQ. Output Message on Selected 

I/O Device $$BILSVC; Refer to 

Supervisor, Chart 28 549 

Chart NR. Prepare Canceled Program's 

PSW for Output Message and PIOCS 

Subroutine $$BPSW; Refer to 

Supervisor, Chart 27 550 

Chart NS. Select I/O Device and 

Prepare to Output a Message $$BPSW; 

Refer to Supervisor, Chart 27 551 

Chart NT. Prepare Information for 

Message about PC Cancel and Select 

I/O Device $$BPCHK; Refer to 

Supervisor, Chart 28 552 

Chart NU. Set Up for I/O and Output 

the Message $$BPCHK; Refer to 

Supervisor, Chart 28 553 

Chart NV. Monitor Background Program 

Dump $$BDUMP; Refer to Supervisor, 

Chart 27 554 

Chart NvJ. Monitor Foreground Program 

Dump $$BDUMP; Refer to Supervisor, 

Chart 27 555 

Chart NX. Foreground Program Dump 

$$BDUMPF; Refer to Supervisor, Chart 

29 556 

Chart NY. Prepare Page Headings and 

PIOCS Subroutines $$BDUMPF; Refer to 

Supervisor, Chart 29 557 

Chart NZ. Prepare and Edit a Line 

Subroutine $$BDUMPF; lefer to 

Supervisor, Chart 29 558 

Chart PA. Line Test Subroutines 

$$BDUMPF; Refer to Supervisor, Chart 

29 559 



Chart PB. Initialize for BG Storage 
Dump or Printer or Tape $$BDUMPB; 
Refer to Supervisor, Chart 29 560 

Chart PC. BG Dump on Printer or Tape 
$$BDUMPB; Refer to Supervisor, Chart 
29 561 

Chart PD. Prepare Page Headings and 
PIOCS Subroutines $$BDUMPB; Refer to 
Supervisor, Chart 29 562 

Chart PE. Prepare and Edit a Line 
Subroutine $$BDUMPB; Refer to 
Supervisor, Chart 29 563 

Chart PF. Line Test Subroutines 
$$BDUMPB; Refer to Supervisor, Chart 
29 564 

Chart PG. BG Dump on Disk Device 
$$BDUMPD; Refer to Supervisor, Chart 
29 565 

Chart PH. Prepare Page Headings and 
PIOCS Subroutines $$BDUMPD; Refer to 
Supervisor, Chart 29 566 

Chart PJ. Prepare and Edit a Line 
Subroutine $$BDUMPD; Refer to 
Supervisor, Chart 29 567 

Chart PK. Line Test Subroutines 
$$BDUMPD; Refer to Supervisor, Chart 
29 568 

Chart PL. Parameter Storage Dump 
Monitor $$BPDUMP; Refer to 
Supervisor, Chart 30 569 

Chart PM. Initialize Parameter Dump 
or Printer or Tape $$BPDUM1; Refer to 
Supervisor, Chart 30 570 

Chart PN. Parameter Storage Dump on 
Printer or Tape $$BPDUM1; Refer to 
Supervisor, Chart 30. . 571 

Chart PP. Line Test Subroutines 
$$BPDUM1; Refer to Supervisor, Chart 
30 572 

Chart PQ. Prepare and Edit a Line 
Subroutine $$BPDUM1; Refer to 
Supervisor, Chart 30 573 

Chart PS. Set Up a Write on SYSRES 
Operation $$3YSYSWR 574 

Chart QA. Initialization, Part 2 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 575 

Chart QB. Initialization, Part 1 
(Part 1 of 2) $LNKEDT; Refer to 
Linkage Editor, Chart 31 576 

Chart QC. Initialization, Part 1 
(Part 2 of 2) $LNKEDT; Refer to 
Linkage Editor, Chart 31 577 

Chart QD. Read SYSLNK Subroutine 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 578 

Chart QE. Control Dictionary Search 
Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31. ... 579 

Chart QF. Label Search Subroutine 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 580 

Chart QH. Convert to Binary 
Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 ^81 

Chart QJ. Print/Carriage Control 
Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 582 
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Chart QK. Update Disk Address 
Subroutine $LNKEDT; Refer to Linkage 

Editor, Chart 31 583 

..•Chart QL. Extract Phase Number 

Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 584 

Chart QM. Read/Write Subroutine 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 585 

Chart QN. Overflow Test Subroutine 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 586 

Chart QP. Read Input Stream $LNKEDT; 
Refer to Linkage Editor, Chart 31 • . .5 87 

Chart QQ. Autolink Processing 
Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 5 88 

Chart QR. Non-Abort Error Subroutine 
$LNKEDT; Refer to Linkage Editor, 
Chart 31 589 

Chart QS. Overlay Subroutine $LNKEDT; 
Refer to Linkage Editor, Chart 31 . . .590 

Chart QT. Core Image Block Building 
Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 591 

Chart QU. Action Processor $LNKEDT; 
Refer to Linkage Editor, Chart 31 . . .592 

Chart RA. Initialize ESD Processor 
$LNKEDTO; Refer to Linkage Editor, 
Chart 32 593 

Chart RB. ESD Processor, Card Image 
Check, (Part 1 of 2) $LNKEDTO; Refer 
to Linkage Editor, Chart 32 594 

Chart RC. ESD Processor, Card Image 
Check, (Part 2 of 2) $LNKEDTO; Refer 
to Linkage Editor, Chart 32 595 

Chart RD. ESD Processor, Process ESD 
Items Against Control Dictionary 
$LNKEDTO; Refer to Linkage Editor, 
Chart 32 596 

Chart RE. ESD Processor, Process ER 
$LNKEDTO; Refer to Linkage Editor, 
Chart- 32 597 

Chart RF. ESD Processor, Process SD 
$LNKEDTO; Refer to Linkage Editor, 
Chart 32 598 

Chart RG. ESD Processor, Process 
LD/LR $LNKEDTO; Refer to Linkage 
Editor, Chart 32 599 

Chairt RH. ESD Processor, Update 
Linkage Table and Control Dictionary 
(Part 1 of 2) $LNKEDTO; Refer to 
Linkage Editor, Chart 32 600 

Chart RJ. ESD Processor, Update 
Linkage Table and Control Dictionary 
(Part 2 of 2) $LNKEDTO ; Refer to 
Linkage Editor, Chart 32 601 

Chart RK. Initialize for $LNKEDT2; 
Refer to Linkage Editor, Chart 33 . . .602 

Chart RL. TXT Processor $LNKEDT2; 
Refer to Linkage Editor, Chart 33 . . .603 

Chart RM. REP Processor $LNKEDT2; 
Refer to Linkage Editor, Chart 33 . . .604 

Chart RN. RLD Pass 1 Processing (Part 
1 of 2) $LNKEDT2; Refer to Linkage 
Editor, Chart 33 605 



Chart RP. RLD Pass 1 Processing (Part 
2 of 2) $LNKEDT2; Refer to Linkage 
Editor, Chart 33 606 

Chart RQ. END Processor (Part 1 of 2) 
$LNKEDT2; Refer to Linkage Editor, 
Chart 33 607 

Chart RR. END Processor (Part 2 of 2) 
$LNKEDT2; Refer to Linkage Editor, 
Chart 33 608 

Chart RS. Write SYSOOl Subroutine 
$LNKEDT2; Refer to Linkage Editor, 
Chart 33 609 

Chart RT. Initialize Control Card 
Processor $LNKEDT4; Refer to Linkage 
Editor, Chart 34 610 

Chart RU. Include Card Processor 
$LNKEDT4; Refer to Linkage Editor, 
Chart 34 611 

Chart RV. Entry Card Processor 
$LNKEDT4; Refer to Linkage Editor 
Chart 34 612 

Chart RW. Phase Card Processor (Part 

1 of 3) $LNKEDT4; Refer to Linkage 
Editor, Chart 34 613 

Chart RX. Phase Card Processor (Part 

2 of 3) $LNKEDT4; Refer to Linkage 
Editor, Chart 34 614 

Chart RY. Phase Card Processor (Part 

3 of 3) $LNKEDT4; Refer to Linkage 
Editor, Chart 3 4 615 

Chart RZ. Skip Blanks and Extract 
Field Subroutine $LNKEDT4; Refer to 
Linkage Editor, Chart 34 616 

Chart SA. Phase Post Processing 
$LNKEDT6 (Part 1 of 6); Refer to 
Linkage Editor, Chart 35 617 

Chart SB. Phase Post Processing 
$LNKEDT6 (Part 2 of 6) ; Refer to 
Linkage Editor, Chart 35 618 

Chart SC. Phase Post Processing 
$LNKEDT6 (Part 3 of 6); Refer to 
Linkage Editor, Chart 35 619 

Chart SD. Phase Post Processing 
$LNKEDT6 (Part 4 of 6) ; Refer to 
Linkage Editor, Chart 35 620 

Chart SE. Phase Post Processing 
$LNKEDT6 (Part 5 of 6); Refer to 
Linkage Editor, Chart 35 621 

Chart SF. Phase Post Processing 
$LNKEDT6 (Part 6 of 6); Refer to 
Linkage Editor, Chart 35 622 

Chart SG. Include Post Processing 
$LNKEDT6; Refer to Linkage Editor, 
Chart 35 623 

Chart SH. Print Map $LNKEDT8 (Part 1 
of 4); Refer to Linkage Editor, Chart 
36 624 

Chart SJ. Print Map $LNKEDT8 (Part 2 
of 4) ; Refer to Linkage Editor, Chart 
36 625 

Chart SK. Print Map $LNKEDT8 (Part 3 
of 4) ; Refer to Linkage Editor, Chart 
36 626 

Chart SL. Print Map $LNKEDT8 (Part 4 
of 4) ; Refer to Linkage Editor^ Chart 
36 627 
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Chart SM. Pass 2 P-Pointer Processor 
$L1SIKEDTA; Refer to Linkage Editor, 
Chart 37 628 

Chart SN. Pass 2 R-Pointer Processor 
$LNKEDTA; R^fer to Linkage Editor, 
Chart 37. ^ 629 

Chart SP. Pass 2 RLD Constant 
Processor $LNKEDTA; Refer to Linkage 
Editor, Chart 37 630 

Chart SQ. Pass 2 ABORT and MAP 
Routines $LNDEDTA; Refer to Linkage 
Editor, Chart 37 631 

Chart SR, Pass 2, Block Phase Header 
$LNKEDTA; Refer to Linkage Editor, 
Chart 37 632 

Chart ST. Pass 2 Subroutines 
$LNKEDTA; Refer to Linkage Editor 
Chart 37 633 

Chart SU. Determine If Phases to be 
Cataloged Fit in Core Image Directory 
$LNKEDTC; Refer to Linkage Editor, 
Chart 38 634 

Chart SV. Check Core Image Directory 
for Entries Being Replaced $LNKEDTC; 
Refer to Linkage Editor, Chart 38 . . .635 

Chart SW. Catalog Phase Entries to 
Core Image Directory $LNKEDTC; Refer 
to Linkage Editor, Chart 38 636 

Chart TA. Read Control Statements 
MAINT; Refer to Maintenance, Chart 39 .637 

Chart TB. Analyze Control Statements 
MAINT; Refer to Maintenance, Chart 39 .638 

Chart TC. Load Phases MAINT; Refer to 
Maintenance, Chart 3 9 639 

Chart TD. Branch to Phases MAINT; 
Refer to Maintenance, Chart 39 640 

Chart TE. Scan Control Statements 
MAINT; Refer to laintenance. Chart 39 .641 

Chart TF. Common Error Message 
Routine MAINT; Refer to Maintenance, 
Chart 39 642 

Chart TG. Common IOCS I/O Routine 
MAINT (Part 1 of 2); Refer to 
Maintenance, Chart 39 643 

Chart TH. Common IOCS I/O Routine 
MAINT (Part 2 of 2); Refer to 
Maintenance, Chart 39 644 

Chart TJ. Core Image Library 
Maintenance MAINTC2; Refer to 
Maintenance, Chart 4 645 

Chart TK. Scan Core Image Directory 
MAINTC2; Refer to Maintenance, Chart 
40 646 

Chart TL. Initialize for Relocatable 
Library Maintenance MAINTR2; Refer to 
Maintenance, Chart 41 647 

Chart TM. Catalog Relocatable Library 
MAINTR2 (Part 1 of 2); Refer to 
Maintenance, Chart 41 648 

Chart TN. Catalog Relocatable Library 
MAINTR2 (Part 2 of 2); Refer to 
Maintenance, Chart 41 6 49 

Chart TP. Delete from Relocatable 
Library MAINTR2 (Part 1 of 2); Refer 
to Maintenance, Chart 41 650 

Chart TQ. Delete from Relocatable 
Library MAINTR2 (Part 2 of 2); Refer 
to Maintenance, Chart 41 651 



Chart TR. Build ESD Record for 
Relocatable Library MAINTR2 (Part 1 
of 3); Refer to Maintenance, Chart 41 .652 

Chart TS. Build ESD Record for 
Relocatable Library MAINTR2 (Part 2 
of 3); Refer to Maintenance, Chart 41 .653 

Chart TT. Build ESD Record for 
Relocatable Library MAINTR2 (Part 3 
of 3); Refer to Maintenance, Chart 41 .654 

Chart TU. Build RLD Record for 
Relocatable Library MAINTR2; Refer to 
Maintenance, Chart 41 655 

Chart TV. Build TXT Record for 
Relocatable Library MAINTR2; Refer to 
Maintenance, Chart 41 656 

Chart TW. Rename a Module in 
Relocatable Library MAINTR2; Refer to 
Maintenance, Chart 41 657 

Chart TX. Write Block in Relocatable 
Library MAINTR2; Refer to 
Maintenance, Chart 41 658 

Chart UA. Catalog and Delete Entries 
MAINTS2; Refer to Maintenance, Chart 
42 659 

Chart UB. Rename Entry and Book Name 
Validity Check MAINTS2; Refer to 
Maintenance, Chart 42 660 

Chart UC. I/O Control MAINTS2 (Part 1 
of 2); Refer to Maintenance, Chart 42 .661 

Chart UD. I/O Control MAINTS2 (Part 2 
of 2); Refer to Maintenance, Chart 42 .662 

Chart UE. Format Book MAINTS2; Refer 
to Maintenance, Chart 42 663 

Chart UF. Compress Book and Format 
Book Already Compressed MAINTS2; 
Refer to Maintenance, Chart 42 664 

Chart UG. Last Card in Book 
Processing MAINTS2; Refer to 
Maintenance, Chart 42 665 

Chart UH. Book End Statement 
Processor MAINTS2; Refer to 
Maintenance, Chart 42 666 

Chart UJ. Finish MAINTS2 Entry and 
All Through Processing Routine 
MAINTS2; Refer to Maintenance, Chart 
42 667 

Chart UK. Update Source Statement 
Directory Subroutine MAINTS2 (Part 1 
of 2); Refer to Maintenance, Chart 42 .668 

Chart UL. Update Source Statement 
Directory Subroutine MAINTS2 (Part 2 
of 2); Refer to Maintenance, Chart 42 .669 

Chart UM. INITS, GETBKN, LASLID, and 
MVBNMC Subroutines MAINTS2; Refer to 
Maintenance, Chart 42 670 

Chart UN. OPRERS, OPRERT, and DELERR 
Error Subroutines MAINTS2; Refer to 
Maintenance, Chart 42 671 

Chart VA. Process Allocate Control 
Statement MAINTA (Part 1 of 2) ; Refer 
to Maintenance, Chart 43a 672 

Chart VB. Process Allocate Control 
Statement MAINTA (Part 2 of 2) ; Refer 
to Maintenance, Chart 43 673 

Chart VC. Update Record 4 of System 
Directory MAINTA; Refer to 
Maintenance, Chart 43 674 



Charts 



19 



Chart VD. Build Directory and Library 
Reallocation Tables MAINTA; Refer to 
Maintenance, Chart U3 675 

Chart VE. Compute Displacement and 
Direction for Directory and Library 
Movement MAINTA; Refer to 
Maintenance, Chart 43 676 

Chart VF, Update System Directory 
Records 1, 2, and 3 MAINTA; Refer to 
Maintenance, Chart 43 677 

Chart VG. Write Updated System 
Directory MAINTA; Refer to 
Maintenance, Chart 43 678 

Chart VH. Update Library Directories 
MAINTA; Refer to Maintenance, Chart 
43. . 679 

Chart VJ. Relocate Directories and 
Libraries MAINTA; Refer lo 
Maintenance, Chart 43 680 

Chart VK, Format Unused Tracks 
MAINTA; Refer to Maintenance, Chart 
43 681 

Chart VL. TSTNUM, CONVRT, and UPDATE 
Subroutines MAINTA; Refer to 
Maintenance, Chart 43 682 

Chart VM. Update Disk Address and 
Copy Label Track Subroutines MAINTA; 
Refer to Maintenance, Chart 43 683 

Chart VN. Initialize to Condense a 
Library MAINTCN; Refer to 
Maintenance, Chafrt 44 684 

Chart VP, Condense a Directory 
MAINTCN; Refer to Maintenance, Chart 
44 685 

Chart VQ. Condense a Library MAINTCN; 
Refer to Maintenance, Chart 44 686 

Chart VR, Automatic Condense MAINTCN; 
Refer to Maintenance, Chart 44 687 

Chart VS. VERILI, lODISK, and WRTEDR 
Subroutines MAINTCN; Refer to 
Maintenance, Chart 44 688 

Chart VT. CHGCCW and ICRDAD 
Subroutines MAINTCN; Refer to 
Maintenance, Chart 44 689 

Chart VU. Set Condense Limits 
MAINTCL; Refer to Maintenance, Chart 
45 690 

Chaart W. Print System Status Report 
and Update S\ibdi rectories $MAINEOJ 
(Part 1 of 3) ; Refer to Maintenance, 
Chart 45 691 

Chart VW. Print System Status Report 
and Update Subdirectories $MAINEOJ 
(Part 2 of 3); Refer to Maintenance, 
Chart 45 692 

Chart VX. Print System Status Report 
and Update Subdirectories $MAINEOJ 
(Part 3 of 3); Refer to Maintenance, 
Chart 45 693 

Chart VY. Build Library Routine ^nd 
Transient Subdirectory Blocks 
$MAINEOJ; Refer to Maintenance, Chart 
45 694 

Chart VZ. Build FGP and LIOCS Open 
Subdirectory Blocks $MAINEOJ; Refer 
to Maintenance, Chart 45 695 



Chart WA. Initialize Phase 1, Copy 
IPL, and Format Cylinder of SYS002 
CORGZ; Refer to Organization, Chart 
46 696 

Chart WB. Read and Analyze Control 
Statement, Write System Directory 
Records CORGZ; Refer to Organization, 
Chart 46 697 

Chart WC. Build SYS002 System 
Directory Information CORGZ; Refer to 
Organization, Chart 46 698 

Chart WD. Process ALLOC Control 
Statement CORGZ; Refer to 
Organization, Chart 46 699 

Chart WE. Analyze Copy Statement Type 
CORGZ; Refer to Organization, Chart 
47 700 

Chart WF. Scan Copy Statement 
Operands CORGZ; Refer to 
Organization, Chart 47 701 

Chart WG. Initialize to Build Library 
Directories on Sys002 CORGZ; Refer to 
Organization, Chart 47 702 

Chart WH. Build Core Image Library 
Directory on SYS002 CORGZ; Refer to 
Organization, Chart 47 703 

Chart WJ. Build Relocatable Library 
Directory on SYS002 CORGZ; Refer to 
Organization, Chart 47 704 

Chart WK. Build Source Statement 
Library Directory on SYS 002 CORGZ; 
Refer to Organization, Chart 47 . . . .705 

Chart WL. Build SYS002 Core Image 
Directory Entries for $ Programs 
CORGZ; Refer to Organization, Chart 
46 . .706 

Chart WM. Build System Directory 
Records and Format System Directory 
CORGZ; Refer to Organization, Chart 
46 707 

Chart WN. UPDISK, BLKLUP, UPRITE, and 
TSTNUM Subroutines CORGZ; Refer to 
Organization, Charts 46 and 47 708 

Chart WP. WRITE, NEWRD, lOSYSRS, and 
READDR Subroutines CORGZ; Refer to 
Organization, Charts 46 and 47 709 

Chart WQ. M0VE2, MOVECC, CPYALL, and 
WRTSD Subroutines CORGZ; Refer to 
Organization, Charts 46 and 47. . . . .710 

Chart WR. SINGLE, EXCMP, LKDOT and 
NXTONE Subroutines CORGZ; Refer to 
Organization, Charts 46 and 47 711 

Chart WS. CONVRT and DIRGET 
Subroutines CORGZ; Refer to 
Organization, Charts 46 and 47 712 

Chart WT. MOVE Subroutine CORGZ; 
Refer to Organization, Charts 46 and 
47 713 

Chart WU. Phase 1 Error Message 
Routines CORGZ; Refer to 
Organizationl, Charts 46 and 47 714 

Chart WV. ERRRTN Error Subroutine 
CORGZ; Refer to Organization, Charts 
46 and 47 715 

Chart WW. Copy Libraries from SYSRES 
to SYS002 C0RGZ2 (Part 1 of 2) ; Refer 
to Organization, Chart 46 716 
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Chart WX. Copy Libraries from SYSRES 
to SYS002 C0RGZ2 (Part 2 of 2> ; Refer 
to Organization, Chart 46 717 

Chart WY. WRITLB, READLB, SYSDIR, 
READIR, LOOPCT, and UPRITE Subroutine ^ 
C0RGZ2; Refer to Organization, Chart 
i^e 718 

Chart XA. Read and Analyze Control 
Statements DSERV; Refer to Service, 
Chart 48 719 

Chart XB. Print System Status Report 
DSERV; Refer to Service, Chart 48 • . .720 

Chart XC. Print Transient and/ or Core 
Image Directories DSERV; Refer to 
Service, Chart 48 721 

Chart XD, Print Relocatable Directory 
DSERV; Refer to Service, Chart 48 • • .722 

Chart XE. Print Source Statement 
Directory DSERV; Refer to Service, 
Chart 48 723 

Chart XF. Get Next Directory Entry 
DSERV (Part 1 of 2); Refer to 
Service, Chart 48 724 

Chart XG. Get Next Directory Entry 
DSERV (Part 2 of 2); Refer to 
Service, Chart 48 725 

Chart XH. Scan Control Statements 
DSERV; Refer to Service, Chart 48 . . .726 

Chart XJ. Print Title Lines DSERV; 
Refer to Service, Chart 48 727 

Chart YA. Analyze Control Statements 
RSERV; Refer to Service, Chart 49 . . .728 

Chart YB. Analyze Control Statement 
Operands RSERV; Refer to Service, 
Chart 49 729 

Chart YC. Read Directory Block and 
Scan for Module Name RSERV; Refer to 
Service, Chart 4 9 730 

Chart YD. Read Blocks from 
Relocatable Library and Determine 
Type RSERV; Refer to Service, Chart 
49 731 



Chart YE. Punch ESD Record RSERV; 

Refer to Service, Chart 49 732 

Chart YF. Print ESD Record RSERV; 

Refer to Service, Chart 49 733 

Chart YG. Punch and/or Print TXT 

Record RSERV; Refer to Servi<:e, Chart 

49 734 

Chart YH. Punch RLD Record RSERV; 

Refer to Service, Chart 49 735 

Chart YJ. Print RLD Record RSERV; 

Refer to Service, Chart 49 736 

Chart YK. I/O Subroutines RSERV; 

Refer to Service, Chart 49 737 

Chart YL. Scan Control Statements 

RSERV; Refer to Service, Chart 49 . . .738 
Chart ZA. Analyze Control Statements 

SSERV (Part 1 of 2); Refer to 

Service, Chart 50 739 

Chart ZB. Analyze Control Statements 

SSERV (Part 2 of 2); Refer to 

Service, Chart 50 740 

Chart ZC. Get Card Images and Load 

Output Buffers SSERV; Refer to 

Service, Chart 50 , 741 

Chart ZD. I/O Input Control SSERV; 

Refer to Service, Chart 50 742 

Chart ZE. Output SSERV; Refer to 

Service, Chart 50 743 

Chart ZF. Heading Control SSERV; 

Refer to Service, Chart 50 744 

Chart ZG. Find Book SSERV; Refer to 

Service, Chart 50 745 

Chart ZH. $$BOPNLB Transient Program 

to Open Source Statement Library 

SSERV; Refer to Service, Chart 50 . . .746 
Chart ZJ. Read Control Statements and 

Scan for Operands SSERV; Refer to 

Service, Chart 50 747 

Chart ZK. EOF on SYSRDR, SYSLST, and 

SYSPCH SSERV; Refer to Service, Chart 

50 748x7 

Chart ZL. Error Routines SSERV; Refer 

to Service, Chart 50 749 
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SECTION !• INTRODUCTION 



The resident version of the IBM Systen\/360 
Disk Operating System (DOS) , System 
Control, Version 2, provides disk operating 
system capabilities for 16K and larger 
System/3 60 configurations. At least one 
IBM 2 311 Disk Storage Drive is required. 

Systems larger than 16K can benefit from 
this 16K package if they do not require the 
expanded functions of the larger disk 
operating system packages offered by IBM. 
The system is disk resident, using the IBM 
2311 Disk Storage Drive for on-line storage 
of all programs. Depending on the 
requirements of the particular application, 
the system can be expanded to include all 
processing programs used to perform the 
various jobs of a particular installation, 
or it can be tailored to a minimum system 
to control a single program. 

The operating system is composed of many 
components, which include: CPU, 
input/output channels, input/output control 
units, input/output devices, 
microprogramming, system control programs, 
support programs, user programs, user data 
files. Tele-processing capability, and 
multiple programming capability. Only the 
system control programs are within the 
scope of this publication. Of the system 
control programs, the supervisor and 
physical IOCS are specifically designed for 
a user's configuration by means of a 
one-time assembly (generation time) . They 
require re-assembly only if the user's 
configuration changes. 

The supervisor and physical IOCS provide 
the required interface between the program 
being executed and the other components of 
the operating system. The program 
currently being executed is identified to 
the operating system as the current program 
(definition used with this manual) . The 
last program interrupted is identified as 
the problem program. The problem program 
or the current program can be, at any given 
time, either a system control program, a 
support program, or a user program. 



MULTI PROGRAMMING 



I For those systems with main storage equal 
to or in excess of 24K, disk operating 
system offers multiprogramming support. 
This support is referred to as fixed 
partitioned multiprogramming , because 
programs are assigned to fixed locations 



when they are cataloged to the system. A 
program occupies a contiguous area of 
storage. The amount of main storage 
allotted to programs to be executed may be 
determined when the system is generated, or 
the amount may be determined by the 
operator when the program is loaded into 
main storage for execution. 



Background vs Foreground Programs 
There are two types of problem programs in 
multiprogramming: background and 
foreground. Background programs are 
initiated by job control from the 
batched- job input stream. Foreground 
programs are initiated by the operator from 
the printer-keyboard. Foreground programs 
do not execute from a stack (batch) . When 
one program is completed, the operator must 
explicitly initiate the next program. 

Background and foregound programs 
initiate and terminate completely 
independent of each other. 

The system is capable of concurrently 
operating one background program and one or 
two foreground programs. Priority for CPU 
processing is controlled by the supervisor, 
with foreground programs having priority 
over background programs. All programs 
operate with interrupts enabled. When an 
interrupt occurs, the Supervisor gains 
control, processes the interrupt, and gives 
control to the highest priority program 
which is in a ready state. 

Control is taken away from a high 
priority program when that program 
encounters a condition that prevents 
continuation of processing until a 
specified event has occurred. Control is 
taken away from a lower priority program at 
the completion of an event for which a 
higher priority program was waiting. When 
all programs in the system are 
simultaneously waiting (i.e., no program 
can process) , the system is placed in the 
wait state enabled for interruptions. 

Interruptions are received and processed 
by the Supervisor. When an interruption 
satisfies a program's wait condition, that 
program becomes active and competes with 
other programs for CPU processing time. 

I In addition to at least 24K positions of 
main storage, multiprogramming support 
requires the storage protection feature. 
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Note that programs produced by the 
FORTRAN and PL/ I compilers may not be run 
as foreground programs, because object 
programs produced by these compilers use 
communication region data or system logical 
units pertinent only to background 
programs . 



TELECOMMUNICATIONS 



Disk Operating System includes 
telecommunication capability that is 
defined as Basic Telecommunications Access 
Method (BTAM) . A BTAM program may be run 
as either a foreground program or a back- 
ground program. Normally it is run as 
a foreground one program so that it has 
the highest priority of any program being 
executed at a particular time. As with 
multiprogramming, BTAM requires a minimum 
of 24K positions of main storage. 



5. System I/O flow 



MINIMUM REQUIREMENTS 



The minimum configuration required by the 
DOS System Control is: 

|1. 16K bytes of main storage (24K bytes 
I are required for multiprogramming 
I and BTAM) . 

2. Standard instruction set (language 
translators can require extended 
instruction sets) . 

3. One I/O channel, either multiplexor or 
selector. (Tele-processing requires a 
multiplexor channel and at least one 
selector channel.) 

4. One card reader (IBM 1U42, 2501, 2520, 
or 2540). See Note 1. 



PURPOSE OF AN OPERATING SYSTEM 



One card punch (IBM 1442, 2520, or 
2540) . See Note 1. 



All System/360 programs have certain common 
required functions such as input/output 
operations, error detection and correction, 
operator communications, program loading, 
and five types of interrupt-handling 
capability- The Supervisor and physical 
IOCS programs relieve the user of 
performing these repetitious functions. 
His attention can be devoted solely to 
solving his problems. 

The operating system provides maximum 
utilization of System/360 resources, that 
is, main storage, CPU time, channel time, 
input/output devices, program libraries, 
control files, and data files. It also 
provides maximum throughput (minimum lost 
time between jobs and minimum set-up time) . 



6. One printer (IBM 1403, 1404, or 1443). 
See Note 1. 

7. One IBM 1052 Printer- Keyboard. 

8. One IBM 2311 Disk Storage Drive. 

Note 1 ; One 2400-series magnetic tape unit 
(7- or 9-track) can be substituted 
for this device. The data-convert 
feature is required if a 7-track 
tape unit is substituted for a 
card reader or a card punch. The 
data- convert feature is not 
required if a 7-track tape unit is 
substituted for a printer. MPS 
must have a reader or all 
foreground initiation commands 
must be entered via a 1052 device. 



CONFIGURATION 



ADDITIONAL FEATURES 



This section presents the minimum 
configuration requirements as well as the 
additional features and devices supported 
by the DOS System Control. Presentation is 
in the following order: 

1. Minimum requirements 

2. Additional features 

3 . I/O devices 

4. System I/O devices 



Additional features supported by the DOS 
System Control are: 

1. Tim.er feature. 

2. Simultaneous read-while-write tape 
control (2404 or 2804). 

3. Any channel configuration up to one 
multiplexor channel and six selector 
channels . 

4. Tape switching unit (2816). 
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5. Storage protection feature (required 
for multiprogramming) . 

6. Additional main storage up to 
16,777,216 bytes. 

7. Universal character set. 



Items 16 through 21 are attached by 
means of a private, leased, or 
common- carrier network to the multiplexor 
channel through a 2701 Data Adapter Unit, 
2702 or 2703 Transmissions Control Unit. 
With the 2701, 2702, or 2703 attached to 
the multiplexor channel, burst- mode devices 
(magnetic tape and DASD) must be attached 
to a selector channel. 



I/O DEVICES 

I/O devices supported by the DOS System 
Control are: 

1. 1442 Card Read Punch. 

2. 2501 Card Reader. 

3. 2520 Card Read Punch. 

4. 2540 Card Read Punch. 

5. 1403 Printer. 

6. 1404 Printer (for continuous forn^s 
only) . 

7. 1443 Printer. 

8. 1445 Printer. 

9. 1052 Printer-Keyboard (Used for 
operator communications) . 

10. 2671 Paper Tape Reader. 

11. 2311 Disk Storage Drive. 

12. 2321 Data Cell Drive,. 

13. 2401, 2402, 2403, 2404, and 2415 
Magnetic Tape Units. 

14. 1285 Optical Reader 

15. 2260 Display Station. 

16. 1030 Data Collection System. 

17. 1050 Data Communication System. 
1060 Data Communication System. 
AT&T 83B3 Selective Calling Stations, 



18 
19 
20 



21. 



AT6T Teletypewriter Terminal, Models 
33 and 35. 

Western Union Plan 115A Outstations. 



Item 15, the 2260 Display Station, 
requires an IBM 2 848 Display Control Unit 
and may be attached directly to a system 
channel or to a designated communication 
data set. 



SYSTEM I/O DEVICES 



The I/O devices used to perform system 
input and output are called system units. 
The symbolic designations for the system 
units are: 

• SYSRES (system residence) - a 2311 Disk 
Storage Drive selected for system 
residence. 

• SYSLOG (system log) - a 1052 Printer 
Keyboard or a printer selected for 
operator/system communication. 

• SYSRDR (system reader) - a card reader 
or magnetic tape unit, or optionally a 
2311, selected as the control- statement 
input unit. See Note 1 . 

• SYSIPT (system input) - a card reader 
or magnetic tape unit, or optionally a 
2311, selected as the primary system 
input unit. See Note 1 . 

Note 1 : Optionally, SYSRDR and SYSIPT 
may both be assigned to the 
same DASD file. SYSIN is a 
name used when SYSRDR and 
SYSIPT are assigned to the 
same card reader or magnetic 
tape unit. This name must be 
used when SYSRDR and SYSIPT 
are assigned to the same disk 
extent . 

• SYSLST (system list) - a printer, or 
magnetic tape unit, or, optionally, a 
DASD selected as the primary printed 
output unit of the system. 

• SYSPCH (system punch) - a card punch, 
or magnetic tape unit, or optionally, a 
DASD selected as the primary punched 
output unit of the system. See Note 2 . 

Note 2 : SYSOPT, of Basic Programming 
Support (BPS) and Basic 
Operating System (BOS), is 
equated to SYSPCH by macro 
generation in the DOS. SYSOUT 
is a name that must be used 
when SYSPCH and SYSLST are 
assigned to the same magnetic 
tape unit. 
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Figure 2. System I/O Flow 



© SYSUSE - Logical unit block (LUB) used 
exclusively by System Control to 
schedule all operator-initiated I/O 
unit manipulation. 



® SYSLNK - a magnetic tape, or DASD 
device used primarily for I/O by the 
linkage editor program. 



• SYSFGI - a logical unit used in 



COMPONENTS 



Functionally,, the DOS, Version 2, is 
subdivided into the following components; 



foreground initiation, 



• System residence 



• System control programs 



® Linkage editor program 



Note 3 ; With the exception of SYSRES 
and SYSLOG, system units are 
used only with programs 
running in a batched- job 
environment (referred to as 
background programs) . 



System I/O flow is shown in Figure 2. 



• Librarian 



© Processing programs 



Each component has unique characteristics, 
which are given a general presentation in 
this section. 
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SYSTEM RESIDENCE 



SYSTEM CONTROL PROGRAMS (CHART 00) 



System residence (SYSRES) is the IBM 2311 
Disk Storage Drive on which the system 
residence 2311 disk pack has been mounted. 



System residence consists of the 
elements of the DOS System Control. These 
elements are: 

Cyl . Trk . 



1. IPL retrieval program 



2. 


System directory 





1 


3. 


System work area 
(librarian area) 





2-4 


4. 


Transient directory 





5 


5. 


Open directory 





6 


6. 


Library routine 
directory 





7 


7. 


Foreground program 
directory 





8 



8. Problem program phase 9 

directory 

9. Core image master 1 

directory 

10. Core image library 

11. Relocatable library 

directory 

12. Relocatable library 

13. Source statement library 

directory 

14. Source statement library 

15. Label storage area - - 

(volume area) 

Elements 1 through 9 have fixed locations 
in SYSRES. Elements 10 through 14 do not 
have fixed locations. The starting address 
of each element is determined by the size 
(allocation) and the starting address of 
the preceding element. However, they must 
appear in the sequence shown. 

Elements 1 through 10 and 15 are 
required for a minimum SYSRES . Elements 11 
through 14 are optional. 

For additional information on SYSRES 
refer to Section 2: System Residence 
Organization . 



The DOS, Version 2,, is controlled by three 
major programs: 

1. IPL (initial program load) program. 

2. Job control program ($JOBCTLA). 

3. Supervisor control program ($$A$SUP1) . 

These programs allow operating system 
capability by providing the necessary 
interface between the IBM System/360, its 
supporting I/O devices, the operator, 
system residence, and the program being 
executed. 



IPL 



The IPL program must be executed each time 
it is necessary to load a new supervisor 
control program or to change the channel 
and unit assignment for SYSRES. 

The IPL program: 

1. Operates in the supervisor mode. 

2. Loads the supervisor from SYSRES. 

3. Initializes the supervisor for system 
operation. 

4. Places the system in the problem mode. 

5. Exits to EOJ when it is finished- 

For additional information refer to Section 
4: System Control Programs^ IPL Program . 



Job Control Program ($JOBCTLA~$JOBCTLJ) 



The job control program provides job-to- job 
transition for background programs. It is 
also used to prepare each background job 
step for execution. (One or more programs 
can be executed within a single job. Each 
such execution is called a job step . ) 

Job control performs various functions 
on the basis of information provided in job 
control statements. These functions are: 

• Preparing the system for execution of 
programs in a batched- job environment. 

• Assigning device addresses to symbolic 
units. 

• Setting up fields in the supervisor 
communication region. 
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• Editing and storing volume and file 
label information. 

• Preparing for restarting checkpointed 
programs • 

• Clearing the background problem program 
area to binary zeros between job steps. 

Job control is executed in the 
background program area and is overlaid by 
the job step it is preparing for execution. 

For additional information refer to 
Section U; System Control Programs^ Job 
Control Program . 



of the supervisor control program. 
Reassembly is required whWever the user 
wants to change the capability of the 
supervisor. An example of this is when the 
installation configuration changes. 

For additional information refer to 
Section tf: System Control Programs, 
Supervisor Program , Supervisor Transient 
Programs , Physical IOCS Transients ,, and 
Section 3; Supervisor Generation and 
Organization ^ 



LINKAGE EDITOR PROGRAM ($LNKEDT), CHART 00 



Supervisor Control Program ($$A$SUP1) 

The supervisor program operates with 
problem programs when job processing 
(problem program execution) occurs. The 
supervisor program is divided into two 
parts : 

1. the resident part called the supervisor 
nucleus 

2. the nonresident part called a 
supervisor transient . 

The nucleus is loaded into main storage 
at IPL time and remains there throughout 
job processing.. A transient (one of many) 
is loaded from the core image library of 
SYSRES on an as-needed basis. When a 
transient has finished performing its 
service, it can be overlaid by some other 
transient when some other type of service 
is required. This technique maximizes the 
use of main storage allotted to the 
supervisor. The basic functions performed 
by the supervisor are : 

• Storage protection (required for 
multiprogramming) 

• Interrupt handling 

• Channel scheduling 

o Device error recovery 

o Operator communications 

o Program retrieval (fetch or load) 

© End-of-job processing 

® Timer services (optional) 

Each installation must generate its own 
tailor made supervisor by means of a one 
time assembly. Supervisor generation 
macros are used to control the generation 



All programs to be executed in the DOS 
environment must be link- edited and stored 
in the core image library before they can 
be executed- The link- edit function is 
accomplished by the linkage editor program 
operating in one of three modes: 

1. Catalog mode . An object module is 
link- edited and permanently stored in 
the core image library. The core image 
and system directories are updated in 
this mode of operation.. 

2. Load and execute mode . An object 
module is link- edited for temporary 
storage in the core image library and 
is immediately executed - 

3. Assemble and execute mode . A source 
module is assembled or compiled. The 
object module (output) is link-edited 
for temporary storage in the core image 
library and is immediately executed . 

Note ; When operating in modes 2 or 3, the 
core image and system directories 
are not updated. 

The linkage editor program is called by 
job control when a // EXEC LNKEDT control 
statement is read. Control is always 
returned to job control when the link- edit 
function is completed. 

For additional information refer to 
Section 5; Linkage Editor Program . 



LIBRARIAN PROGRAMS 



This section presents a group of programs 
that maintain, service, and organize the 
libraries and directories of a DOS resident 
system. These programs are collectively 
referred to as the Librarian. 
Functionally, they are divided into three 
groups : 
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DOS System Control 



!• Maintenance programs 



2* Organization programs 



3, Service programs 



Maintenance Programs (Chart 00) 

These programs perform the functions that 
catalog, delete, rename, reallocate, and 
condense the libraries of SYSRES. The 
following is a list of the maintenance 
programs : 

1. Common library maintenance program 
(MAINT) 

2. Core image library maintenance program 
(MAINTC2) 

3. Relocatable library maintenance program 
(MAINTR2) 

4. Source statement library maintenance 
program (MAINTS2) 

5. Transient and library- routine directory 
update program ($MAINEOJ) 

6. Library condense program (MAINTCN) 

7. System reallocation program (MAINTA) 

8. Store condense limits program (MAINTCL) 



Common Library Maintenance Program (MAINT) ; 
This program is in storage during the 
execution of all system maintenance 
functions. It is called by job control 
when a // EXEC MAINT control statement is 
read or by a $MAIlSIEOJ if an automatic 
condense is required. 

The prime function of MAINT is to fetch 
the correct maintenance program to perform 
a specific maintenance function. This is 
accomplished by reading and analyzing 
control statements from SYSRDR or SYSIPT. 
The following is a list of control 
statements acceptable to MAINT: 



• CATALS 

• RENAMS 

• DELETS 

• CONDS 

• CONDL 

• ALLOC 

• /* 

• IPTCTRL 

• RDRCTRL 
Note l! 



Fetch MAINTS2 



Fetch MAINTCN 

Fetch MAINTCL 

Fetch MAINTCN (Note 1) 

Fetch job control 

Read librarian statement on 

SYSIPT 

Read librarian statement on 
SYSRDR 

MAINT always fetches MAINTCN when 
an ALLOC control statement is 
read. MAINTCN performs the 
library condense function before 
fetching MAINTA to perform the 
library reallocation function 
specified by the ALLOC control 
statement . 



For additional information, refer to 
Section 6; Librarian Maintenance Programs, 
Common Library Maintenance Program . 



• RENAMC 

• DELETC 

• CATALR 
o RENAMR 

• DELETR 



Fetch MAINTC2 



Fetch MAINTR2 



Core Image Maintenance Program (MAINTC2): 
This program is fetched by MAINT to perform 
the rename or delete functions for the core 
image library. When fetched, MAINTC2 
shares the problem program area with MAINT. 
Control is returned to MAINT when the 
desired function is completed. 

The RENAMC control statement specifies 
that a phase of the core image library is 
to be renamed. The DELETC control 
statement specifies that a phase of the 
core image library is to be deleted. The 
catalog function for the core image library 
is always performed by the linkage editor 
program (Phase 8, $LNKEDTC) . 

For additional information, refer to 
Section 6; Librarian Maintenance Programs , 
Core Image Library Maintenance Program . 

Relocatable Library Maintenance Program 
(MAINTR2) : This program is fetched by 
MAINT to perform the catalog, rename, or 
delete functions for the relocatable 
library. When fetched, MAINTR2 shares the 
problem program area with MAINT. Control 
is returned to MAINT when the desired 
function is completed. 

The CATALR control statement specifies 
that a module is to be cataloged to the 
relocatable library. The RENAMR control 
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statement specifies that a module of the 
relocatal^le library is to be renamed. The 
DELETR control statement specifies that a 
module of the relocatable library is to be 
deleted. 

For additional information, refer to 
Section 6s Librarian Maintenance Programs, 
Relocatable Library Maintenance Program . 



Source Statement Library Maintenance 
Program (MAINTS2) ; This program is fetched 
by MAINT to perform the catalog, rename, or 
delete functions for the source statement 
library. When fetched, MAINTS2 shares the 
problem program area with MAINT. Control 
is returned to MAINT when the desired 
function is completed. 

The CATALS control statement Specifies 
that a book is to be cataloged to the 
source statement library. The RENAMS 
control statement specifies that a book of 
the source statement library is to be 
renamed. The DELETS control statement 
specifies that a book of the source 
statement library is to be deleted. 

For additional information, refer to 
Section 6; Librarian Maintenance Programs, 
Source Statement Library Maintenance 
Program . 

Update Transient, Foreground Program, Open 
and Library- Routine Directories Program 
($MAINE0J) ; This program may be fetched by 
MAINTCN (in the case of an automatic 
condense), MAINT or CORGZ. It updates the 
transient, foreground program, open and 
library- routine directories, and to print 
the system status report on SYSLST after 
the execution of any of the following: 

o A linkage editor catalog function. 

® A core image library rename or delete 
function. 

o A library condense function. 

© A library reallocation function. 

© A copy system function (CORGZ). 

For additional information, refer to 
Section 6; Librarian Maintenance Programs, 
Update Transient and Library-Routine 
Directories Program . 

Library Condense Program (MAINTCN) ; This 
program is fetched by MAINT to perform the 
condense function for the system libraries. 
When fetched, MAINTCN shares the problem 
program area with MAINT. 

The CONDS control statement specifies 
that one of the following condense 



functions must be performed and that 
control is to be returned to MAINT; 

• Condense all libraries « 

• Condense selected libraries. 

• Condense an individual library. 

MAINTCN is also fetched by $MAINEOJ for 
automatic condensing and by MAINT when the 
ALLOC control statement is read. When 
fetched under this circumstances 

• MAINTCN still shares the problem 
program area with MAINT. 

• All libraries are condensed. 

• MAINTA is fetched when the condense 
function is completed. 

For additional information, refer to 
Section 6s Librarian Maintenance Programs, 
Library Condense Program * 

Store Condense Limits Program 
(MAINTCL) 5 This program is fetched by 
MAINT, and, when executed, stores library 
condense information in the system 
directory. The information stored by 
$MAINTCL is used by $MAINEOJ to determine 
if an automatic condense is required (when 
a nonzero parameter is specified by the 
control statement) . If an automatic 
condense is to be done, the condense limit 
has been posted by MAINTCL. 

System Reallocation Program (MAINTA) ; This 
program is fetched by MAINTCN when the 
reallocation function (ALLOC control 
statement) has been detected by MAINT. The 
reallocation function is used to redefine 
the sizes of the libraries and directories 
of SYSRES. 

MAINT detects the ALLOC control 
statement and fetches MAINTCN to condense 
all libraries before the reallocation 
function is performed. When fetched, 
MAINTA overlays MAINTCN and shares the 
problem program area with MAINT. $MAINE0J 
is fetched when the reallocation function 
is completed. 

For additional information, refer to 
Section 6: Librarian Maintenance Programs, 
System Reallocation Program . 



Organization Programs (Chart 00) 



The Copy System Program (CORGZ) is the only 
program in this category. It is fetched by 
job control when the // EXEC CORGZ control 
statement is read. Its function is to copy 
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SYSRES, either selectively or completely. 
A complete copy generates backup; a 
selective copy generates a reduced system 
that is to be used for a specific purpose. 

The CORGZ program has the additional 
capability of performing the reallocation 
function. 

Upon completion, the CORGZ program 
fetches $MAINTEOJ to update the transient 
and library- routine directories, and print 
the system status report, of the new 
SYSRES. 

For additional information, refer to 
Section 7: Librarian Organization 
Programs, Copy System Program . 



Service Programs (Chart 00) 



These programs perform the functions that: 

1. Display and/or punch books from the 
source statement library, and modules 
from the relocatable library. 

2. Display the contents of the directories 
in SYSRES. 

The service programs are briefly 
described as follows. For additional 
information, refer to Section 8; Librarian 
Service Programs, RSERV, SSERV, DSERV. 

Relocatable Library Service Program 
(RSERV) ; This program displays and/or 
punches modules from the relocatable 
library. 

Source Statement Library Service Program 
(SSERV) ; This program displays and/or 
punches books from the source statement 
library. 

Directory Service Program (DSERV) ; This 
program displays the contents of the 



directories in SYSRES. All directories can 
be displayed in a single run or they may be 
displayed selectively. 



PROCESSING PROGRAMS (CHART 00) 

All programs executed in the DOS 
environment use the functions of the system 
control programs.. A minimum system 
residence may consist of only the system 
control programs and one or more user 
programs. A full system residence may 
consist of the following components: 

1. System control programs 

2. Linkage editor program 

3. Librarian maintenance programs 

4. Librarian organization programs 

5. Librarian service programs 

6. Processing programs 

a. Language Translators 
(1) . Assembler 

(2). COBOL 
(3). FORTRAN 
(4). RPG 
(5). PL/I 

b. Sort/Merge 

c. Utilities 

d. Autotest 

e. User programs 
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SECTION 2: SYSTEM RESIDENCE ORGANIZATION 



This section presents the organization of a 
disk resident system as received from the 
Program Information Distribution Center 
(PID) and after system generation. 

The user receives the disk resident 
system on a 2311 disk pack. Certain areas 
of the disk pack are predefined. These 
areas and their content are as follows: 

1. IPL . This area contains the IPL 
bootstrap program and the volume label. 

2 . System directory . This area contains 
the system master directory. It 
consists of records that show the 
status, location, description, and 
allocation of each library and 
directory in the system. This area 
also contains the IPL retrieval program 
($$A$IPL2). 

3 - System work area ( Librarian area ) . 
This area is reserved for use as a 
system work area by the linkage editor, 
job control, and the librarian 
programs . 

4. Transient directory. This area* 
contains the directory of the transient 
routines located in the core image 
library. 

5. Open (LIOCS) directory . This area 
contains a directory of the phases of 
the logical input/output control 
section (LIOCS) OPEN function. 

6 . Library- routine directory . This area 
contains a directory of the system 
programs located in the core image 
library. 

7 . Foreground Program directory . This 
area contains a directory of the 
foreground program phases. 

8 . Phase directory . This area is reserved 
for the directory of phases of a 
problem program. 

9 . Core image directory . This area 
contains the directory of all the 
phases in the core image library. 

10. Core image library . This area 
contains the following programs, in 
core image format: 

a. System control programs 

• IPL program ($$IPLRT2) 



• Supervisor control program 
($$A$SUP1), includes PIOCS. 



• Job control program ($JOBCTLA) 

b. Linkage Editor Program ($LNKEDT) 

c. Librarian programs 

• Common library maintenance (MAINT) 

• Core image library maintenance 
(iyiAINTC2) 

« Relocatable library maintenance 

(MAINTR2) 

• Source statement library 
maintenance (MAINTS2) 

• Transient and library- routine 
directory update program 
($iyiAINEOJ) 

• Library condense (MAINTCN) 

• Store condense limits (MAINCL) 

• Library reallocation (MAINTA) 

• Copy system (CORGZ) 

• Directory service (DSERV) 

• Relocatable library service 
(RSERV) 

• Source statement library service 
(SSERV) 

d. Processing programs 

• Assembler 

11- Relocatable library directory . This 
area contains the directory of all the 
modules in the relocatable library. 

12. Relocatable library ^ This area 

contains programs in relocatable format 
(language translator output). All 
programs that are in the core image 
library are contained in this area. In 
addition this area can contain the 
following programs: 

• COBOL 

• FORTRAN 

• RPG 
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• PL/ 1 

• Sort/Merge 
« Utilities 

• Autotest 

13. Source statement directory . This area 
contains the directory of all the books 
in the source statement library. 

14. Source statement library . This area 
contains books in source- language 
format. The books supplied are macro 
definitions in the assembler 
sub-library. Included are the 
supervisor macros and the logical IOCS 
macros . 



SYSTEM RESIDENCE ORGANIZATION AFTER 
GENERATION 



Once system generation is completed, the 
user has a system residence that is 
specifically designed for his configuration 
and special features. 

Certain areas of any system residence 
are fixed and do not change. Figure 3 
shows the organization of a full system 
residence. 

• Items 1 through 10, and 15 are required 
in any system residence. 

• Items 1 through 9 have fixed locations. 



• Items 10 through 16 have variable 
locations that are dependent on the 
existence and allocation (size) of 
preceding items. 

• Items 11-14 and 16 are optional. If 
one or both of the optional libraries 
(items 12 and 14) are not allocated, 
the associated directory is not 
allocated. 

• The directory of each library- 
directory pair (items 9, 11, and 13) 
starts on a new cylinder (CO at track 
(HH) 00. 

• The library of each library-directory 
pair starts on a new track (HH) and 
utilizes all of the last allocated 
cylinder (HH = 9) . 

• The volume area (item 15) requires a 
full cylinder. 

• System residence is contained in a 
contiguous area of the disk pack. The 
starting address is (BB = 00, CC = 00, 
HH = 00, and R = 1) . The ending 
address is (BB = 00, CC = nn, HH = 09, 
and R = n) . 

nn = the cylinder assigned to the 

volume area. It is dependent on 
the allocation specified by the 
user for the core image, 
relocatable, and source 
statement library and directory 
pairs. 

n = the last record of the last 
track of the volume area. 
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NO. 




roupnkiFMT 


STARTING DISK ADDRESS 


NUMBER 
OF TRACKS 
(Allocation) 


R= REQUIRED 
0= OPTIONAL 




BB 


cc 


HH 


R 


1 


IPL Bootstrap Record 1 ($A$IPL1) 


00 


00 


00 


1 


1 


R 


IPL Bootstrap Record 2 ($A$IPLA) 


00 


00 


00 


2 


R 


SYSRES Vol Label (Z) 


00 


00 


00 


3 


R 


User Vol Label 


00 


00 


00 


4 


O 


2 


System 
Directory 


Record 1 


00 


00 


01 


1 


1 


R 


Record 2 


00 


00 


01 


2 


R 


Record 3 


00 


00 


01 


3 


R 


Record 4 


00 


00 


01 


4 


R 


IPL Retrieval Program ($$A$IPL2) 


00 


00 


01 


5 


R 


3 


System Work Area (Librarian Area) 


00 


00 


02 




3 


R 


4 


Transient Directory ($$A and $$B Transients) 


00 


00 


05 




1 


R 


5 


Open Directory ($$B0) 


00 


00 


06 




1 


R 


6 


Library Routine Directory ($ Phasenames) 


00 


00 


07 




1 


R 


7 


Foreground Program Directory (FGP) 


00 


00 


08 




1 


R 


8 


Phase Directory (For Problem Program Phases) 


00 


00 


09 




1 


R 


9 


Core Image Library Directory 


00 


01 


00 




•k 


R 


10 


Core Image Library 


00 


End of CI Directory 




* 


R 


X 


Y+1 


n 


Relocatable Library Directory 


00 


End of CI Library 




* 


O 


A+1 


00 


12 


Relocatable Library 


00 


End of RL Directory 




* 


O 


X 


Y+1 


13 


Source Statement Library Directory 


00 


End of RL Library 




* 


O 


B+1 


00 


14 


Source Statement Library 


00 


End of SS Directory 




* 


O 


X 


Y+1 


15 


Volume Area (Label Storage Area) 




End of SS Library 




10 


R 


C+1 


00 


16 






End of Volume Area 




* 


O 






C+2 


00 



X = Ending CC of the Preceding Directory 
* = Allocation Dependent on User Requirements 
A = Ending CC of Core Image Library 
B = Ending CC of Relocatable Library 
C = Ending CC of Source Statement Library 
Y = Ending HH of the Previous Directory 

Z = This Volume Label Contains the Address of the VTOC Established when 
the Pack was Initialized. 

Figure 3. System Residence Organization 
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IPL 



Refer to Section 4; System Control 
Programs for information on IPL record 
f ornats. 



The core image library phases that are 
referenced in this directory have a phase 
name prefixed by $$A (type A transients) or 
$$B (type B transients). This directory 
has a maximum capacity of 144 entries. 
Track format is identical to the core image 
library directory (see Figure 6). 



SYSTEM DIRECTORY 



OPEN DIRECTORY 



This directory consists of five records 
that make up the system master directory. 
Records 1 through 4 are 80 bytes in length. 

Records 1 through 3 contain information 
describing the core image library and 
directory^ the relocatable library and 
directory, and the source statement library 
and directory, respectively. 

Record 4 contains information describing 
the allocation of the library and directory 
pairs, and the beginning cylinder number of 
the Label (Volume) area. 

Record 5 is the IPL retrieval program 
($$A$IPL2) . 

Figure 4 shows the record formats of the 
system directory records. 



TRANSIENT DIRECTORY 



This single track directory contains 
entries for the A and B transient routines, 
which are located in the core image 
library. The entries in this directory are 
taken from the core image library 
directory. A separate directory permits 
faster retrieval of the A and B transients. 



This single track directory contains 
entries for the LIOCS open phases located 
in the core image library. The entries in 
this directory are taken from the core 
image library directory. A separate 
directory permits faster retrieval of LIOCS 
open phases. The core image library phases 
referenced in this directory have phase 
names prefixed by the characters $$B0. 
This directory has a maximum capacity of 
144 entries. Track format is identical to 
the core image library directory (see 
Figure 6) . 



LIBRARY ROUTINE DIRECTORY 



This single-track directory contains 
entries for frequently used core image 
library phases such as job control, linkage 
editor, etc. The entries in this directory 
are taken from the core image library 
directory. A separate directory permits 
faster retrieval of these phases. The core 
image library phases that are placed in 
this directory have a phase name prefixed 
by a $, (example $LNKEDT) . This entry has 
a maximum capacity of 144 entries. Track 
format is identical with the core image 
library directory (see Figure 6). 
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Formaf of records 1 - 3 (Record 1, contains core image directory and library informaHon; record 2, relocatable directory and 
library infornxation; and record 3, source statement library and directory information.) 





7 


15 


23 


30 


37 


44 


46 


48 


50 


52 


54 


56 


79 


BBCCHHR 


BBCCHHRE 


BBCCHHRE 


BBCCHHR 


BBCCHHR 


BBCCHHR 


XX 


XX 


XX 


XX 


XX 


XX 


RESERVED 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


W 

13 
1 1 


Fields (The 1st byte contains blank and the remainder of the record contains zeros 
if no library allocated). 

1 . Starting address of the directory. 

2. Address of the next available entry in the directory. 

3. Ending address of the directory including last entry. 

4. Starting address of the library. 

5. Address of next available entry in the library. 

6. Ending address of the library. 

7. Number of active entries in the directory. 

8. Number of blocks allocated for the library. 

9. Number of active blocks in the library. 

10. Number of deleted blocks in the library. 

1 1 . Number of blocks available for additions. 

12. Automatic condence limit 

13. Reserved 


Format of record 4 (G>ntains allocation information for each system library and directory.) 





2 


4 


6 


8 


10 


12 


13 


■ 
79 


C 


C 


T 


T 


C 


C 


T 


T 


C 


C 


T 


T 


C 


RESERVED 

u 


1 


2 


3 


4 


5 


6 


7 


8 

H 


Fields (The fields contain zeros if not allocated.) 

1. Total number of cylinders (library +di rectory) | 

2. Number of directory tracks f core image 

3. Total number of cylinders (library +directory) \ 

4. Number of directory tracks f relocatable 

5. Total number of cylindere (library +directory) \ 

6. Number of directory tracks / source statement 

7. Address of label storage cylinder, C, (volume area). 

8. Reserved 


Record 5 (IPL retrieval program- $$ A $IPL2) 



Figure 4. System Directory Record Formats 



FOREGROUND PROGRAM DIRECTORY 



This single track directory contains 
entries for the foreground program phases 
located in the core image library. The 
entries in this directory are taken from 
the core image library directory. A 
separate directory permits faster retrieval 
of foreground program phases. The core 
linage library phases referenced in this 



directory have phase names prefixed by the 
characters FGP. This directory has a 
maximum, capacity of 144 entries. Track 
format is identical to the core image 
library directory (see Figure 6). 
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SYSTEM WORK AREA (LIBRARIAN AREA) 



This 3-track area is reserved as a work 
area for the librarian programs and job 
control. The format of the records in the 
librarian area is dependent upon the 
program using the area at a specific time. 
Figure 5 shows the record formats that may 
be found in the librarian area. 



The maximum capacity of this directory 
is 144 entries. Track format is identical 
to the core image library directory (see 
Figure 6) • 



CORE IMAGE LIBRARY DIRECTORY 



PHASE DIRECTORY 



This single track directory contains 
entries for the phases of the current 
problem program. The entries in this 
directory are constructed by job control 
before each job step is executed. They are 
taken from the core image library 
directory. A separate directory permits 
faster retrieval of the phases of a 
program. 

The phase naming conventions used to 
permit the use of the phase directory are: 

1. All program names must be unique in the 
first four characters. 

2. The first four characters of the name 
of each phase of a program must be 
identical to the first four characters 
of the program name. All 8 characters 
of the first phase name must be 
identical to the program name. 

Example: WXYZPROG 

WXYZPROG - phase 1 
WXYZPHl - phase 2 
WXYZPH2 - phase 3 



This directory consists of one or more 
tracks, dependent on the allocation 
specified by the user. It contains one 
entry for each of the phases in the core 
image library. 



Note: A phase is an overlay of a 

multiphase program or a complete 
program if not multiphase. 



Each directory entry describes one phase 
in the core image library and contains: 

• Phase name 

• Loading address 

• Entry point 

• Starting disk address in the core image 
library 

• Number of blocks 

• Length of last block 

Figure 6 shows the tracks block, and 
entry format of the core image library 
directory. 
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As used by Job Control 



Each 
Track 



Block 1 



Block 2 



Block 3 



Block 41 (maximum) 




Block 2 




1 Entry (20 Bytes) 










Phase 
Name 


Load 
Address 


No. of 
Jlocks 


Entry 
Address 


CI Library 
Address (CHR) 


Length of 
Last Block 


Number 
of Bytes 


8 


3 


1 


3 


3 


2 



As used by Linkage Editor ($LNKEDTA phase) 



Each 
Track 



Block 




Block 2 



Block 3 



Block 4 



Number 
of Bytes 



-'»-, !.. ■■ ^..j..... i.'..', ■■ ■■■- -■- .. ...,. ,.'" ''.;.> n.^,.L'.u.. .^.....v.. ...1-1 1. A.J. ■!?-»)' iV „..i.iiA.>....i\. ^2...\\,i^. 



Blocks 



Block X 



Unblocked Phase Entries (24 Bytes Each) 



Phase 
Name 



NNNNNNNN 



Entry 
Address 



EEEE 



No. of 
Blocks 



BB 



Length 
of Last 
Block 



LL 



CI Library 
Address 



CHHR 



Load 
Address 



LLLL 



Note: This area is also used by the Reallocation Program (MAINTA) for temporary storage of the Volume Label. 
Figure 5, System Work Area Record Formats 
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Core Image 

Library 

Directory 




1 Track 
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1 1. 










Liylii oou- uyie uiucKb 
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ock 
































-Eight 


een 20- Byte Entries 












































1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


n 


12 


13 


14 


15 


16 


17 


18 





















1 Entry 














|i|j||| 


llllll 


llllij 


.•til . 




















z.\j Dyres 


















• 





8 


11 


12 


15 


18 


N 


N 


N 


N 


N 


N 


N 


N 


C 


C 


C 


B 


E 


E 


E 


C 


H 


R 


L 


L 


1 


2 


3 


4 


5 


^ 1 



Field 

1 . Phase Name 

2. Loading Address 

3. Number of Blocks 

4. Entry Point 

5. Phase Address 



8 characters from the PHASE card, (an * in the first byte indicates the logical end of 
the directory). 

3- byte hexadecimal storage address provided at linkage edit time. (Can be overridden 
at object time). 

the number of physical records (blocks) required to contain the phase in the core image 
library. 

3- byte hexadecimal storage address of the first instruction to be executed. Provided at 
linkage edit time (can be overridden at object time). 

starting disk address of the first block of the phase in the core image library. The 3- byte 
address (CHR) is expanded to 5 bytes (OCOHR) by the using routine. 



6. Number of Bytes in the Last Block each block of a phase contains 1728 bytes of data, except the last block, which can 

contain fewer data bytes. The data in the last block is padded into a 1728- byte record. 



Figure 6. Core Image Directory Format 
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CORE IMAGE LIBRARY 



The core image library consists of one or 
more tracks, dependent on the allocation 
specified by the user. Each allocated 
track contains two blocks with a maximum 
capacity of 1728 bytes each. The number of 
programs (phases) and the size of each 
program to be contained in the core image 
library dictates the number of tracks that 
must be allocated. Each program starts 
with a new block and only the last block of 
a program can contain less than 1728 bytes 
of data. The last block, if less than 1728 
bytes of data, is padded with zeros. 



Note ; A phase is an overlay of a 

multiphase program or a complete 
program if not multiphase. 

Figure 7 shows the organization of the 
core image library. 



RELOCATABLE LIBRARY DIRECTORY 



This directory consists of one or more 
tracks, dependent on the allocation 
specified by the user. It contains one 
entry for each module in the relocatable 
library. 



r 



Core image directory 



Core image library 



Relocatable library directory 



,^ First Track | 


i'i 


Block 1 




Block 2 


' \ PHASE A 


PHASE A 




Block! 
of 

Phase A 
(1728 Bytes) 




Block 2 
of 

Phase A 
(1728 Bytes) 



1 r 



t \\ 



,H 



[ I > , i 
1 I It 1 



1 ! 

'l 1 



1 



'I 1 






% 



Second Track | 


Block 1 


Block 2 


Phase A 


Phase B 


Block 3 
of 

Phase A 
(* Bytes) 


Block 1 
of 

Phase B 
(* Bytes) 



I 1 







nth Track | 


1 ^^''''^ ^ 


Block 2 


■ Phase N 


Next Phase to be 
cataloged, starts 
here 

(1728 Bytes) 




Block X 
of 

Phase N 
(* Bytes) 





* The last block of each phase can 
contain less than 1 728 bytes of data. 
However/ the block is padded with 




Figure 7. Core Image Library Format 



Last Track 



Track 09 of last core image library cylinder 



Block 1 
(1728 bytes) 



Block 2 
(1728 Bytes) 
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Note ; A module is the term applied to the 
output of a complete language 
translator run. 



Each directory entry describes one 
module in the relocatable library and 
contains : 



• Starting disk address of the first 
text-record of this module. 



Figure 8 shows the track, block, and 
entry format of a single track in the 
relocatable library directory. 



• Module name 

• Total number of text- records (blocks) 
required to contain this module 



Core image library 



Relocatable library 
directory 



Relocatable library 



:.:•:• 1 Track 







KIT 


QOO L..i. 
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Twenty-three 14-byte entries 
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H 


H 


R 
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2 
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FIELD 

1 . Module Name - 8 characters from the "CATALR" control statement. 

An * in the first character indicates the logical end 

of the directory. 

2. Number of - Total number of text records (BLOCKS) required to 
Blocks contain this module. 

3. Disk Address - Starting disk address of the first text record (BLOCK) 

of this module in the relocatable library. 

Figure 8. Relocatable Library Directory Format 
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RELOCATABLE LIBRARY 



The relocatable library consists of one or 
more tracks, dependent on the allocation 
specified by the user. The number of 
modules and the size of each module to be 
contained in this library dictates the 



number of tracks which must be allocated. 
Each allocated track contains nine blocks 
with a fixed length of 322 bytes each. 
Each module starts with a new block but not 
necessarily a new track. 

Figure 9 shows the organization of the 
relocatable library. 



Relocatable Librar/ Directory 



Relocatable Library 



Source- Statement Library Directory 



First Track | 


Block 

1 


2 


3 


4 


5 


6 


7 


8 


9 




Module A — 


















Blocks 1, 2, and 3 
of Module A 
3x322 = 966 Bytes 


Blocks 1, 2, 3, and 4 
of Module B 
4x322 = 1288 Bytes 


Blocks 1 and 2 
of Module C 
2x322 =644 Bytes 



Module C, Overflowed to Next Track jjijijjiijiii 



Second Track | 


Block 
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2 


3 


4 


5 


6 


7 


8 


9 






Module D - 
















Blocb 3, 4, 5, and 6 
of Module C 
4x322 = 1288 Bytes 
Module C Total Byte Count = 


= 1932 


Blocks 1, 2, 3, 4, and 5 
of Module D 
5x322 = 1610 Bytes 
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Track 09 of last relocatable 


library cylinder 







Figure 9. Relocatable Library Format 
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SOURCE STATEMENT LIBRARY DIRECTORY 



SOURCE STATEMENT LIBRARY 



This directory consists of one or more 
tracks, dependent on the allocation 
specified by the user. It contains one 
entry for each book in the source statement 
library, 

Note: A book is the name given to a 
sequence of source language 
statements, in compressed card image 
format, that are accessed by a 
single name. 

Each directory entry describes one book 
in the source statement library and 
contains: 

• A sublibrary prefix (A = Assembler, C = 
COBOL) 

• Book name 

• Starting disk address of the first 
block of this book 

• Total number of blocks required to 
contain this book in the source 
statement library 



The source statement library consists of 
one or more tracks, dependent on the 
allocation specified by the user. The 
number of books and the size of each book 
to be contained in this library dictates 
the number of tracks which must be 
allocated. Each track contains 16 blocks 
with a fixed length of 160 bytes per block. 
Each book starts with a new block but not 
necessarily a new track. Each book in the 
source statement library contains 
compressed card- images of the source 
language input to the assembler or COBOL 
language translators. A compressed card 
image can overflow from one block to 
another. 



Refer to Section 6; Source Statement 
Library Maintenance Program for individual 
record formats. 



Figure 11 shows the organization of the 
source statement library- 



Figure 10 shows the track, block, and 
entry format of the source statement 
library directory. 
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Field 

1 . Sublibrary prefix - an "A" for the assembler, a "C" for COBOL. An * in this 

field indicates the logical end of the directory. 

2. Book name - 8 characters from the "CATALS" control statement. 

3. Disk address - starting disk address of the first block of this book. 

4. Number of blocks - the total number of blocks required to contain this book in 

the source statement library. 

Figure 10. Source Statement Library Directory Format 
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V. 


Source Statement 
Library Directory 


N 




Source Statement 
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V. 


Volume Area 
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Book A 


BookB 


BookC 


Blocks 1 - 5 of Book A 
5 X 160 = 800 Bytes 


Blocks l-7of BookB 
7x 160 =1120 Bytes 


Blocks 1-4 of BookC 
4x 160 = 640 Bytes 
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Figure 11. Source Statement Library Format 
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SECTION 3: SUPERVISOR GENERATION AND ORGANIZATION 



This section of the manual discusses 
supervisor generation in the first three 
major subsections. The first subsection 
describes general supervisor generation 
techniques. The second subsection 
describes the supervisor generation macros 
and their optional operands. The third 
subsection describes the relationship 
between the outer supervisor generation 
macros and the inner macros that generate 
the bulk of the supervisor code. 

Organization is discussed in the last 
major subsection^ 

To understand the third subsection, 
refer to the IBM publication that explains 
macro definition language structure and 
usage. With this information, an SSERV 
listing of the supervisor generation 
macros, and the PLM material, the reader 
can identify those sections of code that 
are generated for his own supervisor 
program. The basic instruction used in 
macro definition language is the AIF (ask 
if) statement. The following examples show 
how it is used: 

1. AIF (SBG20).MP1 

This instruction asks if 
multiprogramming support is required 
(refer to Figure 13 for interpretation 
of BG20). If BG20 is on, the next line 
in the SSERV listing that is 
significant is found at the label, 
.MPl, and any intervening code is 
rejected by the language translator. 
If BG20 is not on, the next sequential 
line on the SSERV listing is 
significant. 

2. AIF (NOT gBG20).NO23 

This instruction tests the opposite 
status of the BG20 switch. In this 
case, the line at location .N023 is the 
next significant line in the SSERV 
listing only when BG20 is not on, that 
is, only when multiprogramming support 
is not required. 

A detailed description of the AIF 
instruction and the other instructions used 
in the SSERV listing is given in the 
Systems Reference Library (SRL) 
publication; IBM System/360 Disk and Tape 
Operating Systems, Assembler 
Specifications , Form 024-3414. 

Basic supervisor organization is 
described by a core map and descriptions of 
the various I/O tables and information 
blocks in the fourth subsection. 



SUPERVISOR GENERATION 



The supervisor is assembled with a series 
of macros that describe the installation's 
functional requirements, and its 
configuration. At system generation time, 
a source deck containing the supervisor 
generation macros is assembled into an 
object deck. The job control program 
places the results of the assembly on 
SYSLNK (I/O device for the linkage editor 
program) and calls the linkage editor 
program. The deck is link-edited and 
cataloged to the core image library on 
SYSRES. A corresponding core image library 
directory entry is posted for the new 
supervisor and the Program Information 
Distribution (PID) supervisor directory 
entry is deleted. 



Normally, a condense maintenance program 
would then be executed to remove the PID 
supervisor from the core image library. 
The procedures and sequence of events used 
in system generation are described in the 
IBM publication on system generation and 
maintenance ( IBM System/360 DOS System 
Generation and Maintenance , C24-5033). 



Whenever a new supervisor generation is 
required by the user the same general steps 
are taken: 



Punch the macro instructions, together 
with the selected optional operands, 
into a card deck. 



Execute an assembly and put the object 
modules on SYSLNK (using an include 
control statement with no operand) via 
the job control program. 



3. Link-edit the new supervisor cataloging 
it to the core image library, deleting 
the old supervisor directory entry, and 
posting the new supervisor directory 
entry. 



Execute a maintenance program to 
condense the core image library, 
deleting the old supervisor program. 



Re-IPL with the new supervisor. 
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Supervisor Generation Macros • Macro parameters (where there is an 

assumed value, that value is 
underlined) . 

The following list of supervisor macros and 

optional operands is presented to give the 

reader: • A brief description of what the 

generated macro does. 

• Supervisor generation macro names. 

• A brief description of what the 

• Required macro sequence (as listed) . individual parameter options do. 
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Name 


Macro 
Description 


Parameter = Opt Ion 


Option Description 


SUPVR 


Describes 

system 

environment 


SYSTEM = /TAPE) 
(DISK/ 

MPS=/NO\ 
(YES/ 


Indicates the system residence, 
SYSRES, device type 

Indicates multiprogramming 
support. If YES is specified, 
the system generated is capable 
of supporting 2 foreground 
programs. 






TP = /NO » 
( BTAM / 


Indicates Teleprocessing sup- 
port is desired. BTAM is valid 
onlyif SYSTEM = DISK. 


CONFG 


Describes 
hardware 
features 


MODEL = |30| 
1 nn/ 

SP = /NO\ 
(YES/ 


nn defines the System/360 
model number (30, 40, etc.). 

Indicates the storage protection 
feature is desired. YES is 
assumed ifMPS = YES in the 
SUPVR macro. 






DEC= /NO) 
(YES/ 


Decimal feature. 






FP=/NO) 
(YES/ 


Floating-point feature. 






TIMER=/NO) 
(YES/ 


Timer feature. TIMER = YES 
the supervisor macro GETIME 
is supported. 


STDJC 


Sets standard 
values for 
job control 
variables. 


DECK =/ YES) 
(NO/ 

LIST = / YES 1 
(NO/ 


Output modules on SYSPCH. 

Source modules listings from 
language translators onSYSLST. 






XREF = /YES ) 
(NO/ 


Language translators output 
symbolic cross-reference lists 
on SYSLST. 






ERRS = / YES) 
(NO/ 


Compilers summarize all errors 
in source programs on SYSLST. 






LOG =/ YES) 
( NO/ 


Listing of all control statements 
on SYSLST. 






DUMP=/YES) 
(NO/ 


Dump of registers and main 
storage on SYSLST. 






UMas=|^| 


Number of lines per page on 
SYSLST. 






DATE = /MDY) 
( DMY / 


Format of date. 






CHARSET = /48C) 
(60C/ 


Specifies the 48 or 60 charac- 
ter set for language translator 
input on SYSIPT. 






LISTX= (NO ) 
(YES/ 


Hexadecimal object module 
listings from compilers on 
SYSLST. 






SYM=/NO) 
(YES/ 


Assembler output symbol tables 
on SYSPCH. 



Nome 


Macro 
Description 


Parameter = Option 


Option Description 


FOPT 


Describes 


-={i} 


Operator initiated communica- 




functional 


tions to problerf) programs. If 




supervisory 




OC = YES the facility is avail- 




options 




able to all programs in MPS. 






-={^} 


Problem program routine for 






program check. If PC = YES, 








the facility is avoilable to all 








programs in MPS. 






IT=,NO ■ 


Problem program ability to set 






BG 


timer intervals and specify a 






r' I 


timer interrupt routine. BG, 






'f2 ' 


Fl, or F2 indicates which pro- 
gram has the facility. Fl or 
F2 is valid only in MPS. 






TEB=|^| 


Tape error statistics are to be 
accumulated and logged where 
n is the number of tape drives 
attached to the system. 






CCHAIN = /NO) 
(YES/ 


Command chaining support for 






retry on I/O operations. 






DASDFP = 


Supervisory DASD file protec- 






( NO ) 


tion, where (n,n) indicates the 






range of channels to which 






DASD's may be attached. 








2321 option indicates the 








presence of a 2321 device. 






SYSFIL = 


System input and system output 






/ NO ) 


(SYSRDR, SYSIPT, SYSLST, 
SYSPCH) files may be assigned 


t(231l[,nl,n2])/ 








to a 2311, 








nl = residual capacity (in 








records) for beginning of oper- 








ator notification when SYSLST 








is assigned to a 231 1 . 








100 < nl < 65536 








If nl is omitted, 1000 is 








assumed. 








n2 = residual capacity (in 








records) for beginning of oper- 








ator notification when SYSPCH 








is assigned to a 231 1 . 








100 < n2 < 65536 








If n2 is omitted, 1000 is 








assumed. The SYSFIL parameter 








and its options is valid only 








whenSYSTEM = DISKinthe 








SUPVR macro. 
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Nome 


AAacro 
Description 


Parameter = Option 


Option Description 


PIOCS 


Describes the 
system I/O 
configuration 


SELCH=/YES\ 
INO/ 

BMPX = /NO\ 
(YES/ 


Selector channels attached to 
the system. 

Burst mode devices will be 
supported on multiplexor 
channel. 






CHANSW=(NO J 
^'RWTAU ) 

(tswtch^ 


Channel switching tope control 
xjnit . RWTAU = 2404 or 2804, 
TSWTCH =2816. If either 
2404 or 2804 and 2816, RWTAU 
must be specified. 






TAPE=(9 ) 


Indicates required tope PIOCS 
support. 9 = nine track only. 
This is the assumed value when 
SYSTEM =TAPE. 
7 = seven or nine track. 
NO = No tope drives attached. 
Invalid when SYSTEM = TAPE. 
This is the assumed value when 
SYSTEM = DISK. 


ALLOC 


Partitions 
storage for 
MPS (Op- 
tional macro). 


JFl=nK, F2=nK( 


Specifies storage partitioning 
MPS, where n must be a mul - 
tipleof 2. 


lOTAB 


Describes in- 
stallation 
requirements 
for I/O 
tables. 


IODEV = |10| 
BGPGR = |10> 


Number of I/O devices 
attached to the system. 

Number of symbolic units of the 
class SYSnnn for the back- 
ground program. 






nPO.=|,| 


Number of symbolic units for 
Fl. Valid only in MPS. 
Otherwise zero is assumed. 






«PO.=|,| 


Number of symbolic units for 
F2. Valid only in MPS. 
Otherwise zero is assumed. 






CHANQ = |6-8| 


Number of I/O requests in the 
channel queue. 6 assumed if 
SY5TEM = DISK, 8 assumed if 
SYSTEM =TAPE. 






''-{1} 


Number of Job Information 
Blocks (JIBs) for the system. 
Requirements ore: 

1 . One JIB for each temporary 
logical unit assignment. 

2. One JIB for eoch alternate 
logical unit assignment. 

3. One JIB for each open 

231 1 extent with the DASD 
file protect feature. 

4. Two JIBs for each open 
2321 extent with the DASD 
file protect feature. 



DVCGEN 



Name 



ASSGN 



SEND 



Macro 
Description 



Specifies 
l/O devices. 
Each device 
type requires 
a separate 
DVCGEN 
macro. (See 
note 1 for 
DVCGEN 
rules. This 
is an option- 
al macro.) 



Sets standard 
background 
I/O assign- 
ments. A 
separate 
macro is re- 
quired for 
each stan- 
dard assign- 
ment desired. 
(Optional 
macro) 
CAUTION; 



Parameter = Option 



CHUN= jX'cuu' J 

DVCTYP= jxxxxxxj 

CHANSW=/NO\ 
I YES/ 

MODE= jX'ss' [ 
! SYSxxx,X'cuu' [ 



The ASSGN 

macro allows 

SYSRDR, 

SYSLST, 

SYSPCH, 

and 

SYSIPT to be 

assigned to a 

tape or 

DASD. 

However, 

IPL unossigns 

any such 

assignments. 

Indicates 
end of 
supervisor 
generation. 



Option Description 



Specify the hexadecimal numb'er 
of the channel and unir for the 
device. 

Specify the device type. See 
Figure 26. 

Specify if the device is 
attached to more than one 
selector channel. If it is, the 
device con be switched. 

Indicate the mode setting. (For 
seven track tapes only. ) The 
assumed value for ss is 90. See 
Figure 27 for other values. 

SYSxxx Is any background 
symbolic logical unit (SYSIPT, 
SYSLOG, etc.) or programmer 
logical unit (SYSOOO, SYSOOl , 
etc.). X'cuu' is the hexa- 
decimal number of the channel 
and unit to which the symbolic 
device is attached. 



Specifies the beginning address 
of the problem program area. 
An area should be reserved for 
supervisor expansion and 
maintenance. The parameter 
is optional. If not specified, 
no area is reserved beyond the 
assembled lost address of the 
supervisor. 



Rules for Using DVCGEN 

1. A separate DVCGEN macro instruction is required for each device. 

2. The totol number of DVCGEN macros must not exceed the total number of devices specified in the lODEV parameter of the lOTAB macro. 

3. DVCGEN macros must be specified in ascending channel address sequence. 

4. Switchable units (attached to more than one selector channel) must be defined once. They ore defined on the lowest channel on which they are addressable. 

5. The sequence of the DVCGEN cords determines the priority of the devices on their channel . Switchable units must be the lost devices for the channel. 

6. The specifications of these macros may be altered by IPL ADD and DEL statements. See Section 4: Initial Program Load. 
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Macro Relationships 



The code generated by the assembler for any 
selected supervisor generation is a 
function of certain macros named in the 
preceding subsection (generation macros) 
and a group of inner macros called by the 
generation macros. The primary purpose of 
the generation macros is to set global 
values, based on parameter options, that 
can be tested by the inner macros. These 
macros then generate the bulk of the 
supervisor code. The specific instructions 
assembled depend on the global settings. 
Some of the generation macros also generate 
code; however, these can be treated as 
exceptions and are identified in this 
subsection. 



The most important global values used in 
supervisor generation are the B-globals. 
Therefore, this subsection emphasizes the 
generation macros that establish B-global 
values. However, some A-globals are tested 
in the same manner as B-globals. These are 
also described in this subsection. 
A-globals that provide arithmetic values 
and all C-globals are not described. Two 
figures in this subsection show macro 
relationships. Figure 12 shows the code 
generated, if any, and the globals set, if 
any. Figure 13 indicates the on-off 
conditions of the globals. 



Macro 


Type 


Code Generated 


Critical 
Globals Set 


SUPVR 


generation 


Defines low main storage 


BGO 

BG20 

BG2] 


CONFG 


generafion 


None 


BG1 
BG2 
BG22 
BG23 


STDJC 


generation 


None 


BG34 


FOPT 


generation 


General cancel 
General exit 
General entry 
Communications region 


BG6 

BG7 

BG8 

BG30 

BG32 

BG33 

AG21 

AG22 

AG23 


PIOCS 


generation 


None directly colls inner macros 


BG3 

BG4 

BG9 

BG10 

BG11 

BG12 

BG31 


SGTCH 


inner 


Channel scheduler 
Start I/O 
I/O Interrupt 


none 


SGUNCK 


inner 


Unit check 

Error recovery exits 


none 


SGDFCH 


inner 


Fetch subroutine 


none 


SGSVC 


inner 


Supervisor interrupts 
Program check interrupts 
External interrupts 


none 


SGDSK 


inner 


Disk error recovery 


none 


SGTCON 


inner 


SVEREG subroutine, VLDADR1 
subroutine, ATNRTN routine, 
CCW chain, SVC interrupt 
table, logical transient save 
area, disk information blocks, 
error recovery block, PC option 
table, IT option table, and OC 
option table. 


none 


ALLOC 


generation 


None 


none 


lOTAB 


generation 


Supervisor table expansions - 
PIBs, channel queue table 
(CHANQ), LUB table, PUB 
table, TEBs, and JIBs 


none 


DVCGEN 


generation 


Overlays for PUB table entries 


none 


ASSGN 


generation 


Overlays for LUB table entries 


none 


SEND 


generation 


Defines end of supervisor 
nucleus, beginning of A and B 
transient areas, start of problem 
program area, BG save area. 


none 



Figure 12. Macro Functions 
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Global 


l\jrpose 


On Setting 


BGO 


Det-ermlnes whether fhe system is tape 
or disk. 


SYSTEM = DISK 


BGl 


Determines whether the storage protect 
feature is used. 


SP= YES 


BG2 


Determines whether the timer feature 
is used. 


TIMER = YES 


BG3 


Determines whether channel switching 
is supported (2816). 


CHANSW = TSWTCH 


BG4 


Determines if tape error statistics are 
to be accumulated and logged. 


TEB = n 


BG5 


Reserved 




BG6 


Determines if the asynchronous user 
interrupt key routine is supported. 


OC = YES 


BG7 


Determines whether the internal timer 
option is supported. 


IT=F1, or F2, or BG 


BG8 


Determines if the user program check 
routine is supported. 


PC = YES 


BG9 


Determines whether channel switching 
is supported (2404,2804). 


CHANSW = RWTAU 


BGIO 


Indicate whether selector channels are 
supported. 


SELCH = YES 


BGll 


Indicates whether burst mode devices 
will be supported on the multiplexor 
channel . 


BMPX = YES 


BG12 


Determines the type of tape support 
required. 


TAPE = 7 or 9 


BG20 


Determines whether multiprogramming 
support IS required. 


MPS = YES 


BG21 


Determines whether Tele-^ocessing 
support is required. 


TP=BTAM 


BG22 


Determines if the decimal feature is 
used. 


DEC = YES 


BG23 


Determines if the floating point feature 
is used. 


FP=YES 


BG30 


Determines if command chaining support 
for retry on I/O operations is used. 


CCHAIN = YES 


BG31 


Determines if 9 track tape support is 
required. 


TAPE = 9 


BG32 


Determines whether the DASD file 
protect feature is supported. 


DASDFP=n,n 


BG33 


Determines if logical system I/O units 
area 2311 disk pack. 


SYSFIL = 2311 


BG34 


Determines the type of date 
configuration to be supported. 


DATE = MDY 


AG21 


Determines if a timer interrupt routine 
is for a BG program. 


IT=BG 


AG22 


Determines if a timer interrupt routine 
is for a F2 program. 


IT=F2 


AG23 


Determines if a timer interrupt routine 
is for a F1 program. 


IT=F1 



ORGANIZATION 



The physical organization of the supervisor 
depends on the sequence of the supervisor 
generation macros. The sequence is 
predetermined and can not be changed by the 
user. The logical organization depends on 
the parameter options selected at 
generation time. Figure 14 describes the 
assembled supervisor by a main storage map. 
The map illustrates the supervisor physical 
organization in four major areas; 

• Low Core 

• Nucleus Code 

• I/O Tables and Information Blocks 

• Logical and Physical Transient Area 

The logical organization is not 
described by this section of the manual. 
Because of the variety of options 
available, the reader must determine the 
logical organization for each individual 
supervisor generation. By using the 
program level flowcharts in Section 4 to 
point to the detailed flowcharts in 
Appendix H, the reader selects the correct 
group of flowcharts for the desired 
generation. 



Low Core 



The main storage locations that make up low 
core can be classified as PSWs, CSWs, CAWs, 
and main storage areas. PSWs, CAWs, and 
CSWs are described in Figures 38, 39 and 
40, respectively. The main storage areas 
include: 



Byte (hex) 
0-4 

0-1 

16 



50 



Figure 13. Global Settings 



54 



80 



Function 

Message area when SYSLOG is 
disabled. 

Contains the error code for 
the SEREP diagnostic program. 

Contains the address of the 
communications region 
physically located within the 
nucleus code. 

Contains the system timer 
used with microprogramming. 

Contains system time of day 
set by job control and IPL, 
updated by the supervisor 
timer routine (optional) . 

Beginning of the diagnostic 
scan- out area. 
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Nucleus Code 



The main storage map (Figure 14) 
illustrates the major routine and 
subroutine organization of the supervisor. 
Specific instructions are included or 
omitted depending on generation options. 
This manual describes the disk error 
recovery as the resident error recovery 
routine. The communications region is part 
of the nucleus coding that does not change 
from generation to generation. Figure 15 
illustrates its structure. The starting 
address of the communications region is 
made available to a user in general 
register 1 through the COMRG macro. 



I/O Tables 



The I/O tables that comprise this section 
of the supervisor are designed to establish 
the interface between a user's program and 
the hardware channels. Collectively, these 
tables are called the system control center 
(Figure 16) . For every device used on the 
system there must be a PUB (Physical Unit 
Block). For every logical unit name 
(SYSXXX) used, there must be a LUB (Logical 
Unit Block). When an I/O request is made, 
and entry is made in CHANQ (the channel 
queue) . 

The entry contains a CCB (Channel 
Command Block) address which, in turn, 
points to a CCB that contains a code (LUB 
table index) for the logical unit name. 

The supervisor processes the request 
when possible on the device assigned to the 
logical unit. If the TEB=YES option was 
selected at supervisor generation time, 
counts of tape errors are kept in TEBs 
(Tape Error Blocks) . 

To understand the interaction between 
the various I/O tables the reader should 
know the classification and sequence of the 
symbolic unit references (SYSXXX). The 
systems class (those symbolic unit names 
reserved for system use) is made up of: 



8 . SYSSLB 

9 . SYSRLB 



1. 


SYSRDR 


2. 


SYSIPT 


3. 


SYSPCH 


4. 


SYSLST 


5. 


SYSLOG 


6. 


SYSLNK 



10, 



11. 



SYSUSE 



SYSFGI 



SYSRES 



Foreground programs can use only the 
system unit names SYSLOG and SYSRES. The 
programmer class (those symbolic unit names 
reserved for programmer use) is made up of 
SYSOOO to SYS2a3. This class is subdivided 
into these classifications: 

1. Background logical unit class (minimum 
of 10). 

2. Foreground two logical unit class 
(minimum of 5) . 

3. Foreground one logical unit class 
(minimum of 5) . 

PUBS are built at system generation or 
IPL time. LUBs are built at system 
generation time. PUBs are assigned to LUBs 
at system generation by the job control 
program, or by the foreground initiator. 
CHANQ and TEB entries are built and 
processed by the supervisor program. 
Figure 17 illustrates the I/O table 
interrelationships.. Figures 18 through 21 
are illustrations of individual I/O tables. 



Information Blocks and Other Tables 



To accomplish functions such as exit 
selection, DASD file protection, and record 
identification, the supervisor program 
requires pertinent information* At 
supervisor generation time certain main 
storage locations are set aside and in some 
cases initialized to supply the required 
information. The basic information blocks 
and their respective functions are: 

PIB (Program Information Block) ; Retains 
program status information for user and 
supervisor programs,. Supplies routing 
information when in a multiprogramming 
environment to allow selective program 
return. Contains pointers and switches 
used by the supervisor program (Figure 22). 

DIB (Disk Information Block) ; Built at 
generation time if the SYSFIL option was 
selected. Performs a recordkeeping 
function on system class units assigned to 
a DASD. The DIB contains the correct seek 
address when the system is operating in a 
batched job environment. The block is 
initialized by job control with extent 
information and updated by physical IOCS 
(Figure 23). 
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JIB (Job Information Block) : Contains 
temporary . and alternate LUB assignments. 
(These blocks are referenced by the LUBs.) 
The JIB serves another purpose when DASD 
file protection is selected as a supervisor 
generation option. Extent information is 
supplied by the program initiator and 
logical IOCS open transient routines. The 
supervisor can then perform the file 
protect function given the protected file 
limits. File protection does not include 
supervisor and transient originated I/O. 
(Figure 2a) . 

OTHER TABLES: Three optional tables 
(program check, interval timer, and 
operator communications) containing user 
supplied address information are also found 
within the supervisor (Figure 25). Save 
areas for background programs and the 



logical transient programs are located 
within the supervisor. The background 
program save area is located just before 
the problem program area of main storage. 
The BG save area contains six subfields: 
program name, PSW, general registers (9 
through 8), label length, 6 reserved bytes, 
and optionally floating point registers.. 



TRANSIENT AREAS; Main-storage locations 
are reserved for both the logical (B) and 
physical (A) transients. Approximately 
1200 bytes are set aside as the logical 
transient area. Approximately 500 bytes 
are set aside as the physical transient 
area (Figure 14). 

Figures 26 and 27 illustrate device type 
codes and tape density data (SS). 
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Note: 

For PSW format 
see Figure 38 • 
For CSW format 
see Figure 40. 
For CAW format 
see Figure 39. 



50 

System 

Timer 



0^ 



■ Reset to zeros after IPL- 



-15 



16 

Comm 
Region 
Address 



18 

External 
Old 
PSW 



20 
SVC 
Old 
PSW 



54 

System 
Time of 
Day 



28 

Program 
Check Old 
PSW 



58 

External 
New 
PSW 



30 

Machine 
Check Old 
PSW 



60 
SVC 
New 
PSW 



38 
I/O 
Old 
PSW 



68 

Program 
Check New 
PSW 



40 
CSW 



48 
CAW 



70 

Machine* 
Check New 
PSW 



4C 
BG Job 
Dura- 
tion 



78 
I/O 
New 
PSW 
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SUPERVISOR NUCLEUS 



General Cancel Routine 



General Exit Routine 



Communications Region 



Entry Register Area 



General Entry Routine 



Execute Channel Program (EXCP) 



I/O Interrupt 



Unit Check 



Fetch 



Other Interrupts 



Option Routines 



SVC Routines 



Resident Device Error Recovery 



Supervisor Constants 



SVC Interrupt Table 



All Bound 
PIB 



FOCL 



BG 
PIB 



Logical Transient Save Area 



F2 
PIB 



F1 
PIB 



Attention 
PIB 



PUB TABLE 



TEB 



FICL 



NICL 



Quiesce 
PIB 



FAVP 



Supervisor 
PIB 



Channel 
Queue 



JIB TABLE 



LUB TABLE 



PATCH AREA 



LOGICAL TRANSIENT AF^EA (B- TRANSIENTS) 
$$B 



PHYSICAL TRANSIENT AREA (A- TRANSIENTS) 

$$A 



BG 

Program 
Save Area 



PROBLEM PROGRAM AREA 



/Low Core 



) Nucleus Code 



< 



I/O Tables 
» and 
Information 
Blocks 



I Logical 
I and 
[Physical 
J Transients 



Figure 14* Supervisor Storage Allocation 
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COMREG 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Note: Displacement values illustrated can be used to access the listing and/or the key that 
follows the figure. The key offers more detailed information about each area when 
necessary. 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 

24 


20 
32 


24 
36 


Date 


Addr 

of 

PPBEG 


Addr 

of 

EOSSP 


Problem Program Use 


UPS! 
Byte 


Job Name 


Highest 
Storage 
Address 


End Address I 
of Last Phase 
Fetched or 
Loaded 


XXXXXXXX 


XX 
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of 
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of 
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XX 


XX 


XX 
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XXXXXXXXX 



58 
88 


59 
89 


5A 
90 


5C 
92 


5E 
94 


60 
96 


62 
98 


64 
100 


Reserved 


LIOCS 
Byte 


PIB 

Table 

Addr 


ID 

Number of 
Last 
Checkpoint 


Lng. of LUB 
ID Queue = 
No. of Channel 
Queue Entries 


Address of 
Disk I/O 
Position Data 
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Error Block 
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PC Option ( 
Table - 8 ) 


X 


X 


XX 


XX 


XX 


XX 


XX 


XX ( 



66 
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XX 



68 
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Table - 8 



XX 



6A 
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Key 
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Figure 15, Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 



Q 
Q 

23 



24 



H 



40 



48 



52 



MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG +53 (date 
convention byte) bit 0. 

Address of the problem program label area. (End of transient area + 1), 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1 , if storage protection 
is supported. 

User area. 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the I PL program. (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.) 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Address of the uppermost byte of the longest phase of the problem program fetched or loaded. The initial value is over^ 
laid by the first fetch or load to the problem program area. 

Length of the problem program label area. 

Program Interrupt Key: Value is equal to the displacement from the start of the PIB table to the PIB for the task. 
First Byte - always zero. 

Second Byte - Contains the key of the program that was last enabled for interrupts. (When an interrupt occurs, 
the PIK indicates to the supervisor which program was interrupted.) 



Task 

*AII Bound 

BG 

*F2 

*F1 

Attn Rtn 

Quiesce I/O 

Supe '•visor 



PIK Value 

X'OO' 
X'lO' 
X'20' 
X'30' 
X'40' 
X'50' 
X'60' 



* These tasks do not exist in a batch- job- only system. (See Appendix H.) 
Logical end of main storage address. 
Configuration Byte (Values set at supervisor generation time.) 

Bit 0: 1 = Storage protect 

= No storage protect 
1: 1 = Decimal feature 

= No decimal feature 
2: 1 = Floating-point feature 

= No floating-point feature 
3: Reserved 
4: 1 = Timer feature 

= No timer feature 
5: 1 = Channel switching device 

= No channel switching device 
6: 1 = Burst mode on multiplex channel support 

= No burst mode on multiplex support 
7: 1 = 7- track SYSRES 

= No 7- track SYSRES 



Figure 15. Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 



53 



(Set at generation time by STDJC) 



54 



Date Convention Byte 

Bit 0: 1 = DDMMYYJJ 

= MMDDYYJJ 
1: 1 = Multiprogramming environment 

= Batch job environment 
2: 1 = DASD file-protect supported 

= No file-protect support for DASD 
3: 1 =DASD SYSIN- SYSOUT 

= No DASD SYSIN- SYSOUT 
4: 1 = BTAM = YES 

= BTAM = NO 
5-7: Reserved 

This byte contains the standard language translator I/O options (set by the STDJC macro). 



Bit 0: DECK option 
1: LIST option 
2: LISTX option 
3: SYM option 
4: XREF option 
5: ERRS option 
6: CHARSET option 
7: Reserved 



1 - yes, output object modules on SYSPCH 

1 = yes, output sourc6 module listings and diagnostics on SYSLST 

1 = yes, output hexadecimal object module listings on SYSLST (compilers only) 

1 = yes, output symbol tables on SYSLST/SYSPCH 

1 = yes, output symbolic cross reference list on SYSLST 

1 = yes, output diagnostics on SYSLST (compilers only) 

1 = 48, input on SYSIPT is 48 or 60 character set 



55 



This byte contains the standard supervisor options for abnormal EOJ and control statement display. 



1 = yes, dump registers and storage on SYSLST 
1 = yes, list all control statements on SYSLST 



56 



Bit 0: Not used 
1: DUMP option 
2: Not used 
3: LOG option 

4- 6: Not used 
7: Reserved 

Job control byte (JBCSWO) 



Bit 0: Reserved 

1: 1 = Return to caller on LIOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 
2: 1 = Job control input from SYSRDR 

= Job control input from SYS LOG 
3: 1 = Job control output on SYS LOG 

= Job control output not on SYS LOG 
4: 1 = Cancel job 

= Do not cancel job 
5: 1 = Pause at end -of- job step 

= No pause at end -of- job step 
6: 1 = SYS LOG is not a 1052 

= SYS LOG is a 1052 
7: 1 = SYS LOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 



Figure 15. Supervisor Communications Region (Part 3 of 5) 
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Key fo Communications Region Displacements: 



^7 



58 



59 



60 



Linkage control byte 

Bit 0: 1 = SYSLNK open for output 

= SYSLNK not open for output 
1: Reserved 
2: 1 = Allow EXEC 

= Suppress EXEC 
3: 1 = Catalog linkage editor output 

= Do not catalog linkage editor output 
4: 1 = Supervisor has been updated 

= Supervisor has not been updated 
5: 1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 
6: 1 = Ignore attention interrupt on 1052 

= Do not ignore 1052 attention interrupt 
7: 1 = Fetch MAINEOJ at end of job to update system directory 

= Do not fetch MAINEOJ at end of job for update 

Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1, override standard 
options. The format of this byte is identical to the standard option byte (displacement 54). 

Job duration indicator byte 

Bit 0: 1 = Within a job condition 

= Outside a job condition 
1:1= Dump on an abnormal end- of- job condition 

= No dump on abnormal EOJ 
2: Reserved 
3: 1 = Job control output on SYSLST 

= Output not on SYSLST 
4: 1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 
5: 1 = No OPEN 

= Initial entry to OPEN 
6: 1 = OPEN monitor entry is from the DTFCP OPEN phase 

= Conditions for a 1 setting not met 
7: Reserved 

Binary disk address of the volume label area. 



62 



^h 



76 



78 



79 



88 



89 



90 



92 



94 



As illustrated (Figures for information blocks, I/O tables, and pointers are found in this Section of this manual, 
beginning at Figure 17, which refers to more detailed figures). 
Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL program from information supplied in 
the date convention byte (displacement 53). Bytes 85 - 87 contain the day count. 

Reserved . 

Byte reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end-of- volume 
routine, $$BCMT07, that it was called by a B- transient. 

Address of the program information block (PIB) table. (See Figure 22.) 

ID number of the last checkpoint. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to 
access the REQID queue. (See Figure 21 .) 



Figure 15. Supervisor Comm-anications Region (Part 4 of 5) 



V, 



5 8 DOS Systeni Control 



Key fo Communications Region Displacements: 



96 



98 



106 



108 



no 



Address of disk I/O position data. This is the starting address of the disk information block (DIB) table. 

Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery 
exits, error recovery queue information that can be used by physical transient routines, and defines storage for the 
error queue entries. 



100 


sA 


104 



As illustrated (See Figure 25). 

Key of the program (BG, F2, or Fl) that has timer support. 

As illustrated (See Figure 21), 

Logical Transient Key (LTK) contains the same value as the PIK (displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The SVC 11 
routine resets the LTK (See Appendix H). 



Figure 15. Supervisor Communications Region (Part 5 of 5) 



LUB 



Symbolic References 



JIB 



Temporary Storage of 
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and Extent Limits for 
File Protection 
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Configuration 
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CHANQ 



Stacked I/O Requests 
(Command Control 
Block Addresses) 



Figure 16. System Control Center 
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NICL FICL: LUB 



JIB 



System 
BG 
F2 
Fl 

n=number of units 

i=index displacement 
within LUB table 
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FLPTR 

CAUTION: The term pointer is frequently used in this section. It is defined as a one- byte 
displacement index value. Base addresses of all tables are maintained in the 
communications region except for the channel queue. For other sections of 
this manual, a pointer is defined as an address. 



KEY: 

NICL (Number in Class) 

FICL (First in Class) 



: The first byte contains the number of system class units. The second, third, and fourth bytes 
contain the number of programmer class units. (BG,F2,F1) 

: The first byte points to the first system class unit in the LUB table. (Always the first LUB 
table entry.) The second byte points to the first programmer class unit in the LUB table 
BG area. The third points to the first programmer class unit in the LUB table F2 area. 
The fourth points to the first programmer class unit in the LUB table Fl area. 

LUB (Logical Unit Block) Table : The first byte points to a PUB table entry. The second byte points to a JIB table entry (Figure 19). 

PUB (Physical Unit Block) Table : The first two bytes contain the channel and unit address of the physical device. The third byte 

contains a CHANQ pointer. The fourth byte contains a TEB pointer. The fifth byte contains 
device type code information. The sixth byte is reserved for device options. The seventh and 
eighth bytes contain channel scheduler and job control flags respectively (Figure 18). 



FOCL (First on Channel List) 

TEB (Tape Error Block) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 



The first byte points to the first PUB (highest priority) on channel zero. The next byte points 
to the first PUB (highest priority) on channel one, etc. A hexadecimal FF indicates the 
associated channel is not supported. 

One TEB is built for each tape unit at supervisor generation time if tape error statistics are 
required (Figure 20). 

A one- byte pointer to the next available JIB entry. 

The first two bytes contain extent or LUB information. The third contains ownership and 
JIB flags. The fourth contains JIB chaining information (Figure 24). 



CHANQ (Channel Queue) Table : The first byte contains the chain field (a pointer to the next in queue). The last three bytes 

contain the CCB address (Figure 21). 



LUBID 
REQID 
FLPTR 



: A one- byte pointer to the LUB making the I/O request, 

: A one- byte pointer to the program containing the CCB (Figure 21). 

: A one- byte pointer to the next free entry in the channel queue (Figure 21). 



Figure 17. I/O Table Interrelationship 
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DOS System Control 



PUBORG 




Unit 



Channel Queue Pointer 



PUBEND 
STOPPER 



BYTE - 



Channel number. 
FF = NULL) 



(Hex 0-7, 



BYTE 1 - I/O device unit number. (HEX 
IF = 1052, HEX 80 = magnetic 
tape unit 0. . ,). 

BYTE 2 - HEX 0, 1 , 2, . . .points to the 
first channel queue entry for 
this device. 

BYTE 3 - If device is a magnetic tape unit 
and TEBS are specified, this byte 
is a TEB pointer (HEX 1, 2, 3...) 

If device is a magnetic tape 
unit but TEBS are not specified, 
this byte is an error counter. 

If device is not a magnetic 
tape unit, this byte is an error 
counter. 



TEB Pointer or Error Count 



Device Type 



Device Characteristic Code 



Channel Scheduler Flags 



Job Control Flags 



BYTE 6 
Bit 0: 
1 

2 
3 
4 
5 
6 
7 



= Device busy 
= Switchable device 
= EOJ for SYSRDRorSYSIPT 
= I/O error queued for recovery 
= Operator intervention required 
= Device end received 
= Burst device on MPX 
1 = 7- track tape unit 



BYTE 7 - 
Bit 

0- 4: standard MODE assignment for 
7- track tape 
(all ones if not tape, 
all zeros if device is down). 
5: device is assigned to a background job 
6: device is assigned to a foreground 1 job 
7: device is assigned to a foreground 2 job 



BYTE 4 - See Figure 26 for device type 
codes. 

BYTE 5 - SS of the MODE = parameter in the 
DVCGEN macro for a tape unit. 
(See Figure 27 .) 

NOTE: 



A null PUB is generated for each device to be supported 
by the supervisor. (See lOTAB macro in this section.) 

Standard physical unit assignments are made to the PUB 
table at supervisor generation time. PUBS are ordered by 
channel and priority within a channel. (See DVCGEN 
macro in this section.) 



Figure 18. PUB Table 
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LUB TABLE 



SYSRDR 

SYSIPT 

SYSPCH 

SYSLST 

SYS LOG 

SYSLNK 

SYSRES 
*SYSSLB 
*SYSRLB 
SYSUSE 
SYSFGI 
SYSOOO 
SYSOOl 
SYS002 
SYS003 
SYS004 

SYS244 



Format of \ 
Any Lub 



Byt-e 



PUB 
Po infer 



Byte 1 



JIB 
Pointer 



HEX 

00 = Points to first PUB 

01 = Points to second PUB 

02 = Points to third PUB 



FF = Null pointer, the LUB is 

unassigned 
FE = Ignore 



HEX 

00 = Points to first JIB 

01 = Points to second JIB 
03 = Points to third JIB 



FF = Null pointer 



* These LUBs are not used or supported in DOS, Version 2. They may be used in Tape Systems (TOS) to refer to 
magnetic tape devices on which private source statement and relocatable library tapes are mounted. In DOS, 
these libraries are on SYSRES. 

Figure 19. LUB Table 
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TEBTAB 



TEB Table 



TEB 1 



TEB 2 



?TEB3 



TEB 4 



TEB 5 



TEB 6 



One TEB is generated for each magnetic tape unit if the 
CONFG macra contains the TEB = yes parameter. 

Job Control resets each TEB at normal or abnormal End- 
of- Job. An unused TEB contains HEX 'FFOOOOOOOOOO' . 

A TEB is referenced from byte 3 of a magnetic tape unit 
PUB. 



Byte 

- Error recovery retry count. 

1 - Permanent read error count. 

2 - Number of times the read error routine is entered. 

3 - Number of times the write error routine is entered. 

4 - Write skip (erase gap) count. 

5 - Noise record count. 



Figure 20. Tape Error Block (TEB) 
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FLPTR 



PUB 
Byte 2 



KEY; 

s 

B. 

C. 
D. 
E. 
F. 



The length of the 
queue is determined 
at supervisor 
generation time. 



CHANQ 



LUBID 



B 




^ 






D 




F 




-^C — 




Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 
















Chain 
Byte 

















Byte 



The free list pointer contains a displacement index to a free list entry within the channel queue. The free list is a 
group of entries that function in essentially the same manner as a device queue. When the free list pointer contains a 
hexadecimal FF, it indicates that no more free list entries are available. 

The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) to the next channel queue 
entry for that device. A hexadecimal FF indicates the last channel queue entry for that device. New requests on a 
given device are queued at the end of a given device queue. 

CCB address for the specified device. 

A pointer (displacement index) to the LUB table identifying the logical unit making the I/O request. 

Contains a pointer (displacement index) to the first channel queue entry for a specific device (Figure J&). 

Contains a code identifying the program making the I/O request. The one- byte entry is called a RID (Requestor 
Identification). The RID indicates what program the CCB belongs to. The RID is in the form X'nk'. 

n =: user- storage protection key* 

k = for all user requests and all supervisor CCBs, where n = 0. 
k = 1 for supervisor CCBs to SYSLOG that bypass ID prefix, 
k = 2 for a fetch CCB. 
nk = FF for any unused channel queue entries. 



Figure 21, CHANQ, LUBID, REQID Tables 
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; 



PIB TABLE 



Byte 
Number 



Ail 

Bound 

PIB 



Problem 

Program 

PIB 

* CauHon 



Attention 
PIB 



Quiesce 
PIB 



Supervisor 
PIB 



Flag 
Byte 
See A 



Reserved SP Prefix 



Flog 
ayte 
See B 



Flog 
Byte 
See E 



Flag 
Byte 
See A 



Flag 
Byte 
See A 



Cancel 
Code 



Cancel 
Code 



Cancel 
Code 



Cancel 
Code 



SYSLOG ID 



NOP 
Instruct- 
ion 
(CR) 



SYSLOG ID 



Reserved 



SP Prefix 



Branch instruction to the 
All Bound Routine 



Branch 
Code 
(BC) 



Address of the 
Save Area 



Active = Address of 
Save Area 

Inactive =Remainder of 
BC Instruction 



Branch Instruction 



Branch Instruction 



Number 
of Core 
Blocks 



Switch 

Byte 

See C 



10 



12 



Reserved 



Address of the 
Origin Area 



Logical Transient Bucket 
(contains save 
area address) 



Address of 
Resident PUB 



PIB 
Assign 

Flog 
See D 



X'07' 
See D 



Reserved 



Reserved 



X'07' 
See D 



13 



User 
LUB 
Index 



Reserved 



14 



Number 

of 

Program 

LUBs 



15 



Reserved 



Address of 

the Logical 

Transient 



Reserved 



= 16 
Byte 
Length 



* CAUTION ; The PIB table is built in Ifiis sequence when the MPS feature is selected as a generation option: 
All Bound PIB 
Background PIB 
Foreground 2 PIB 
Foreground 1 PIB 
J Attention PIB 

Quiesce PIB 
Supervisor PIB 
When a batch -only .environment is established at generation time, the All Bound and Foreground PIB« ore excluded from the table. 



Figure 22. PIB Table (Pairt 1 of 2) 
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A Supervisor, Quiesce, PIB Flag Expansion: 

Bit 0: 1 = Registers stored 

= Registers not stored 
1-4: = Always zero 
5: 1 = Always one 
6: = Always zero 
7: 1 = Active 
= Inactive 

[b] Problem Program PIB Flag Expansion {BG, F2, Fl): 

Bit 0: 1 = Registers stored 

= Registers not stored 
1 - 4: = Always zero 

5: = Normal execution 

1 = Program has seized the system 
6: 1 = Unbound 

= SVC 2- bound (B- transient in progress) 
7: 1 = Unbound 

= SVC 7- bound (waiting for an I/O interrupt) 
X'80' indicates the program is not present in the system. 







Attention PIB Switch Byte Expansion: 

Bit 0- 4: Reserved 

5: 1 = Physical Attention Recall Switch ON 

= Physical Attention Recall Switch OFF 
6: 1 = Attention Request Switch ON 

= Attention Request Switch OFF 
7: 1 = External Interrupt Request Switch ON 

= External Interrupt Request Switch OFF 



D PIB Assign Flag Expansion: 



X'80' = SYSRES DASD file protect inhibited (allow write operation on SYSRES) 

X'40* = Channel appendage exit allowed (BTAM) 

X*20' = Cancel in progress (used in terminator function) 

X*10* = Cancel control (set on a foreground cancel) 

X*08' = Hold- Release flag for foreground assignments 

X*07' = Supervisor or Attention routine PIB assign flag setting 

X'04' = Background program PIB assign flag setting 

X'02* = Foreground 1 program PIB assign flag setting 

X'Ol * = Foreground 2 program PIB assign flag setting 



E Attention PIB Flog Expansion: 



Bit 0: 1 = Registers stored 

= Registers not stored 
1-5: = Always zero 

6: 1 = Attention routine active 

= Attention routine SVC 2- bound 
7: 1 = Active 

= SVC 7- bound 

X'80' indicates the attention routine is not present in the system. 



Figure 22. PIB Table (Part 2 of 2) 
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DIB TABLE 


























Current Address 


End Address 


U.L. 


L.L. 


R.C. 


Reserved 


SYSLNK 


C 


c 


H 


H 


R 


1 1 1 1 


1 1 


1 1 
_ 1- J IN «. 




1 






1 




llll 
















1 1 














SYSIN 


B 


B 


C 


C 


H 


H 


R 


K 


D 


D 


B 


B 


c 


c 


H 


H 


R 


H 


H 


XX 


XX 




III 




SYSPCH 


















































SYSLST 
















































ijfiS 


Number 






-3 - 






1 


1 


1 


^ 2 -» 




of Bytes 








t 
















u 




^ 



KEY; Current Address: The next address to be used (for both input and output) • 
End Address : The last address within the limits of the extent. 
U.L. : Upper head limit 

L .L • : Lower head limit 

R .C • : Trigger value in number of records. When the end address minus the current address is less than, or equal 

to, the value in R.C ., a warning message is issued by job control. 

KDD for SYSIN = X'000050' 
KDD for SYSPCH = X'00(X)5V 
KDD for SYSLST = X'00(X)79' 

NOTE; The address of the SYSLNK entry is kept in the communications region. 



Figure 23. DIB Table 
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JIB Table 



Caution : 



JIB 1 


JIB 2 


JIBS 


JIB 4 


JIB 5 


JIB 6 



Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the sub -cell number 
times 10 plus the strip number in binary. 



Number (length of JIB 
table) determined at 
supervisor generation 






u 


2 


3 



Type of Entry 


Contents 


Stored standard 
assignment 


LUB entry of 
standard assignment 


Alternate 
assignment 


PUB pointer for 
alternate assignment 


2311 Extent (7) 


c^c^c„c^ (D 


2321 Extent (T) 


B^BLCLCLor (j) 



Flag Type 


Bit 


Meaning if Bit-l 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


231 1 Extent 


3 


2321 Extent 


Ownership 


4 


Standard assignment 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



(T) Only when file -protect on DASD 

(2) Lower Cylinder 
Upper Cylinder 

(3) Cell or combined 
sub -cell and strip 



Chain Byte. 
Contains the displace- 
ment index of the next 
JIB. A hexadecimal 
'FF' defines the end of 
the chain. 



• Figure 24. JIB Table 
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PC Option Table and OC Option Table: 



BG 
F2 
Fl 



E 



-word- 



-word- 



No STXIT given: a = 

STXIT issued: a = address of the user program check (operator communications) routine 

STXIT issued when the user routine is already in use: a = complement of user program check (operator communications) 

routine address 



No STXIT given: b = 

STXIT issued: address of the user save area 



IT Option Table: 



• word ■ 



■ word - 



E 



No TECB or STXIT issued: c = 

TECS issued: c = address of the timer event control block 

STXIT issued: c = address of the user interval timer routine 

STXIT issued when user routine is already in use: c = complement of the user interval time routine address 



No TECB or STXIT issued: d =0 

TECB issued: d = complement of the TECB address 

STXIT issued: d = address of the user save area 



Figure 25, Option Tables 
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Card Code 


Actual Device 


Dev. 
Type 
X'nn' 


Device Type 


2400T9 


9 -track Magnetic Tapes 


50 


Tapes 


2400T7 


7 -track Magnetic Tapes 


50 


1442N1 


1442N1 Card Reader Punch 


30 


Card readers -punches 


2520B1 


2520B1 Card Reader Punch 


31 


2501 


2501 Card Reader 


10 


Card readers 


2540R 


2540 Card Reader 


n 


2540P 


2540 Card Punch 


21 


Card punches 


2520B2 


2520B2 Card Punch 


20 


1442N2 


1442N2 Card Punch 


22 


2520B3 


2520B3 Card Punch 


20 


1403 


1403 Printer 


40 


Printers 


1403U 


1403 Printer with UCS feature 


42 


1404 


1404 Printer 


40 


1443 


1443 Printer 


41 


1445 


1445 Printer 


41 


1050A 


1052 Printer- Keyboaid 


00 


UNSP 


Unsupported device 


FF 


Unsupported. No burst mode on multiplexor channel 


UNSPB 


Unsupported device 


FF 


Unsupported with burst mode on multiplexor channel 


2311 


2311 Disk Drive 


60 


DASD 


2321 


2321 Data Cell Drive 


61 


DASD 


2701 


2701 Line Adaptor Unit 


DO 


Tele -processing lines 

A = SAD command when enabling the line 
B = SAD I command when enabling the line 
C = SAD 2 command when enabling the line 
D = SAD 3 command when enabling the line 


™r:l 


2702 Transmission Control Unit 


Dl 


2703 


2703 Transmission Control Unit 


D2 


2671 


2671 Paper Tape Reader 


70 




1285 


1285 Optical Reader 


76 


Note: The codes used in t.he DVCGEN macnos are fhe same codes used in IPL statements. 



r 

V. 



• Figure 26. Device Type Codes 



Density 


Parity 


Convert 


Translate 


ss 


(Bytes per Inch) 


Feature 






200 


odd 


on 


off 


10 


200 


odd 


off 


off 


30 


200 


odd 


off 


on 


38 


200 


even 


off 


off 


20 


200 


even 


off 


on 


28 


556 


odd 


on 


off 


50 


556 


odd 


off 


off 


70 


556 


odd 


off 


on 


78 


556 


even 


off 


off 


60 


5Sb 


even 


off 


on 


68 


800 


odd 


on 


off 


90 


800 


odd 


off 


off 


BO 


800 


odd 


off 


on 


B8 


800 


even 


off 


off 


AO 


800 


even 


off 


on 


A8 


800 


dual density nine-t 


rock 


C8 


1600 


dual density nine-t 


rack 


CO 



r 



Figure 27. Density Data 
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SECTION 4: SYSTEM CONTROL PROGRAMS 



This section presents the three major 
control programs that control the disk 
operating system (DOS) Version 2: 

1. Initial program load program (IPL). 

2. Job control program 
($JOBCTLA-$JOBCTLJ) . 

3. Supervisor control program. 

These programs allow operating system 
capability by providing the necessary 
interface between the IBM System/360, its 
supporting I/O devices, the operator, 
system residence, and the problem program. 



INITIAL PROGRAM LOAD PROGRAM (IPL), CHART 
01 



IPL is a 3-phase program consisting of: 

• $$A$IPL1 (2a-byte bootstrap routine). 

• $$A$IPLA (32-byte bootstrap routine). 

• $$A$IPL2 (less than 4096-byte IPL 

routine) . 

$$A$IPL1 is a 24-byte bootstrap program 
located on SYSRES at 00 00 1 (CC HH R) . 
The operator sets the channel and unit of 
SYSRES in the load unit switches and 
presses the load key. Microprogramming 
reads the first record (24 bytes) from 
SYSRES into main storage starting at 
location 00. This 24-byte record consists 
of a PSW starting at location and two 
CCWs starting at location 8. 
Microprogramming executes the first CCW at 
location 8, which reads in the $$A$IPLA 



program from SYSRES (cylinder 0, track 0, 
record 2) . The first CCW is chained to the 
second CCW, which is a seek for the 
$$A$IPL2 program on SYSRES (cylinder 0, 
track 01, record 5). 



$$A$IPIiA is a 3 2 -byte program made up of 
tnree CCWs. The first two CCWs of the 
$$A$IPLA program and the two CCWs from 
$$A$IPL1 are chained together, so that all 
the CCWs are executed. The CCWs of the 
$$A$IPLA program are a search, transfer in 
channel, and read for cylinder 0, track 01, 
record 5 to load the $$A$1PL2 program. 
Control is transferred to the $$A$IPL2 
program by loading the PSW at location 0. 
This PSW was loaded as part of $$A$IPL1. 

$$A$IPL2 clears storage from the end of 
itself to the end of main storage. A 
program check is forced and the program 
check new PSW returns control to the 
$$A$IPL2 program. The address at which the 
program check occurred is saved as the end 
of storage address. There is no provision 
in the $$A$IPL2 program to clear main 
storage below location 12,228. 

The transient directory is searched for 
the core image library disk address of the 
supervisor. The supervisor is read into 
main storage starting at location 00. (See 
Figure 30 for a map of main storage.) The 
I/O tables that are located within the 
supervisor are moved to the end of 
supervisor so that a 2-device system can be 
built in low storage for the IPL operation. 

See Figures 28 and 29 for examples of 
I/O tables built by $$A$IPL2. Figure 28 
shows the I/O tables for a 1-device system, 
and Figure 29 shows the I/O tables for a 
2-device system. 
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LUB Table 














SYSRES 










1 

2 
3 

4 
5 
6 

7 

NOTE: It is assumed that SYSRES Is on channel 2 . 

Figure 28. I/O Table for One-Device 
System 



FOCL 
Pointers 



> PUB Table 



LUB Table 



F F 



F F 



F F 



F F 



SYSLOG 



SYSLOG 



SYSRES 



SYSRES 




•4 FOCL 
Pointers: 
Points to 
the first 
device 
on 
channel 

>PUB Table 



SYSGEN 
Entries 

Pointer to 

PUB for 

loglca 

device 



NOTE: It Is assumed that SYSRES Is on channel 2 and that the 
communication device SYSLOG Is on channel 0. 



Figure 29. I/O Table for Two-Device System 
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0000 
0024 
0048 



12,228 



14,445 



Step 1 



PSW 



CCW3 



CCWl 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$1PL2 



$$A$IPL2- Clears storage, loads 
supervisor moves I/O tables from 
SUPVR area to end of supervisor, 
builds two device system and sets 
storage protection keys 



$$A$IPL1 
$$A$IPLA 



$$A$IPL2 



0000 
0024 

0048 
12,228 



28,762 



End of Storage 

Step 1 - represents the main storage map after $$A$IPL2 is 
loaded for a system using a supervisor less than or equal to 6K 
and a machine size of 16K. 
NOTE: Storage addresses are in decimal notation. 



Step 2 



PSW 



CCW3 



CCWl 



CCW4 



CCW2 



CCW5 



DISK ADDRESS OF $$A$IPL2 



$$A$IPL2 is moved to location 
28,672 (X'7000') 



$$A$IPL2 - clears storage, loads 
supervisor, moves I/O tables from 
SUPVR area to end of supervisor, 
builds two device system, and sets 
storage protection keys 



$$A$IPL1 
$$A$IPLA 



$$A$IPL2 



End of Storage 

Step 2 - represents the main storage map after $$A$IPL2 is 
loaded for a system using a supervisor greater than 6K and a 
machine size greater than 16K. 



0000 



End 
I of 



SUPVR 

End of 

SUPVR-H 

Plus4K 



Step 3 



Supervisor Constants 



Supervisor loaded by $$A$IPL2 
SYSGEN I/O Tables 



SYSGEN I/O Tables moved to end of 
supervisor by $$A$IPL2 



$IPLRT2 is loaded into this area at 
the finish of $$A$IPL2 



0000 



> Supervisor 



End ^ 

of 

SUPVR 



$IPLRT2 



Step 4 



Supervisor Constants 



SYS'GEN I/O tables moved back 
into supervisor at the end of $IPLRT2 



End of Job transient ($$BEOJ3) 
loaded into problem program area at 
finish of $$IPLRT2 



>Supervisor 



End of Storage 

Step 3 - represents the main storage map after 
$$A$1PL2 loads the supervisor. 



End of Storage 

Step 4 - represents the main storage map after 
$$IPLRT2 is executed. 



Figure 30. IPL Main Storage Map 
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(Initial Program A 
Load (I PL) J 



IPLPRG 



IPL BOOTSTRAP ($$A$IPL1) 



Charf AA 



Tbe operafbr sets the channel and unit of SYSRES in the load unit 
switches and presses the load key. Microprogramming then reads 
the first 24 byte record consisting of a PSW and two CCW's into 
main storage starting at location 00. It executes the first CCW at 
location 8 which reads the $$A$iPLAon SYSRES Into main storage. 



CCW2 



IPL BOOTSTRAP ($$A$IPLA) 



Chart AA 



This program finds the $$A$IPL2 program on SYSRES and loads it 
into storage starting at decimal location 12,228. 



BEGIPL 



O 



CLEAR CORE, LOAD SUPERVISOR 
($$A$IPL2) 



Chart AB 



$$A$IPL2 clears storage beyond the supervisor and forces a program 
check to get its return address to $$A$IPL2 and to determine the 
storage size of the system. The transient directory is searched to 
find the address of the supervisor nucleus. \Mien the supervisor 
entry is found, the $$A$IPL2 program is moved to decimal location 
28,762, if the supervisor Is larger than 6K and the machine size 
larger than 16K. The supervisor Is then loaded into main storage. 



ENDRD 



BUILD TWO DEVICE SYSTEM 
($$A$IPL2) 



Chart AC-AE 



1. Puts the end of storage address In the communication region. 

2. Moves the SYSGEN I/O tables to end of supervisor and builds 
a one device system In low storage for SYSRES. 

3. Puts the system in the wait state and gives the operator the 
choice of a 1052, a card reader, or t3x\ unassigned card reader, 
OS the communication device. 

^4. Adds the I/O tables for this communication device to the I/O 
tables for SYSRES and completes the two device system for 
IPL operation. 



SETPROT 




SET STORAGE PROTECTION KEYS 
($$A$IPL2) 



Chart AD 



If the storage protection feature is available on the system, a key 
of is set for the supervisor region and key of 1 is set for tfte rest 
of storage. The new PSWs are restored and the program exits by 
loading and transferring control to $iPLRT2. 



(SVC4 Load N 

$IPLRT2 Chart 02y 

Chart 01. Initial Program Load ($$A$IPL1) 



V 
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After the system I/O tables have been 
moved, a PUB is built in low storage for 
SYSRES. A LUB is assigned for this PUB and 
the FOCL is set to point to the PUB for the 
SYSRES device. The system is put into the 
wait state and the operator has the option 
of selecting the communication device 
desired for IPL. If the desired 
communication device is: 

1. A card reader t and it is already 
assigned as SYSRDR, the operator 
presses the EXTERNAL INTERRUPT key 
causing an external interrupt. 

2. A card reader , and it is not assigned 
as SYSRDR, the operator presses the 
START key on the reader causing an I/O 
(device end) interrupt. 

3. A 1052 , the operator presses the 
REQUEST key causing an I/O attention 
interrupt. 

After the operator has taken the 
appropriate action for choosing a 
communication device, a PUB and LUB are 
added and the FOCL is updated to show the 
new device. This completes building of the 
2~device system for IPL. 

A check is made to see if the storage 
protection feature is supported. If so, 
the storage protection keys are set. The 
supervisor area, in blocks of 2K, receives 
a storage protection key of 0. The upper 
part of the supervisor that is not an even 
multiple of 2K and the remainder of main 



storage are not protected. They receive a 
storage protection key of 1. The $$A$IPL2 
issues a SVC of 4 to load the $IPLRT2 
program overlaying the $$A$IPL2 program. 



$IPLRT2, CHART 02 



The $IPLRT2 program is loaded and executed 
every time the operator chooses to IPL the 
system. It is loaded (by the $$A$IPL2 
program) starting at 4K bytes beyond the 
end of supervisor. See Figure 30 for a map 
of main storage. Before loading $IPLRT2, 
the $$A$IPL2 program has moved the system 
I/O tables to the end of supervisor. A 
2-device system, SYSRES and SYSRDR or 
SYSLOG, has been built by the $$A$IPL2 
program for IPL operations. 

The $IPLRT2 program performs the 
following functions: 

• Adds a device to the system. 

• Deletes a device from the system. 

• Sets the system date. 

• Sets the system time of day, if the 
timer feature is supported. 

The ADD, DEL, and SET statements are 
entered from the IPL communication device 
(SYSRDR or SYSLOG) . The formats for these 
statements follow. 
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ADD — Add a Device to the PUB Table 



Operation 


Operand 


ADD 


X'cuu' [(k)),devicetype[,X*ss'] 



X*cuu' == Channel and unit numbers in hexadecimal. 

k =: S, if the device is switchable (is physically attached to two adjacent channels). 
The designated channel is the lower of the two channels. 

k s 0- 255 indicates the priority of the device, if the device cannot be switched. The highest priority is 0. 
If k is not given, a priority of 255 Is assumed. 

devlcetype »2400T7 for 7- track, 2400- series magnetic tape units. 
2400T9for 9- track, 2400- series magnetic tape units. 
1442N1 for 1442N1 card read punch. 
See Figure 26 for additional device type codes. 

X*is' » Device specifications used for tape mode. If device specifications are not specified, X'ss' has the following 
set values: 



X'CO* for 9- track tape 
X'90* for 7- track tape 
X'OO' for non- topes 
X'OO*, X'Or, X*02', and X'03' ore invalid as X*tt* 



* See Figure 27 for a complete list of 
density settings. 



TTie end- of- block character' (D (alter code 5) must be given after each ADD statement if the communication device 
is a printer- keyboard. 



DEL— Delete a Device fram l>UB Table 



Operation 


Operand 


DEL 


X»cuu' 



Where cuu Is the channel and unit numbers, in hex, of the device to be deleted. 

The end- of- block character (§^ (alter code 5) must be given after each DEL statement if the communication device 
is a printer- keyboard. 



SET — Set Date and Time of Day 



Operation 


Operand 


SET 


[DATE«nl] [,CL0CK-n21 



The entries in the operand represent the following: 

DATE^nl Sett the system dote to the specified value. n1 has one of the following formats: 

mnvWyy 

dd/mVyy 

Where mm ^>ecifiet the month, dd specifies the day, and yy specifies the year. 
The format to be used Is that selected when the system was generated. 

CLOCK '»n2 Must be given ot IPL time If the timer feature Is present. 

Sets the system clock to the specified value. n2 has the following formot: 

hh/mn/n 

Where hh specifies hours (DO- 23), inm specifies minutes (00- 50), and ss specifies seconds (OO- 59). 
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After a card is read, the operation cod^ 
is evaluated by a translate and test 
instruction to determine^ the type of 
statement. This instruction then 
determines the address of the routine for 
processing the statement. 



Add routine; The add routine checks to 
ensure the device is not already assigned. 
It then determines where to add the PUB in 
the PUB table and moves all the PUB entries 
beyond this point down one PUB length to 
make room for the new PUB. The new PUB is 
then inserted in the area just vacated. 
The LUB table and FOCL pointers are updated 
to reflect the new entry and the routine 
returns to read another control statement. 

Delete Routine; The delete routine first 
checks to see if the device to be deleted 
is in the PUB table and then determines the 
actual location of the PUB to be deleted in 
the PUB table- All PUB's beyond this point 
are moved up one PUB length overlaying the 
PUB to be deleted. The LUB table and FOCL 
pointers are updated so they no longer 
point to a nonexisting PUB entry. The 
routine returns to read another control 
statement. 



Set Routine; The set time of day routine 
determines the operand format of the set 
statement. 



• The DATERT subroutine converts the 
months day, and year to decimal. This 
information is then stored in the 
system date field of the communication 
region (displacement 79). 

• The TIMERT subroutine is used, if the 
timer feature is supported, to put the 
time of day (in seconds) into 
hexadecimal location 54. 

The SET card signals the end of the 
control statements. The system assignments 
for SYSRES and the communication device 
(SYSRDR or SYSLOG) are checked and 
permanently assigned. The system I/O 
tables are moved from their temporary 
location at the end of supeinrisor to their 
permanent location in the supervisor area. 
This move overlays the two device IPL I/O 
tables that were built by $$A$IPL2 and 
finishes the IPL operation. 

The End-of-Job transient ($$BE0J3) is 
loaded to initiate normal job processing. 
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o 



ADbRTN 



ADD A DEVICE ROUTINE 



Chart AN 



The first operand of the add 
card is checked for a key 
field (multiplex or burst 
device indication). The 
channel and unit numbers 
are checked. If present, 
the third operand is pro- 
cessed. The BLDPUB sub- 
routine adds the dev.ice to 
the PUB table. The CHURTN 
subroutine updotes the FOCL. 
The LUURTN subroutine assigns 
a LUB for the PUB just added. 
After the I/O tables are 
updated, the routine returns 
to READGO to read another 
control statement. 



/^$IPLRT2 ^ 

V from Chart 01 J 



BEGIN 



INITIALIZATION AND READ CONTROL 
CARD ROUTINE Chart AJ 



The size of main storage and the location 
of the system I/O tables in main storage is 
found. The number of PUB's and TEB's in 
use is calculated. 
—►A control statement is read from the IPL 
communication device (SYSRDR or SYSLOG). 
The control statements can be used for 
adding or deleting a device or setting the 
date and time. If the IPL communication 
device is SYSLOG, a message is printed 
"Give IPL Control Statements on 1052" 
before entering the control statement(s). 



OPRTN 



EVALUATE THE CONTROL STATEMENT 
CARD ROUTINE 



Chart AK 



The control statement fust read is 
evaluated to determine if the op code Is a 
legal control statement and the type of 
operation (ADD, DEL or SET). After the op 
code is analyzed, control is given to the 
appropriate routine to service the statement. 



ADD 



SETRTN 




DEL 



DELRTN 



SET TIME OF DAY 
ROUTINE 



Chart AK 



The date and time of day are set 
in the communication region. The 
FDSRTN subroutine gets the 
operands from the control state- 
ment. The DATERT subroutine puts 
the date in the communication 
region. If the timer feature is 
present, the TIMERT subroutine 
puts the time of day in the 
communication region. The SET 
routine terminates the reading of 
control statements. 



USNRES 



ASSIGN SYSRES AND SYSLOG 



Chart AL 



The PUB's for SYSRES and SYSLOG or SYSRDR 
are checked to insure that they are 
assigned only to a single logical unit and 
that they are properly built. The PUB's 
are then permanently assigned as the 
system residence unit and the system 
communication device. 



DELETE A PUB 
ROUTINE 



Chart AP 



The operands of the delete 
cards are converted to hex 
and the PUB table is searched 
to find the PUB to be deleted. 
All PUB entries beyond the 
PUB to be deleted are moved 
up one entry, overlaying the 
desired PUB. The FOCL and 
LUB tables are updated so 
they do not point to a non- 
existing PUB. After the I/O 
tables are updated, the 
routine returns to READGO to 
read another control statement. 



OFFINT 



MOVE SYSTEM I/O TABLES TO 
LOW CORE 



Chart AM 



The system I/O tables are moved to their 
permanent location in the supervisor area. 
A message "IPL complete" Is printed (if 
SYSLOG was the communication device) and 
the program exits by loading the End of 
Job transient ($$BEOJ). 



/SVC14Load N 

V$$BEOJ3 Chart 26j 



Chart 02. Initial Program Load ($IPLRT2) 
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JOB CONTROL PROGRAM 



The job control program provides job-to- job 
transition for background programs. It 
also prepares background program job steps 
for execution. (One or more background 
programs can be executed within a single 
job. Each such execution is called a job 
step . ) Job control does not prepare 
foreground programs for execution. They 
are prepared by the foreground program 
initiator B- transients. 

Job control performs various functions 
on the basis of information provided in job 
control statements: 

• Prepares programs for execution. 

• Prepares input for the linkage editor 
program if the link option has been 
specified. The statements: ENTRY, 
ACTION, PHASE, and INCLUDE, when 
present in the job control input 
stream, are copied to SYSLNK as card 
images. An INCLUDE statement with a 
blank operand causes the contents of 
SYSIPT to be copied to SYSLNK until a 
/♦ statement is read from SYSIPT. 
Blank cards from SYSIPT are not copied 
to SYSLNK. 

• Assigns device addresses to symbolic 
units . 

• Sets up fields in the supervisor 
communication region. 

• Edits and stores volume and file label 
information. 

• Prepares for restarting checkpointed 
programs . 

• Clears the background program area to 
binary zeros between job steps. 

The job control program is executed in 
the background program area and is overlaid 
by the job step it is preparing for 
execution. A JOB statement in the input 
stream marks the beginning of a job and a 
/g statement marks the end of a job. An 
EXEC statement calls for execution of a job 
step. A job step is normally ended with 
the EG J macro. 



$JOBCTLA (Chart 03) ; This phase is the 
initial entry into job control. It is 
loaded every time job control is fetched 
and is considered the root phase^ (It is 
resident in main storage at all times 
during job control execution and contains 
routines that are used by the other phases 
of job control.) 

Job control input is read from SYSRDR or 
SYSLOG depending on the setting of the job 
control input switch (COMREG+56, bit 2). 
As each control statement is read, it is 
analyzed to determine which of the 
processing routines is to be used. The 
phase containing the correct processing 
routine is loaded if it is not already in 
main storage as a result of the previous 
control statement. 

See Figure 2 for I/O flow. Figure 31 
represents the storage allocation for job 
control . 



$JOBCTLA < 



3376 
Bytes 



All byte counts are 
approximations and are 
included only to show 
relative size. 



Background 
Problem ^ 
Ptrogram ^ 
Area 




Figure 31. Job Control Storage Allocation 



$JOBCTLD (Charts 4 and 5) : Contains the 
processing routines for the following 
control statements: 



PROGRAM FLOW 



Functionally job control consists of four 
phases and one B- transient, which are 
identified as $JOBCTLA, $JOBCTLD, $JOBCTLG, 
$JOBCTLJ, and $$BLSTIO. 



1. ASSGN 

2. CLOSE 

3. DVCDN 

4. DVCUP 

5. LISTIO 



O 
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6. RESET 

1. UNA 

$JQBCTLG (Charts 6, 1, and 8); Contains 
the processing routines for the following 
control statements: 



1. 


CANCEL 


2. 


/g (for EOJ) 


3, 


EXEC 


4. 


JOB 


5. 


LOG 


6. 


NOLOG 


7. 


OPTION 


8. 


PAUSE 


9. 


ALLOC 


10. 


MAP 


11. 


STOP 



$JOBCTLJ (Charts 9, 10^ and 11); Contains 
the processing routines for the following 
control statements: 

1. ACTION 



2. INCLUDE 

3. DATE 

4. SET 

5. UPSI 

6. RSTRT 

7. MTC 

8. LBLTYP 

9. VOL 

10. TPLAB 

11. DLAB 

12. XTENT 

13. HOLD 

14. RELSE 

15. UCS 



$$BLSTIO; This B~transient contains 
subroutines used by the DVCDN and LISTIO 
control statement processors of $JOBCTLD. 
When required by these processors, it is 
fetched (SVC 2) into the supervisor 
B-transient area. 
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f $JOBCTLA ) 



JOBCTL 



INITIALIZATION 



Chart BA 



Initializes the job control program as follows: 

1 . Loads base register. 

2. Seizes control of the system. 

3. Sets up the communication region. 

4. Checks available record counts if system 
units are supported on a DASD device. 
(SYSRES). 

5. Saves the LUBs to unassign extent JIBs of the 
previous job-step. 

The main storage area that contains this coding is 
subsequently used as a 120 byte I/O area. 
Control statements are read into this area and 
messages are displayed from it. 



CONTROL 




CONTROL STATEMENT READ 



Chart BB 



1 . Reads control statement. 

2. Ignores blank statements. 

3. Checks column 1 to determine if the 
statement is from the operator or the 
programmer. An indicator is set to control 
error processing in the phase vector table 
lookup routine, A blank in column 1 
indicates an operator statement. // in 
columns 1 and 2 indicates a programmer 
statement. 

4. Scans the control statement for the first 
operand (may be ////*/*/ or the operation 
field). 

5. Performs initialization for the phase vector 
table lookup. 



BTLOOP 



PHASE VECTOR TABLE LOOKUP 



Chart BC 



1 . The phase vector table Is searched for an 
argument that is equal to the current operand 
(register POINT! is pointing to column 1 of 
the statement or to the first character of the 
operation field). See Figure 79 for the format 
of an entry In the phase vector table. 

2. The operand is checked for validity. 

3. The statement Is logged as specified in the 
condition switches of the found entry. 

4. If the correct processing phase is not in main 
storage it is loaded (SVC 4). 

5. Processing for the operands //,/*,*, or 
IGNORE is in the root phase and they are 
processed as follows: 

// - The statement is scanned to make the 

next operand (operation field) available 

for processing. Exit to 

/* - Ignored. Exit to 

* - Ignored, Exit to 

IGNORE - The Job Control input switch is 

set to indicate SYSRDR. Exit to — 

6. Control is transferred to the correct 
processing routine as specified by table A, 

B, or C for ail other operands. 



Note ; 

Job Control is entered from the supervisor fetch routine. It can be entered normally 
by means of the EOJ macro or abnormally from the B-transients $$BILSVC, 
$$BPCHK, $$BTERM, $$BEOJ, $$BEOJI, In all cases the B-transient $$BEOJ is 
used to issue the actual fetch for Job Control ($$JOBCTLA). This phase Includes: 

1. The initialization routine (JOBCTL). 

2. The control statement read routine (CONTROL), 

3. The phase vector table (see Figure 79). 

4. The root phase subroutines (Charts BD-BK). 

5. The root phase error message routines (Chart BL). 

Items 4 and 5 are used by other job control phases. 








TABLE A ,, 




PHASE 


$JOBCTLD 


Operand 


Chart 




ASSGN 


04 




CLOSE 


05 




DVCDN 


05 




DVCUP 


05 




LISTIO 


05 




RESET 


05 




UNA 


05 


k 


TABLE B V 




PHASE 


$JOBCTLG 


Operand 


Chart 




CANCEL 


07 




/& (for EOJ) 


07 




EXEC 


08 




JOB 


07 




LOG 


08 




NO LOG 


08 




OPTION 


06 




PAUSE 


08 




ALLOC 


08 




MAP 


08 




STOP 


08 


. 


TABLE C 




PHASE 


$JOBCTLJ 


Operand 


Chart 




ACTION 


09 




INCLUDE 


09 




DATE 


09 




SET 


09 




UPSI 


09 




RSTRT 


09 




MTC 


09 




LBLTYP 


10 




VOL 


10 




TPLAB 


10 




DLAB 


10 




XTENT 


10 




HOLD 


11 




RELSE 


11 




UCS 


11 



Chart 03. Job Control ($JOBCTLA) Root Phase 
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ASSGN 



2 



Chart 03 
TobUA 



SCAN and CHECK lif and 2nd OPERANDS 



Chart ftY 



Scans the ASSGN stotenwnt for th* Isf op«rond, 
SYSXXX. 

Checks and converts SYSXXX to the symbolic unit 
address, iogicol unit and class. 
• The unit can not be SYSRES 
ASSGNO: The unit can not be SYSLOG IF a forearound 
program is loaded 

Scans the ASSGN statement for the 2nd operand, 
Device oddress. This operand must be X'CUU*, UAor 
IGN. If the device odd^eu is UA or IGN, exit to 
ASSGNB3. 



Computes the PUB pointer and PUB oddreu of the 

physical device specified by X'CUU'. The device type 

and mode are taken from the PUB and saved for use In 

the cross assignment verification routine. 

e The device con not be f logged os dowrn. 

e If the device is being assigned to SYSLST, SYSPCH 

or SYSOUT and it is a magnetic tape unit, it can 

not be file protected, 
e If the device is not a DASD device It can not be 

owned by a foreground (FG) program. 



ASSGN6 



CROSS ASSIGNMENT VERIFICATION 



Chart BZ 



Checks for physical compotabillty between the device 
being assigned and the logical unit to which it Is 
being assigned as well as logical units to which it Is 
already assigned. 



ASSGNB4 



^ 



COMPLETE SCAN OF OPERANDS 



Chart CB 



Process the remaining (3rd and 4th) optional operands, ALT 
or X'SS' (MODE), or TEMP. The operands, if present, ore 
checked for validity and switches ore set to control subse- 
quent processing. 

ASSGN402 t Entry at this point processes only the 4th 
operand, TEMP. 



YES 



ASSGNB5 




ASSGNB3 



0- 



FINAL VERIFICATION for NORMAL 
ASSIGNA4ENT 



Chart CC 



Determines If the assignment is for SYSOUT or SYSLNK and 
performs final testing. If the ouignment is for SYSOUT it 
cannot be temporary, if the assignment is for SYSLNK the 
job control switch JBCSW1, bit is set off to prohibit 
linkage editor output on SYSLNK. 



ASSGNB8 



|KD 



MAKE ALTERNATE ASSIGNMENT 



Chart CF 



1 . Tests the validity of the alternate assignment. 

2. Determines if the mode of the assignment is equal to 
the mode of the LUB. 

3. Maktt ojternate assignment in attoched JIB. 

4. Sets the background owner flag on in.the PUB. 



VERIFY and STORE UA or IGN ASSIGNMENT Chart CA 



1. Sets byte of the LUB being generated (In a work 
area) to hex FF (unasslgned code) If the assignment 
isUA. 

2. Sets byte of the LUB being generated (in a work 
area) to hex FE (Ignore code) if the assignment is IGN. 
• If IGN the logical unit cannot be SYSRDR, 

SYSIPT, or SYSIN. 



ASSGNB6 



C^^^^ 



MAKE NORAAAL STANDARD ASSIGNMENT 



Chart CD 



If assignment Is temporary exit to ASSGN22. ' 

Close the file if a close is in operation. 

If in SYSOUT mode and if the ouignment is for 

SYSLST the JIB pointer in the SYSLST PUB is nulled. 

If in SYSOUT mode and the ouignment is for either 

SYSPCH or SYSOUT the JIB pointer in the SYSPCH 

LUB Is nulled. 

ASSGN23A; Reset the LUB to standard unauigned. 

If the new ouignment is IGN or if it is not for a tope 

device go to ASSGN24. 

If the new ouignment is for o tope device and if MODE 

is specified the standard mode and ownerdiip bits of 

the PUB+7 ore modified. 

ASSGN25 ; Update the set mode byte of the PUB 

(PUB+5). 

ASSGN24 ; Make the actual ouignment by moving 

the new LUB to the LUB table from the work area. 



^ 



ASSGNB7 



TERMINATE ASSIGNMENT AND 
OPEN TAPE FILES 



Charts CG,CH 



Set open flog off in all DFBs using this device. 
If ouignment was for SYSIN, SYSIPT must also be 

auigned. (SYSRDR has been) 

If ouignment was for SYSOUT, SYSLST must also be 

oulgned (SYSPCH has been) 

If the ouignment is for one of the system units 
SYSRDR, SYSIPT, SYSPCH, or SYSLST, the file is 
opened. 

• If the file is a tope unit qo^ is not at load point 
the open Is bypassed. 



^. 



CONTROL 



ASSGN22 



1 



MAKE NORMAL TEMPORARY ASSI GNMENT Chart CE 



1. The temporory ouignment cannot be for SYSLST or 
SYSPCH if the SYSOUT mode is in effect. 

2. Close the file If a close is in operation. 

3. Attach a JIB to the new LUB in the work oreo. 

4. Set the standard ouignment flog on In the old LUB. 

5. Store the old LUB In the JIB that Is attached to the 
new LUB (work area). 

6. If the device is tope and MODE is specified to go to 
ASSGN25 to update tKe"PUB. 

7. If the device is not tope or MODE is not specified, it 
is not necessory to updofe the PUB. 



^ 



^ 
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* Chart 03 
Table A 



CLOSE 



CLOSE STATEMENT PROCESSOR Chart BN 



1. Closes a logical unit. , 

2. The unit may optionally be reassigned 
to another device, made UA, made 
IGN, or if tape It may be specified as 
an alternate (ALT). If the unit is a 
system unit, one of the optional oper- 
ands must be specified. 

3. If an optional operand is not specified 
the programmer logical unit is closed 
and the assignment remains unchanged. 

4. If an optional operand other than ALT 
is specified the ASSGN statement 
processor (Chart JC2 ) is entered at the 
label ASSGNO to make the actual 
assignment. 

5. An ALT assignment specifies that the 
logical unit is to be closed and an al- 
ternate unit is to be opened and used. 
The B-transient $$BCMT07 is fetched 
to open the alternate device. 

• The ALT operand is valid only for 
the system output units SYSPCH, 
SYSLST, or SYSOUT. These units 
can not be assigned to a disk. 



DVCUP 



DVCUP STATEMENT PROCESSOR Chart BX 



Makes a device available after it has been 
down. The procedure is: 

1. Compute the PUB address of the device 
specified by the operand X'CUU'. 

2. Set the job control flag in the PUB to 
indicate the device is up. 

3. If the device is tape the standard mode 
is restored. 



DVCDN 



DVCDN STATEMENT 
PROCESSOR 



Chart BU-BW 



Indicate a device in the PUB table as be- 
ing no longer available to the system. 
The procedure Is: 

1. To indicate the physical device as 
dov^n. 

2. To reset all assignments to standard. 

3. To unassign all standard assignments 
assigned to the downed device. 

4. To remove all alternate assignments 
assigned to the downed device. 

5. To log all assignments that have been 
altered. 



RESET 



RESET STATEMENT PROCESSOR Charts CJ-CK 



Resets Logical unit assignments to standard 
as specified by one of the following 
operands: 

1. ALL - Reset all assignments to standard. 

2. SYS - Reset all system assignments to 

standard. 

3. PROG - Reset all program assignments 

to standard. 

4. SYSXXX - Reset a single logical unit 

to standard. 



LISTIO 



LISTIO STATEMENT 
PROCESSOR 



Chart BP-BT 



Lists the I/O assignments of the system as 
specified by one of the following operands. 

• SYS 

• PROG 

• Fl 

• F2 

• ALL 

• SYSXXX 

• UNITS 

• DOWN 

• UA 

• X'CUU' 

Refer to Appendix D for sample printouts. 



UNA 



UNA STATEMENT PROCESSOR Chart BM 



1. All I/O assignments for the foreground 
area(s) specified are unassigned. 

2. The operands of the UNA statement, 
Fl and/or F2, can appear in any 
sequence. 

3. The area(s) specified must be currently 
inactive. 



CONTROL 
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OPTION 


V\ *Chart03 
/ Table B 

r 




















Table h 










OPTION STATEMENT PROCESSOR Charf DJ 






PARAM 


RTN LABEL CHART i 


^-^ 
-^ 




Records the job control options requested 
by the programmer. The parameters of the 
OPTION statement are scanned, one at a 
time, and control is transferred to the 
correct processing routine as show in 
Table 1. 






DECK 


DECK 

Set DECK option ON, COMREG+58, bit 


DK 




NODECK 


NODECK 

%e\ DECK option OFF, COMREG+58, bit 


DK 




LIST 


LIST 

Set LIST option ON, COMREG+58, bit 1 


DK 










U 


NOLIST 


NOLIST 

Set LIST option OFF, COMREG+58, bit 1 


DK 




>^La 

^ Parar 


'\ N^ NO 


USTX 


LIStX 

%Q\ LISTX option ON, COMREG+58, bit 2 


DK 




1 ^ 






T YES 


NOLISTX 


NLISTX 

Set LISTX option OFF, COMREG+58, bit 2 


DK 








SYM 


SYM 

Set SYM option ON, COMREG+58, bit 3 


DK 




1 0? 1 




CONTROL 


NOSYM 


NOSYM 

Set SYM option OFF, COMREG+58, bit 3 


DK 




XREF 


XREF 

Set XREF option ON, COMREG+58, bit 4 


DK 




NOXREF 


NOXREF 

Set XREF option OFF, COMREG+58, bit 4 


DK 




ERRS 


ERRS 

Set ERRS option ON, COMREG+58, bit 5 


DK 




NOERRS 


NOERRS 

Set ERRS option OFF, COMREG+58, bit 5 


DK 




48C 


C48 

Set 48 character set 

option ON, COMREG+58, bit 6 


DK 




60C 


C60 

Set 60 character set 

option ON, COMREG+58, bit 6 


DK 




NOLOG 


OPTNLG 

Set the SYSLST-LOG option 

OFF, COMREG+59, bit 3 


DK 




USRUBEL 


USRLBL 

Initialize Job Control 

Label Processing for USER LABEL Processing. Set label 

area disk addr equal track 1, record 0. 


DL 




STDLABEL 


STDLBL 

Initialize Job Control Label Processing for STANDARD 

LABEL Processing. 

Set label area disk addr 

equal to track 0, record 0. 


DL 




DUMP 


DUMP 

Set Job control dump option ON, COMREG+59, bit 1 


DL 




NODUMP 


NODUMP 

Set job control dump option OFF, COMREG+59, bit 1 


DL 


1 


LINK 


LINK 

Set LINKEDT control bits, COMREG+57, bits 0,2 


DL 


NOLINK 


NOLINK 

Set LINK option OFF, COMREG+57, bit 


DL 




LOG 


OPTLOG 

Set the SYSLST-LOG option ON, COMREG+59, bit3 


DL 


1 


CATAL 


CATAL 

Set LINKEDT control bits, COMREG+57, bits 0,2,3 


DL 



Chart 06. Job Control ($JOBCTIiG) Statement Processor (Part 1 of 3) 
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CANCEL 



CANCEL STATEMENT PROCESSOR 



Chart DA 



This statement is ignored if a job was not 
in process when it is encountered; 

1. Displays the message "JOB-job name-CANCELLED 
DUE TO OPERATOR INTERVENTION". 

2. Sets the cancel code in JBCSWl. 

3. Sets the SYSRDR input switch on (also 
in the PIS). 

4. Resets all label sequence indicators. 

5. Resets all I/O assignments to standard. 

6. If a job is canceled and it is out 
of sequence step 5 is bypassed. 



EOJ 



/& STATEMENT PROCESSOR 



Charts DB, DC 



1. Fetches $MAINEOJ to update the 
library and transient directories if the job 
just finished was MAI NT or $LNKEDTC. 

2. Restores standard I/O assignment. 

3. Insures that SYSIPT is at EOF. 

4. Resets job control options to standard. 

5. Sets job status bit OFF (see item 1). 

6. Displays EOJ message and logs the time. 

7. Resets the job name field in the communications 
region to "NO NAME". 

8. Lists all non zero TEBs. 

9. Resets all bits in COMREG+57 except the 
autotest indicator. 

10. Control is transferred to the JOB 

statement processor at the label RSTCOM. 



JOB 



*Chart 03 
Table B 



JOB STATEMENT PROCESSOR 



Charts DQ, DR 



2. 



Resets all bits in COMREG+57 except the 
autotest indicator. 
Simulates a SYSRDR EOF if the /& 
statement has not been read. 

3. Restores all LUB assignments to standard. 

4. Moves the JOB name to the communications 
region. 

5. Logs the JOB statement on SYSLST/ 
SYSLOG. Logs the time on SYSLOG. 

6. Restores all options to standard. 

7. RSTCOM: Restores the communications 
region to standard. 

8. Resets the EOF indicators in all PUBs. 



CONTROL 
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•Chart 03 
Table B 



EXEC 



EXEC STATEMENT PROCESSOR 



Charts DO-DG 



An EXEC statement indicates the end of 
preparation for the execution of a job 
step. All control statements, necessary 
for execution, must be processed before 
this time. A test is made to determine 
if ail label processing has been 
accomplished. If there is label or extent 
information in the label output area, it 
is written on the label cylinder of SYSRES. 

If the EXEC statement has a blank operand 
field, initialization is performed to 
execute the linkage editor output, 
^en a phase name is specified, it is 
saved in a work area and a phase directory 
is built for this job step, ^en the 
phase directory is completed, storage is 
cleared from the problem program beginning 
address and a fetch is issued for the 
desired program. 



NOLOG 



NOLOG STATEMENT PROCESSOR 



Chart DH 



If the statement is from the operator, no 
// in column 1, the log-on-SYSLOG-$witch 
(COMREG+56, bit 3) is set OFF. 
If from the programmer, // in column 1, the 
log-on-SYSLST-switch (COMREG+56, bit 3) 
is set OFF. 



PAUSE 



LOG 



LOG STATEMENT PROCESSOR 



Chart DH 



1. If the statement is from the operator, no // in 
column 1, the log-6n-SYSLOG-switch 
(COMREG+56, bit 3) is set ON. 

2. If from the programmer, // in column 1 the 
log-on-SYSLST-switch (COMREG+59, bit 3) 
is set ON. 



STOP 



STOP STATEMENT PROCESSOR 



Chart DA 



This statement is an error if the system 
is not in a muiti programming environment. 
A WAIT macro pointing to a dummy CCB 
is simulated to force entry into the 
supervisor task selection routine. This 
removes the background program from the 
task selection mechanism. 



MAP 



MAP STATEMENT PROCESSOR 



Chart DP 



Displays on SYSLOG the current allocation 
of each main storage area (supervisor 
background, foreground 1, and foreground 2). 
Included is the upper limit of each area 
as well as the name of the program 
currently being executed. See Figure 47. 



PAUSE STATEMENT PROCESSOR 



Chart DH 



If the statement is from the operator, no 
// in column 1, the job-control -pause- 
switch (COMREG+56, bit 5) is set ON to 
cause a pause before the next job-step. 
If the statement is from the programmer, 
// in column 1, the job control input-o'n- 
SYSLOG- switch (COMREG+56, bit 2) is set 
ON. This forces a pause on the next 
job control read operation. 



ALLOC 



ALLOC STATEMENT PROCESSOR 



Charts DM-DP 



This phase reallocates main storage according to the number 
of 2K blocks specified for one, or both of the foreground 
areas by the operand of the ALLOC statement. To reallocate, 
this phase: 

1. Builds a table containing the current number of 2K blocks, 
the lower limit address, the address of the save area, 

and the upper limit address. A separate table is built for 
the background area and each foreground area. The 
source information for the table entries is the program 
PIB. 

2. Updates the table built in step 1 with the information 
secured from the operand of the ALLOC statement. The 
operand value is easily converted to byte count which is 
used to calculate upper limit information. Upper and 
lower limits necessary to ensure contiguousness and the 
designated amount of main storage are calculated for 
each table entry and checked to overlap for active areas. 

3. Resets the PIB entries with origin information and storoge 
keys of all program areas, using the table entries as 
source information. 




Chart 08. Job Control ($JOBCTLG) Statement Processor (Part 3 of 3) 



86 DOS System Control 



^ 



ACTION 



ACTION STATEMENT PROCESSOR Chart ED 



This statement is invalid if the link 
option (JBCSW1, bit 0) is not ON. If 
valid the ACTION statement is copied to 
SYSLNK. 



UPSI 



UPSI STATEMENT Chart EM 

PROCESSOR 

The parameter of this statement is 
converted to a single byte and stored in 
COMREG+23. 

• A character 1 sets a bit ON. 

• A character sets a bit OFF. 

• A character X leaves the bit unchanged. 



SET 



SET STATEMENT PROCESSOR Chart EL 



Provides the operator with the capability 
of changing the UPSI byte, the system date, 
the line count, the system time, and the 
remaining capacity of SYSLST or SYSPCH 
when they are assigned to disk. Pfocessing 
is as follows when the operand is: 
DATE = the M^/DD/YY or DD/MMAT 
parameter is converted to binary 
and stored into COMREG+79 thru 
84. The Julian day is computed, 
adjusted for leap year, converted 
to EBCDIC, and stored in 
COMREG+85 thru 87. 
LINECT = The parameter is converted to 
binary and stored in COMREG + 
78. The job control line count 
for the remaining lines on the 
current page is adjusted. 
CLOCK = the parameter HH/M^V'SS is 
converted to binary seconds, 
multiplied by 300. The system 
timer is divided by 256 and 
added to the result. The new 
value is stored as the new system 
time of day in decimal location 
54, SYSTOD. 
({((((HHX60>fMM)X60>fSS)X300>fTIMER/ 
256)= NEW SYSTOD 
UPSI = See UPSI Chart 
RCLST = The parameter of this operand is 
converted to binary and stored in 
the SYSLST DIB. 
RCPCH = The parameter of this operand is 
converted to birxiry and stored in 
the SYSPCH DIB. 



:j- 



Chart 03 
Table C 



RSTRT 



RSTRT STATEMENT PROCESSOR Chart EN 



Computes the LUB and PUB pointer for 
SYSXXX and saves the checkpoint number. 
Insures that all label processing has been 
accomplished and closes the user label 



DATE 



(SVC 2 Fetch A 
$$BRSTRT * J 



DATE STATEMENT PROCESSOR Chart EK 



Moves the date, from the operand of the 
statement, to the communication region 
(byte 0). 



INCLUDE 



INCLUDE STATEMENT 
PROCESSOR 



Chart ED 



This statement is invalid if the link 
option (JBCSWl, bit 0) is not ON. 
If the statement contains an operand, the 
complete statement is copied to SYSLNK. 
If the statement does not contain an 
operand, SYSIPT is copied to SYSLNK until 
a /* statement is read on SYSIPT. Blank 
statements, read from SYSIPT, are not 
copied to SYSLNK. 



MTC 



MTC STATEMENT PROCESSOR Chart EE 



Permits the operator to initiate tape I/O 

commands on specified logical units or 

physical I/O devices. 

The routine checks the op code, computes 

or locates the PUB pointer, and assigns it 

to the SYSUSE LUB, and executes the I/O 

operation. 

The third operand (duplication factor) 

determines the number of operations to be 

performed. If the third operand is left 

blank, a duplication factor of 1 is assumed, 



^ 
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TPLAB f 






LBLTYP f 






TPLAB STATEMENT PROCESSOR Chart EK 






LBLTYP STATEMENT PROCESSOR Chart EF 






The sequence of the TPLAB statement is 
checked. It must follow a VOL statement. 
If there is a continuation punch in column 
72, a second statement is read into the 
input area contiguously with the first 
statement. There are 49 characters read 
from the first statement and an additional 
20 characters from the second statement. 
If a continuation statement is not 
indicated, the 49 character record in the 
input area is padded with 7 zeros and 13 
blanks. 

The label is moved from the input area to 
the label output area. A switch is set to 
indicate that only a VOL statement may 
follow. 


1. If the first operand is TAPE the size 
of the label area is set to 80 bytes. 

2. If the first operand is NSD the second 
operand (nn) is used to calculate the 
number of bytes required to contain 
the specified number of extents. 

This computed value plus 84 bytes 
determines the size of the label 
area. 

3. The size of the label area is 
determined in step 1 or step 2 and is 
stored for subsequent use by LIOCS 
and the Linkage Editor. 


































DLAB \ 


' 






XTENT V 






DLAB STATEMENT PROCESSOR Chart EG 






XTENT STATEMENT PROCESSOR Charts EH,EJ 




The sequence of the DLAB statement is 
checked. It must follow a VOL statement. 
A continuation statement is required. It 
is read into the input area contiguously 
with the first statement. The disk format 
1 label is built in the label output area, 
one parameter at a time. 
Param 1 (51 -bytes) make up fields 1, 2, 

and 3. 
Param 2 (4-bytes, max.) is the vol. seq. 

no. It is converted to 2-bytes 

binary and stored in field 4. 
Param 3 (5-bytes) is converted to 3-bytes 

binary and stored in field 5. 
Param 4 (5-bytes) is converted to 3-bytes 

binary and stored in field 6. 

The creation and expiration dates 

are tested for validity (fields 5 

and 6 respectively). 
Param 5 (1 3-bytes) is stored in field 8. 
Param 6 (optional) is tested 

If blank or SD, set field 10 to an S. 

if DA, set field 10 to a D. 

if ISC, set field 10 to a C. 

if ISE, set field 10 to an E. 
A switch is set on to indicate that a DLAB 
statement has been processed and only an 
EXTENT statement can follow. 


The sequence of the XTENT statement is 
checked. It must follow a DLAB statement 
or another XTENT statement. The 
parameters are processed one at a time 
(parameter 1-7). An XTENT statement is 
required for each extent to be defined 
for a given set of VOL and DLAB statements. 
The extents are built in a label output 
area and are written in the SYSRES 
VOLUME area. 
















VOL ' 


f 






VOL STATEMENT PROCESSOR Chart EF 




The sequence of the VOL statement is 
checked. The 1st parameter SYSXXX is 
tested, converted, and the symbolic unit 
address is saved in the label save area. 
The 2nd parameter, FILE NAME, is tested 
and moved to the label output area. A 
switch is set to indicate that the VOL 
statement has been processed. 




, 


f 
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UCS 



I 



UCS STATEMENT PROCESSOR 



Charts EB, EC 



The 240-character Universal Character Set 
(UCS) specified by the operand "PHASE NAA^" 
Is loaded In the buffer of the IBM 2821 Control 
Unit of the logical unit specified by the 
operand "SYSXXX". The phase is loaded from 
the Core Image Library. 

1. The operand " SYSXXX" specifies a 1403 
with the UCS feature. 

2. The operand "PHASE NAME" specifies the 
core Image library phase to be loaded. 

3. The operand "FOLD" (optional) specifies 
that the buffer is to be loaded with the 
"folding" operation code (hex F3) in 
the 3rd CCW. 

4. The operand "BLOCK" (optional) speci- 
fies that data checks ore to be inhibited. 
The inhibit data check operation code, 
X'73' is set In the 2nd CCW. 

5. The operand " NULMSG" (optional) 
specifies that the 80-character verifica- 
tion message is not to be printed. The 
chain bit Is set off in the 3rd CCW. 



HOLD 



HOLD STATEMENT PROCESSOR 



Chart EA 



1. All I/O assignments for the foreground 
area(s) specified are to stay In effect 
from job step to job step. 

2. The operands of the HOLD statement, Fl 
and/or F2, can appear in any sequence. 

3. The hold flog, bit 4 of PIB+12, is set 
ON(l). 



RELEASE 



RELSE STATEMENT PROCESSOR 



Chart EA 



1. 



All I/O assignments for the foreground 
area(s) specified ore unassigned at the 
end of the job step currently being 
executed in that area. 
The operands of the RELSE statement, Fl 
and/or F2, can appear in any sequence. 
The hold flag, bit 4 of PIB+12, is set 
OFF(0). 



CONTROL 



Chart 11. Job Control ($JOBCTLJ) Statement Processor (Part 3 of 3) 
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SUPERVISOR CONTROL PROGRAMS 



Batch Job Support (BJS) 



Three divisions of Supervisor Control 
Programs are presented in the following 
sequence in this manual: 

1. Resident Supervisor ($$A$SUP1) 

a. Supervisor Interrupt Processors 

b. Physical IOCS 

2. A-Transient Programs ($$ANERRx) 

3. B-Transient Programs ($$Bxxxxx) 

RESIDENT SUPERVISOR CHARTS 12 THROUGH 17 



Supervisor is the storage resident portion 
of the Disk Operating System. It is loaded 
into storage at IPL time and remains there 
throughout system operations. Refer to 
Section 3 of this manual for information 
about generation of the resident 
supervisor. Refer to Figure 14 in Section 
3 for information about the storage 
organization of the resident supervisor. 

Infrequently used supervisory functions 
are not included in the resident 
supervisor. They are in the form of 
transient programs (A and B) and are 
fetched or loaded from the core image 
library when needed. 



Supervisor Interrupt Processors 

This portion of the resident supervisor 
processes the following system interrupts! 

• Supervisor call interrupt 

• I/O Interrupt 

« Program check interrupt 

• External interrupt 

• Machine check interrupt 

Multiprogramming Support (MPS) 



General Entry and General Exit routines 
provide the mechanism for multiprogramming 
suppojTt. Refer to these areas on Chart 12 
of additional descriptions for 
multiprogramming concepts. Figure 33 
illustrates the task selection procedure 
associated with multiprogramming. 



BJS is an inclusive part of MPS support • 



Supervisor Call Interrupt SVC 



SVC is detected by microprogramming, which 
loads the SVC new PSW. The SVC interrupt 
processor (Chart 14) analyzes the SVC code 
placed in the SVC old PSW by 
microprogramming. Control is transferred 
to the appropriate processing routine • SVC 
codes greater than 27 cause a cancel. Some 
SVCs are optional and cause a cancel if 
supervisor was generated without the 
option. (See Figure 32 for a list of 
supervisor calls.) 

SVC 0; Execute the user's channel program 
(EXCP) . The address of the user's command 
control block (CCB) must be supplied in 
general register 1 before issuing this SVC. 
Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 

Note: When an SVC is issued by 
supervisor or A-Transient programs, the 
address of the CCB must be supplied in 
general register 15 before issuing the SVC. 

SVC 1; Fetches a phase* A fetch loads a 
phase from the core image library and 
branches to the entry address in that 
phase. The load and entry addresses are 
obtained from the core image directory 
entry for the phase being fetched. The 
storage address of the phase name must be 
supplied in general register 1 before 
issuing this SVC. The user may override 
the linkage editor entry address by 
supplying an entry address in general 
register 0. Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 



SVC 2: 



Fetches a B-transient. Loads a 



B- trans lent program (phase name prefix 
equals $$B) from the core image library to 
the B-transient area (Refer to Figure 14) 
and enters the B-transient at its load 
address plus 8 bytes. The storage address 
of the B-transient phase name must be 
supplied in general register 1. 

An address in general register is 
ignored. The B-transient is loaded at the 
beginning address of the B-transient area. 
General register 15 is loaded with this 
address and may be used by B-transients as 
a base register. Return may be either to 
the interrupted program or to the highest 
priority program ready to run. 
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Only one program can use the B-transient 
area at a time. If the B-transient program 
is SVC 7 bound, another program is 
selected. This program becomes SVC 2 bound 
(waiting for the B-transient area) if it 
issues an SVC 2, Another program is then 
selected. 



user, general register 1 contains the phase 
entry address adjusted for any changes in 
the phase's load address. 

Note: Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 



Note: Supervisor may branch directly to 
the SVC 2 routine when fetching a 
B-transient. If the transient is not in 
the library when referenced by the 
supervisor, the system will enter the wait 
state . 

SVC 3: Fetches or returns from an 
A-transient. Load an A-transient program 
(phase name prefix equals $$A) from the 
core image library to the A-transient area 
(Refer to Figure lU) and enters the 
A-transient at its load address plus 8 
bytes. The storage address of the 
A-transient phase name must be supplied in 
general register 1. 

An address in general register is 
ignored. The A-transient is loaded at the 
beginning address of the A-transient area. 
General register 11 is loaded with this 
address and is used by A-transients as a 
base register. Return will be to the 
interrupted program. 

Note: Supervisor may branch directly to 
the SVC 3 routine when fetching an 
A-transient. Only programs operating in 
the supervisor mode can issue an SVC 3. If 
the transient is not in the library, the 
system will enter the wait state. 

CAUTION: SVC 3 is also used as a return 
from an A-transient program. The last byte 
of the A-transient name field determines 
the usage. 

• X'OO* Returning from error recovery 
A-transients . 

• X'Ol" Returning from physical attention 
transients ($$ANERRZ, Y, 0) or post 
cancel by any A-transient. 

• Last byte is alpha - fetch A-transient. 

When returning from an A-transient, the 
branch address is in general register 15. 
The A-transient must load one of the exit 
addresses from the error recovery block 
(ERBLOC). Refer to Figure 42. 

SVC 4; Loads a phase from the core image 
library and returns to the user. See the 
following Note . The storage address of the 
phase name must be supplied in general 
register 1 before issuing this SVC. The 
user may override the link- edited load 
address by supplying a load address in 
general register 0. Upon return to the 



SVC 5: Modifies the supervisor 
communications region. Supplies the 
supervisory support for the MVCOM macro. 
The sequence of events is: 

1. MVCOM macro issues an SVC 5. 

2. SVC 5 fetches $$ANERR1 by branching to 
the SVC 3 routine. 

3. $$ANERR1 alters the supervisor 
communications region as specified by 
the MVCOM macro. 

Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 

SVC 6; Cancels a background or foreground 
program. Cancel code X'23' is posted to 
the PIB for the program issuing the SVC 6. 
Refer to Figur^ 22 for the format of the 
PIB tables, to Chart 14 for General Cancel 
Routine, and Figure 34 for cancel codes. 
The next time the canceled program is 
selected on general exit» a branch is made 
to the SVC 2 routine to fetch the cancel 
B-transient program, $$BE0J3. 

SVC 7: Waits for I/O to complete or a 
timer interrupt to occur. SVC 7 supplies 
the supervisory support for the WAIT macro. 

With MPS option: Returns directly to the 
interrupted program if the traffic bit has 
been posted in the CCB or TECB. See SVC 24 
in this list for an explanation of the 
TECB. If traffic bit is not posted: 

1. Change the status of the interrupted 
program PIB to SVC 7 bound (not ready to 
run) . 

2. Select the highest priority program that 
is ready to run. 

When I/O is completed or a timer 
interrupt occurs,, 

1. The traffic bit is posted in the CCB or 

TECB. 

2. The PIB is restored to the ready-to- run 
status . 

13. When this program is again selected at 
general exit, the old PSW will be loaded 
with the address of the second 
instruction of the WAIT macro expansion. 
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without MPS option: Returns directly to 
the interrupted program if the traffic bit 
has been posted in the CCB or TECB. (See 
SVC 2 4 in this list for an explanation of 
the TECB.) 

If the traffic bit is not posted, the 
system enters the wait state with 
interrupts enabled. 

SVC 8; Supplies the supervisory support to 
temporarily return from a B-transient 
program to the problem program. The 
B-transient area is not released. The task 
selection exit loads the problem program 
registers. Return to the B-transient 
program is accomplished by issuing an SVC 
9. 

SVC 9: Supplies the supervisory support 
for returning to the B-transient after an 
SVC 8 is issued. The task selection exit 
loads the B-transient registers. 

SVC 10: Sets a timer interval. This SVC 
is optional and the issuing program will be 
canceled if supervisor is generated without 
IT option. Only the timer supported 
program can issue an SVC 10. Others will 
be canceled. 

The time interval is specified in 
general register 1 by the user (SETIME 
macro). The system time of day (SYSTOD, 
X'54') is updated to the time that the next 
interrupt should occur (may change if 
another SVC 10 is issued) . The system 
timer (SYSTIMER, X'50') is set to the 
specified time interval. The time interval 
in SYSTIMER immediately begins to lapse. 
Refer to IBM System/360 Principles of 
Operation , Form A22-6821, for information 
concerning the operation of SYSTIMER. 

Note : Current system time of day can be 
obtained by shifting out the low order byte 
from the remaining time interval (SYSTIMER) 
and subtracting it from system time of day 
(SYSTOD). Time in SYSTOD is represented in 
the form, seconds x 300. Time in SYSTIMER 
is in the form, seconds x 300 x 256. 

An SVC 10 returns directly to the timer 
supported program. No task selection is 

performed. 



SVC 11: 



Returns from a B-transient 



releasing the B-transient area. SVC 11 is 
invalid if issued by other than a 
B-transient. The logical transient area is 
released for use by other programs or 
tasks. Return will be to the highest 
priority program ready to run. 

SVC 12: Supplies the supervisory support 
to reset flags to in the linkage control 
byte (displacenent 57 in the supervisor 
communications region) . The user loads a 



mask (1 byte,, hexadecimal) into general 
register 1. This mask is ANDed with the 
linkage control byte. An SVC 12 returns 
directly to the interrupted program. No 
task selection is performed. 



SVC 13: Supplies the supervisory support 
to set flags to 1 in the linkage control 
byte (displacement 57 in the supervisor 
communications region). The user loads a 
mask (1 byte,, hexadecimal) into general 
register 1. This mask is ORed with the 
linkage control byte. An SVC 13 returns 
directly to the interrupted program. No 
task selection is performed. 

SVC 14; This is the normal end of job 
(EOJ). Cancel code X' 10' is posted to the 
PIB for the program issuing the SVC 14. 
Refer to Figure 22 for the format of the 
PIB tables and to Chart 14 for General 
Cancel routine. The next time the canceled 
program is selected on general exit, a 
branch is made to the SVC 2 routine to 
fetch the cancel B-transient program 
$$BE0J3. Job Control is loaded by $$BEOJ 
to perform end-of- job-step. 

SVC 15: This is the same as SVC (EXCP) , 
with this exception: when the CHANQ table 
is full, the SVC is ignored. Return is 
direct to the interrupted program in this 
case. If the CHANQ table is not full, 
general register is zeroed and EXCP is 
issued (see SVC in this list). 

Note: The CHANQ table is full when the 
free list pointer (FLPTR) equals X'FF'. 
Refer to Figure 21 for the format of the 
CHANQ table and to Figure 35 for CHANQ 
operation. 

SVC 16 THROUGH^ 21: These supervisor calls 
provide supervisory support for the STXIT 
and EXIT macros. They are optional, and 
the issuing program will be canceled if 
supervisor was not generated with the 
applicable option. 

• SVC 16 stores the address of the user's 
program check (PC) routine and save 
area address in the PC option table. 

• SVC 17 provides a retxirn from the 
user's PC routine to the program 
interrupted due to a program check. 

• SVC 18 stores the address of the user's 
interval timer (IT) routine and save 
area address in the IT option table. 
SVC 18 can only be issued by the timer 
supported program* 

• SVC 19 provides a return from the 
user's IT routine to the timer 
supported program. SVC 19 can only be 
issued by the timer supported program. 
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• SVC 20 stores the address of the user's 
operator communications (OC) routine 
and save area address in the OC option 
table. 

• SVC 21 provides a return from the 
user's OC routine to the program 
interrupted by the external interrupt 
key. 

The address of the user routine is 
specified in general register 0, and the 
address of the users save area is specified 
in general register 1 in all cases. Refer 
to Figure 25 for the format of the option 
tables. 

SVC 16^ 18, and 20 return directly to 
the interrupted program 

SVC 17, 19, and 21 return either to the 
interrupted program or to the highest 
priority program ready to run. 



SVC 22; Seizes the system and provides a 
release from such a seizure. The SVC 22 is 
ignored if supervisor was generated without 
MPS option. The program issuing an SVC 22 
is canceled if the PSW protection key field 
does not equal 0. (Only Job Control and 
B-transient programs can issue an SVC 22.) 

The first SVC 22 issued seizes the 
system and the next one issued releases the 
system. The program can change the system 
mask by loading the system mask it requires 
into the last byte of general register 0. 
If the program masks off all interrupts, 
the loaded PSW contains its protection key. 

The task selection mechanism is altered 
by the first SVC 22 so that only supervisor 
or quiesce I/O tasks and the program that 
issued the SVC 22 can be selected. The 
next SVC 22 issued restores the task 
selection mechanism. The contents of the 
last byte of general register are again 
used as the system mask. 

Return from each SVC 22 is directly to 
the interrupted program. 

CAUTION ; There is no way to cancel a 
program that has seized the system. 

• The program must have no pending I/O 
operations. 

• The program cannot issue supervisor 
calls while the system is seized. 

SVC 23; Loads phase header. Retrieves the 
load address for a specified phase from the 
core image directory. The program issuing 
an SVC 23 is canceled if supervisor was 
generated without MPS option or the PSW 
protection key does not equal 0. (Only Job 



Control and B-transient programs can issue 
an SVC 23.) 

The user must specify the address of the 
core image phase name in general register 1 
and the address of where the load address 
is to be stored in general register 0. The 
main fetch subroutine scans the core image 
directory and retrieve the load address. 
If the phase is found in the directory, the 
load address (3 bytes) is stored at the 
user's address specified by general 
register 0. If the phase is not found,, the 
return is to the interrupted program. 

SVC 24; Stores the address of the user's 
timer event control block (TECB) and sets a 
timer interval. This SVC is optional, and 
the issuing program will be canceled if 
supervisor is generated without IT option. 
Only the timer supported program can issue 
an SVC 24. Others will be canceled. 

The address of the user's TECB is 
specified in general register 0, and the 
time interval is specified in general 
register 1. 

The traffic bit is reset in the user's 
TECB, and the TECB address is stored in the 
IT option table. Refer to Figure 25 for 
the format of the IT option table. 

Note; The TECB has the same format as a 
command control block (CCB) , but only the 
traffic bit is used. The traffic bit is 
set when a timer interrupt occurs. Refer 
to Figure 36 for the format of the CCB. 

The time interval is set, and the system 
time of day is updated as for an SVC 10. 
(See SVC 10.) An SVC 2U returns directly 
to the timer supported program. No task 
selection is performed. 

The user causes the program to wait for 
the timer interrupt to occur by issuing an 
SVC 7. (See SVC 7 in this list.) 

SVC 25: Issues halt I/O on a 
tele- processing device. If supervisor is 
generated without tele-processing option, a 
program issuing an SVC 25 will be canceled. 

The address of any command control block 
(CCB) containing the symbolic unit address 
for this device must be supplied in general 
register 1 before issuing this SVC. 

An HIO instruction is issued to the 
device if; 

1. it is a tele-processing device and 

2. there is I/O pending for the device. 

In this case, return is to the highest 
priority program ready to run. The device 
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busy flag is reset at this time. If an SVC 
25 is issued for other than a 
tele-processing device, jLt is ignored, 

SVC 26: Validate address limits.. The 
program issuing an SVC 26 will be canceled 
if the PSW protection key does not equal 0. 
(Only Job Control and B-transient programs 
can issue an SVC 26.) 

The upper address must be specified in 
geneifal register 2, and the lower address 
must be specified in general register 1. 
The upper address must be within main 
storage, and the lower address must be 
higher than the end of supervisor address. 



or the program will be canceled (ERR25) . 
Return is to the interrupted program. No 
task selection is performed. 

With MPS option: The PIK of the program 
issuing the SVC 26 must equal the storage 
protection key for both addresses or the 
program is canceled (ERR25). 

With BJS option (batch only) : SVC 26 is 
ignored in a BJS system without storage 
protection. 

SVC 27; Same as SVC 25, except the EXCP 
CCB is not dequeued if the CSW has been 
stored after a HIO commands. 
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DOS SUPERVISOR CALLS 



Macro 
Supported 


SVC 


Function 


EXCP 





Execute channel programs. 


FETCH 


1 
2 
3 


Fetch any phase. 

Fetch a logical transient (B- transient). 
Fetch or return from a physical transient 
(A- transient). 


LOAD 


4 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6 


Cancel a problem program. 


WAIT 


7 
8 


WaitonaCCBorTECB. 
Transfer control to the problem program from 
a logical transient (B- transient). 


LBRET 


9 


Return to a logical transient (B- transient) 
from the problem program after a SVC 8. 


SETIME 


*10 
11 
12 

13 


Set timer interval. 

Return from a logical transient (B- transient). 

Logical AND (Reset) to second Job Control 

byte (displacement 57 in communications 

region). 
Logical OR (Set) to second Job Control byte 

(displacement 57 in communications region). 


EOJ 


14 
15 


Cancel fob and go to Job Control for end of 

job step. 
Same as SVC except ignored if CHANQ 

table is full. (Primarily used by ERP). 


STXIT (PC) 


*16 


Provides supervisor with linkage to user's PC 
routine for program check interrupts. 


EXIT (PC) 


*17 


Return from user's PC routine. 


STXIT OT) 


*18 


Provides Supervisor with linkage to user's IT 
routine for interval timer interrupts. 


EXIT (IT) 


*19 


Return from user's IT routine. 


STXIT (OC) 


*20 


Provides supervisor with linkage to user's OC 
routine for external or attention interrupts 
Operator communications). 


EXIT (OC) 


*21 
♦ 22 

*23 

♦24 

*25 
*26 
♦27 


Return from user's OC routine. 

The first SVC 22 seizes the system for the 
issuing program by disabling multiprogram 
operation. The second SVC 22 releases 
the system (enables multiprogram operation). 

Load phase header. Phase load address is 
stored at user's address. 

Provide supervisor with linkage to user's 
TECB and set timer interval. 

Issues HALT I/O on a Tele- processing device. 

Validate address limits. 

Special HIO on teleprocessing devices. 



' = optional 



Figure 32. DOS Supervisor Calls 
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I/O Interrupt 



This is detected by microprogramming, which 
loads the I/O new PSW. Refer to the I/O 
Interrupt Processor on Chart 15. 



Program Check Interrupt igx 

This is detected by microprogramming, which p 

loads the program check new PSW. Refer to p 

Program Check Interrupt Processor on Chart p 
16. 



External Interrup t 



This is detected by microprogramming, which 
loads the external new PSW. External 
interrupts can be caused by: 



• Timer 



FViority Table 


Sample 
Sftifus 


PIB Tables 


MVCFLD 


X'84' 


Supervisor task PIB 


X'60' 


X'84' 


Quiesce I/O task PIB 


X'50' 


X'80' 


Attention task PIB 


X'40' 


X'83' 


t Foreground 1 program PIB 


X'30' 


X'82' 


t Foreground 2 program PIB 


X'20' 


X'83' 


Background program PIB 


X'10' 


X'85' 


tAII bound PIB 


X'OO' 



1'. Test status flags 
In order speclRed 
by priority table. 

2. Select 1st PIB for 
f' which the TRT 
::.. function is not 
X'OO'. 



PIB Flags During Task Selection 


Table of Selection Criteria 


Meaning of Status 


Flag 


Label 


TRT Function 


Detached 


X'80' 


TRTMSK X'OO' 1 




X'81' 


TRTLTK 


X'00'orX'03' (Note!) 


Waiting for CCB or TECB 


X'82' 




X'OO' 


Ready to run 


X'83' 


TRTRUN 


X'03'orX'OO' (Note 2) 


Inactive SUPVR or Quiesce I/O 


X'84' 




X'OO' 


Active SUPVR, Quiesce 
I/O, or All bound 


X'85' 




X'05' 



Note 1: X'OO* when the B-tronsient area is in use. 

Note 2: X'OO' when a task has seized the system. 
That task's status flag will equal X'84' 
or X'85'. 

t These PIB's are generated for MPS option only. 



• External interrupt key 



Figure 33. Task Selection Procedure 



• Signal (not supported) 



Refer to External Interrupt Processor on 
Chart 16. 



Machine Check Interrupt 



This is detected by microprogramming, which 
loads the machine check new PSW. The SEREP 
action code (S) is stored in storage 
location 0001, and the system enters the 
wait state. Refer to Chart 12. 
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Type 


Cancel Code 


Condition 


Label 


Logical Cancels 


X'lO' 


Nornxil EOJ 


ERR10 




X'20' 


Program check 


ERR20 




X'2T 


Illegal SVC 


ERR21 




X'22' 


Phase not found 


ERR22 




X'23' 


Program request 


ERR23 




X'24' 


Operator intervention 


ERR24 




X'25' 


Invalid address limit 


ERR25 




X'26' 


Unassigned LUB code 


ERR26 




X'27' 


Invalid LUB code in CCB 


ERR27 


Logical I/O Cancels 


X'30' 


Reading past /& on 
SYSRDRorSYSIPT. 


ERR30 




X'3T 


Error queue overflow 
or no CHANQ entry 
available for ERP. 


ERR31 




X'32' 


DASD address not 
within JIB extents. 


ERR32 




X'33' 


No long seek in user's 

channel 

program. 


ERR33 



(ERP). Refer to Unit Cheeky Quiesce 
I/O, ERP Exits, and Resident Disk Error 
Recovery on Chart 17. See Figures 41 
and 42 for CSW testing and error 
recovery block layout, respectively. 



I Figures 36 through 40 illustrate: 

1. Command Control Block (CCB) 

2. Channel Command Word (CCW) 

3. Program Status Word (PSW) 

4. Channel Address Word (CAW) 

5. Channel Status Word (CSW) 

Because of their usage, these items are 
included in this section. 



Figure 34. Supervisor Cancel Codes 



PHYSICAL INPUT/OUTPUT CONTROL SYSTEM 
(PIOCS) 



Physical IOCS is that portion of the 
resident Supervisor that: 

• Builds a schedule of I/O operations for 
all devices on the system (CHANQ 
table) . Refer to Channel Scheduler on 
Chart 15. Also, see Figure 35 for 
CHANQ operation. 

• Starts the actual I/O operations on a 
device (SIO). Refer to Actual I/O on 
Chart 15. 

• Schedules the starting of all I/O 
operations and monitors all events 
associated with I/O. Refer to I/O 
Interrupt Processor on Chart 15. 

• Performs error recovery procedures 



FLPTR 



CHANQ 



LUBID 



REQID 



'03* 





'FF' 


CCB address 












•02' 


CCB address 








/^ 


'FF' 


CCB address 








•05' 








PUBs 


•FF' 


CCB address 






•00' 


^ 


'06' 








•or 


•FF' 








•04' 


•09' 


CCB address 






•07' 


•FF' 


CCB address 






'08' 


•FF' 


CCB address 






(CHANQ 
pointer) 


( 

f 


Chair 
eld) 






(LUB No, 


) 


(RID) 



Figure 35. Example of the CHANQ Table 
Operation 
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Bytes 

UsedFor- 



Count 



1 2 



Residual Count 



Transmission 
information 



CSW 
Status Bits 



Symbolic Unit 

Address 

16 7 



Not Used 

Must Contain 

X'OO' 

8 



CCW Address 



11 



Transmitting 
infonrtation | 

Between Physical i 
IOCS and Prob- '' 
lem Program I 



k. 



Byte 4 



BIT 
DESIGNATION 

1 32 Attention 

1 33 Status modifier 
'34 Control unit end 

1 35 Busy 

1 36 Channel end 
'37 Device end 

1 38 Unit check 
39 Unit exception 



Byte 5" 



(Hexadecimal 
I Representation 
'of SYSnnn 



BIT 

DESIGNATION I 

40 Prog ram - cont ro I led | 
interruption I 

41 Incorrect length . 

42 Program check I 

43 Protection check | 

44 Channel data check | 

45 Oiannel control check 
py Unit exception 46 Interface control check 
'- ' — 47 Chaining check | 



SYSRDR = 0000 
SYSIPT =0001 
SYSPCH= 0002 
SYSLST =0003 
SYS LOG= 0004 
SYS RES = 0006 
SYSOOO =0100 
SYS001 =0101 
etc. 



Not Used 



Address of CCW 
Associated with 
This CCB 



Reserved 

for Physical 

IOCS 

12 



X'40' -Channel 
Appendage 
Routine Present 
for Tele- 
processing 
Device 

X '20' -Sense 
I Information 
I Desired 

I X'80'-CCB 
I being used by 
ERP 



CCW Address 
in CSW 

13 ]5 



Addrea of CCW i^ 8 Bytes 



231 



in the CSW 
Stored at 
Channel End, or 
Address of the 
Channel 
Appendage 
Routine for 
Tele- 
processing 
Devices 



Appended 
to the CCB 
when Sense 
Information 
is Desired 





^ 
^ 






Byt« 


j2 




— ■ — ^ -. 


■— — -, - 
















Return Tape Read 


















Data Check, 2540 






Traffic 


* End-ol^file 


Unrecoverable 


Acceptable 


Return DASD 


Post at 


Punch Equipment 


User 




Bit 


(/*or/&) 


I/O Error 


Unrecoverable 


Data Checks, 


Device 


Check, or DASD 


Error 




(Wait) 






I/O Error 


or 2671 errors 
to the User 


End 


Data Checks on 
Count, Read Com- 
mand, or Verify 
v>ommanci 


Routine 







1 


2 


3 


4 


5 


6 


7 























Set On By- 



PIOCS 



PIOCS 



I PIOCS 



I Pr. Pr. 



I Pr. Pr. 
Byte 3 



I Pr. Pr. 



PIOCS 



I Pr. Pr. 



Bits- 



Set On By- 



Dato Check 
in Count 
Areo-DASD 



PIOCS 



Track 

Overrun- 

DASD 



PIOCS 



End of 

Cylinder- 

DASD 



PIOCS 



2540 Punch 
Equipment Check 
or Tope, or 
DASD Read 
Error 



Questionoble 
Condition 



, PIOCS PIOCS 



Unused 



Carriage 
Channel 9 
or Verify 
Error for 
DASD 



PIOCS 



Command 
Chaining 
Retry from 
the next 
CCW to be 
executed 
7 



PIOCS 



PIOCS = Physical IOCS 
Pr. Pr. = Problem Program 



Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and 
device end results as a separate interrupt, device end will be ORed into CCB byte 4. 



* Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 



Command Control Block 



ComiTiunication between the problem program 
and physical IOCS is accomplished by the 
use of the command control block (CCB) . 
The CCB is two double words in length with 
eight major fields as shown in Figure 36. 
All data in the CCB is in the hexadecimal 
format. The eight fields of the CCB are 
listed and described as follows: 



4. Symbolic Unit Address (bytes 6, 7) ; 
Contains the 2-byte hexadecimal 
representation of SYSnnn. This value 
represents the location of the logical 
unit in the LUB table (see Figure 36) 
and is placed in the CCB by the problem 
program. 



5. Byte 8 : Is not used and must contain 
hexadecimal 0. 



1. Count Field (bytes 0, 1) ; Contains the 
residual count, which is stored in these 
two bytes by PIOCS when the CCB is 
removed from the queue. 

2 . Transmission Information (bytes 2, 3) : 
Used for communication between PIOCS and 
the problem program. 

Note: Bytes through 3 are ANDed off , by 
PIOCS, when the CCB is placed in the 
queue. Communication bits set on by 
the problem program are left on 
because an AND instruction is used by 
PIOCS for resetting bytes through 
3. 

3. CSW Status Bits (bytes 4, 5) : Contains 
the CSW status information, which is 
stored in these two bytes by PIOCS 
before control is returned to the 
problem program. 

Note: An information bit, in bytes 2 

through 5, inc'icates the occurrence 
of the indicated condition when the 
bit is on. 



6. CCW Address (bytes 9-11) ; Contains the 
address of the CCW that is associated 
with this CCB. This address is placed, 
in the CCB by the problem program. 

7. Byte 12 ; X' 80' -CCB being used by ERP. 
X' 40 '-channel appendage routine for a 
teleprocessing device, X' 20 '-sense 
information desired. 

8. CCW Address in CSW (bytes 1 3 -15) : 
Contains the CCW address from the CSW. 
This address is stored by PIOCS before 
control is returned to the problem 
program. A CCB that has been queued, by 
PIOCS, to service a problem program I/O 
request cannot be used for a second 
problem program I/O request until the 
first request has been completed. 

Note: Bytes 13-15 contains the address of 
the channel appendage routine when 
bit X'40' is set in byte 12. 

9 . Sense Information (bytes 16-23) : By t es 
16-23 are appended to the CCB when X'20' 
is set in byte 12. 
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Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 n 


12 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33|34 35 36 


37 38 39 


40 41 42 43 44 45 46 47 


Command CcxJe 




Data Addres 




Flogs 





(Ignored) 




s •* 


A 


B 


C 


D 


E 



FIELD 


NAME 


DESCRIPTION 


A 


Command Code 


Bits 0-7: 

Specify the operation to be performed. 
' (See Note on Part 2 of this Figure) 


B 


Data Address 


Bits 8-31: 

Specify the location of a byte in main 
storage. It is the first location referred 
to in the area designated by the CCW. 


C 


Flogs 


Bits 32-36: 

Specify the flag bits used in conjunction 
with the CCW. 

Bit 32- 

Chain-Doto (CD) causes the address 
portion of the next CCW to be used with 
the current CCW. + Note 

Bit 33- 

Choin -Command (CC) causes the 
command code and data address of the 
next CCW to be used . The chain data 
flag (bit 32) takes precedence over this 
flog. 

Bit 34- 

Suppress Length Indication (SLI) causes 
a possible inconrect length indication to 
be suppressed. The chain data flag 
(bit 32) takes precedence over this flag. 

Bit 35- 

Skip (SKIP) suppresses the transfer of 
information to main storage. 

Bit 36- 

Progrom Control Interruption (PCI) causes 
the channel to generate an interrupt 
when the CCW is fetched. 


D 


Reserved 


Bits 37-39: 

(Must contain zeros)* 


E 


Ignored 


Bits 40-47: 
Not checked 


F 


Count 


Bits 48-63: 

Specify the number of bytes in the 
operation 



6 


7 


48 49 50 51 52 53 54 55 


56 57 58 59 60 6162 63 




Count 








1 



*T1ie transfer in channel command (TIC) is the one exception to this statement, 
t Note: Chain dato cannot be done on 360/30 if a high- 
speed device is being used. Example- 231 1,2400 mod m. 



Figure 37. Channel Command Word (CCW) g Part 1 of 2 
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Note, 



CHANNEL COMMAND CODES 






Command Code assignments are listed in the following table. The symbol 
X indicates that the bit position is ignored; M identifies a modifier bit. 


CODE 




COMMAND 


MMMM 10 
XXXX iOOO 
MMMM 110 
MMMM MMO 1 
MMMM MMl 
MMMM MMl 1 




Sense 

Transfer in channel 

Read backward 

Write 

Read 

Control 



DASD CHANNEL COMMAND CODES (See A26-5988) 









Multiple Track 






,1 








(M-T) Off 






M-T On 1 


8- Bit Code 










Command for CCW 


Count 


0123 4567 


Hex Dec 


Hex 


Dec 


Control 


No Op 


X 


0000 0011 


03 


03 








Release* 


X 


0001 0111 


17 


23 








Restore 


X 


0001 0011 


13 


19 








Seek 


6 


0000 0111 


07 


07 








Seek Cylinder 


6 


0000 1011 


OB 


11 








Seek Head 


6 


0001 1011 


IB 


27 








Sense I/O 


4 


0000 0100 


04 


04 








Set File Mask 


1 


0001 1111 


IF 


31 








Space Record 


X 


0000 nil 


OF 


15 








Transfer in Channel 


X 


XXXX 1000 


X8 








Search t 


Home Address EQ 


4 (usually) 


0011 1001 


39 


57 


B9 


185 




Identifier EQ 


5 (usuaUy) 


0011 0001 


31 


49 


Bl 


177 




Identifier HI 


5 (usually) 


0101 0001 


51 


81 


Dl 


209 




Identifier EQ or HI 


5 (usually) 


0111 0001 


71 


113 


Fl 


241 




KeyEQ 


1 to 255 


0010 1001 


29 


41 


A9 


169 




Key HI 


1 to 255 


0100 1001 


49 


73 


C9 


201 




Key EQ or HI 


1 to 255 


Olio 1001 


69 


105 


E9 


233 




Key & Data EQ* i 


Note 1 


0010 1101 


2D 


45 


AD 


173 




Key & Data HI* 


0100 1101 


4D 


77 


CD 


205 




Key & Data EQ or HI* \ 




Olio 1101 


6D 109 


ED 


237 


Readt 


Home Address 


5 


0001 1010 


lA 


26 


9A 


154 




Count 


B 


0001 0010 


12 


18 


92 


146 




Record RO J 
Data ' 


Number 


0001 OHO 


16 


22 


96 


150 




of bytes 


0000 Olio 


06 


06 


86 


134 




Key & Data ( 
Count, Key & Data ; 


trans- 


0000 1110 


OE 


14 


8E 


142 




ferred 


0001 1110 


IE 


30 


9E 


158 


Write 


Home Address 
Record RO 


5 (usually) 
8+KLfDL of 


0001 1001 


19 


25 










RO 


0001 0101 


15 


21 








Count, Key & Data 


8+KI^DL 


0001 1101 


ID 


29 








Special Count, Key & Data* 


8+KLfDL 


0000 0001 


01 


01 








Data 


DL 


0000 0101 


05 


05 








Key & Data 


KL&DL 


0000 1101 


OD 


13 






* SpccUl Fcitu 


re Mot. 1 Includei miik bytel ir icuc 














t M-T On = M 


T Olf except, during Search «nd Re.d bit 


= 1 in M-T On 












X • not tifniflc 


>m, la = Key Length OL - Dtta LcnTh, B 


Q Equal, HI Hgh 













1403 or 
1443 



Carriage 
Control 



2400 
Tape* 



Command for CCW 



Read Inquiry BCD 

Read Reader 2 BCD 

Write BCD, Auto Carriage Return 

Write BCD, No Auto Carriage Return 

No Op 

Sense 

Alarm 



Read, Feed, Select Stacker SS Type AA 

Read Type AB 

Read, Feed (1400 compatibility mode only) 
Feed, Select Stacker SS Type BA 

PFR Punch, Feed, Select Stacker SS Type BA 
Punch, Feed, Select Stacker SS Type BB 



SS sucker 



Rl 
R2 
RP3 



D 


DaUMbde 




1 


EBCDIC 
Column Binary 





MMM 


M 


Read 








X 




Read 


1 





X 




Rea^ 





1 


X 




Read 


1 


1 


X 




Write 








X 




Write 


1 





X 




Write 





1 


X 




Write 


1 


1 


X 




Control 


1 









Control 





1 






Control 


1 


1 






Sense 






I 


1 


Sense 









1 



Eject and SSI 

Eject and SSI 

Eject and SS2 

Eject and SS2 

SSI 

Eject and SSI 

Eject and SS2 

Eject and SSI 

SS2 

Eject and SS2 

Punch diagnostic 

Read diagnostic 

X a means EBCDIC mode 

X s 1 means Column Binary Mode 



Read 

Write 

Control 

No Op 

Sense 



Write, No Space 

Write, Space 1 After Print 

Write, Space 2 After Print 

Write, Space 3 After Print 

Write, Skip To Channel N After Print 

Diagnostic Read 

Test I/O 

Sense 



Space 1 Line Immediately 
Space 2 Line Immediately- 
Space 3 Line Immediately 
Skip To Channel N Immediately 
No Op 



c 


H 


A 


N 


Channel 




C 


H 


A 


N 


Channel 











1 







1 


1 


1 


7 








1 




















8 








1 


1 














1 


9 





I 

















1 





10 





1 





1 











1 


1 


11 





1 


1 











1 








12 



Transfer in Channel 

Sense 

Read Backward** 

Write 

Read 

Control 

Mode Set 

• 9 track op lorcei 800 BPI and odd parity, al»o, it ov 
7 track hul doct not retet 7 I rack. Load/Syi Reset f( 
7 track to <W0 BPI, odd parit>, data converter on, tri 



12 3 4 5 6 7 





Control 


1 


c 


c 


c 


Codes 


Hex 


Dec 











REW 


7 


7 








1 


RUN 


OF 


15 





1 





ERG 


17 


23 




1 


1 


WTM 


IF 


31 










BSR 


27 


39 







1 


BSF 


2F 


47 




1 





FSR 


37 


55 




1 


1 


FSF 


3F 


63 





7 Track 


D 


D 


Density 








200 





1 


556 


I 





800 


1 


y 


800 



MMM (Mode Modi hen) 






**Over rides Data 
Converter On 



p_ i . 2 _ ^'i*! s^"^yi"_ 



i _ i _ 2 _ ^•.•^•.c^J"?!'?'- 



ui S 



Figure 37. Channel Command Vlord (CCW) , Part 2 of 2 
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o 


1 




h{ 


O 


(D 


o 




W 


U) 




00 


W 


• 


^ 




0) 




& 


^ 


(P 


h 


^ 


S 


8 


3 


» 


3 


(+ 




h 


CO 





(+ 


H 


d) 




(t 




d 




« 




s: 









h 




pi 




*^ 




ns 




CO 




s; 



Bit 

MofTW 

Field 






1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 13 14 15 


16 17 18 19 20 21 22|23 24 25 26 27 28 29 30 31 


32|33 


34 35 


36 37 38 39 


40 41 42 43 44 45 46 47 


48 49 50 51 52 53 54 55 


56 57 5a\s9 60 61 62 63 


System Maik 


Key 


CPU Mask 


Inferruption Code 


ILC 


CC 


Prog. Mask 


Insf ruction Address 


A 


B 


C 


D 


E 


F 


G 


H 



NOTE 



FIELD 


NAME 


DESCRIPTION 


A 


System Mask* 


Bits 0-7: 

Are associated with the I/O channels 
and external signals as follows: 

Bit Interruption source 

Multiplexor channel 

1 Selector channel 1 

2 Selector channel 2 

3 Selector channel 3 

4 Selector channel 4 

5 Selector channel 5 

6 Selector channel 6 
1 Timer 

7 \ Interrupt key 

*A one-bit equals ON and permits 
on Interrupt. 


B 


Protection Key 


Bits 8-11: 

Foim the CPU protection key. The key 
is matched with o storoge key whenever 
a result is stored. If the protection 

when stored. 


C 


CPU Mo* 
(AMWP) 


Bits 12-15: 

Fomi the CPU mask as follows: 

Bit Meaning 
... 1, fif 1 - generate extended ASCII code 
^^' '^ [if - generate EBCDIC 

, . .-flf 1 - oemiits machine check interrupt 
^M> 1 JJjf Q _ prohibits machine check interrupt 

^' [If - the CPU is in the running state 

, ... flf 1 - the CPU is in the problem mode 
^^^ '^ [if - the CPU is in the supervisor mode 


D 


Interruption 
Code 


Bits 16-31: 

Identify the cause of the interruption. 
(See NOTE for specific interruption 
codes.) 



FIELD 


NAME 


DESCRIPTION 


E 


Instruction 
Length Code 


Bits 32 and 33: 

Indicate the length, in holfwords, of 
the instruction lost executed, as 
follows: 

00(0) Not available (unpredictable) 
01 (1) 1 halfwoid 
10(2) 2halfwords 
11(3) 3halfwords 


F 


Condition Code 


Bits 34 and 35: 

Indicate the last condition code setting. 
All instructions do not set a condition 
code. 

00 Condition code 

01 Condition code 1 

10 Condition code 2 

1 1 Condi Hon code 3 


G 


Mask** 


Bits 36-39: 

Fonn the program mask for the following 
program exceptions. 

Bit Exception 

36 Fixed-point overflow 
. 37 Decimal overflow 

38 Exponent underflow 

39 Significance 

**A one-bit equals ON and permits o 
program check interrupt for a specific 
exception. 


H 


Instruction 
Address 


Bits 40-63: 

Indicate the address of the leftmost byte 
of the next instruction to be executed. 



SOURCE 
IDENTIFICATION 



INTERRUPTION C(H>E MASK ILC 

psw BITS 16-31 errs set 



EXE- 
CUTION 



Input /Output (old PSW 56. new PSW 120. pricirity 4) 



Multiplexor channel 
Sfleiti»r channel 1 
Selector channel 2 
Selec*tor channel 3 
Selector channel 4 
Selector channel 5 
Sclci tor channel 6 



(X)0000()0 aaaaaaaa 
00000001 aaaaaaaa 
0()0(X)010 aaaaaaaa 
00000011 aaaaaaaa 
00(XK)100 aaaaaaaa 
(KNKKllOl aaaaaaaa 
(KXKK)! 10 aaaaaaaa 



complete 
c-omplete 
complete 
complete 
complete 
ttimplete 
complete 



Profiram (old PSW 40. new PSW 104, priority 2) 



()lH>ration 00000000 (KXNNMX)l 

Pri\ile«ed op«Tation (KKKIOOOO (KMKKMllO 

K\ec ute (KKNXMKX) 0(XMKM)1 1 

Piotcction (XNNXXXK) (XXXK)l(X) 



1.2,3 



Addressinu 



(XXXXXXX)(XXXX)101 



SiX'cifiiatkm (XXXXXXX)0(XXX)110 

Data (XXXXXXX)(XXXX)ill 

Fixcd-iv>tnt overflow (XXXXXXX)(XXX)I(XX) 

Fixed-point divide (XXXXXXX) (XXXH(X)l 

Det imal overflow (XXXXXXX) (XXX) 1010 
Decimal divide (XXXXXXX) (XXX) 101 1 

Exponent overflow (XXXXXXX) (XXX) 1 100 
Exponent underflow (XXXXXXX) (XXX)l 101 
Siunificance (XXXXXXX) (XXX) 1 1 10 

Floatinu-ix)int divide (XXXXXXX) (KXX)l 1 1 1 



36 



37 



suppress 
suppress 
suppress 
suppress/ 
terminate 
0.1 .2.3 suppress/ 
terminate 
suppress 
terminate 
complete 
suppress/ 
complete 
complete 
suppress 
terminate 
complete 
complete 
suppress 



2 
0.2,3 



1.2.3 
2.3 
1.2 
1.2 

3 

3 

1.2 
1,2 
1.2 
1,2 



Supcrtisor Call (old PSW 32. new PSW 96. priority 2) 
Instruction bits (XXXXXXX) rrrrrrrr 1 tt»mplete 



External (old PSW 24, new PSW 88. prwnty 3) 



External signal 1 
External signal 2 
External signal 3 
External signal 4 
External signal 5 
External signal 6 
Internipt key 
Timer 



(XXXXXXX) XXXXXXX 1 
(XXXXXXX) xxxxvxlx 
(XXXXXXX) xxxxxl XX 
(XXXXXXX) xxxxl XXX 
(XXXXXXX) xxxlxxxx 
(XXXXXXX) XX Ixxxxx 
(XXXXXXX) X I xxxxxx 
()000(XX)0 1 XXXXXXX 



tx>mplete 
complete 
complete 
cx>mplete 
complete 
complete 
complete 
tx)mplete 



Machine Check (old PSW 48. new PSW 1 12. priority 1 ) 
Mat hme malfunction 0(XXXXXX) (XXXXXXX) 13 x terminate 

a Devic-e address hits 

r Bits of R, and R. field of si per\ ison tall 

X I'npredit tabic 

Made bits 0-7 refer to the system mask. 
Mask bits 36-39 refer to the program mask. 



Byte 





1 


2 


3 


Bit 





1 


2 


3 


4 


5 


6 


7 


8 


9 


1011 


12 13 1415 


16 17 18 1920 21 22 23 


2425 26 27 28 2930 31 


Name 


Key 







G)mmand Address 


A 




V 


Field 


A 


B 


1 



FIELD 


NAME 


DESCRIPTION 


A 


Protection Key 


Bits 0-3 fomi the storage protection key for all commands associated with START I/O. 
This key is matched with a storage key whenever data is placed in storage. 
(Must contain zeros whenever storage protection is not implemented.) 


B 


Reserved 


Bits 4-7 (Must contain zeros.) 


C 


Command Address 


Bits 8- 31 Designates the location of the first CCW in main storage associated with the START I/O. 
(The three low order bits, 29- 31, must be zeros, specifying a CCW address on integral 
boundaries of a double word.) 



Figure 39. Channel Address Word (CAW) 
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M 


•^ 




O 
4:r 


H» 


Byte 


^ 


Bit 




s 




O 


(0 


Nome 


O 

CO 


o 

t 


Field 


CO 






^ 






Ui 


o 




& 


1^ 




o 


CD 




1 


H 




& 


CO 




N 


ft 







Oi 




H 


ft 
CJ 

w 


Oi 

O 
CO 
23 








1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 12 13 14 15 


16 17 18 19 20 21 22 2324 25 26 27 28 29 30 31 


32 33 34 35 36 37 38 39 


404142 43 44 45 46 47 


48 49 50 5152 53 54 55 


56 57 58 59 606162 63 


Key 







Command Addrew 


^ 




Status 






Count 
















A 


B 


C 


D 


E 



FIELD 



NAME 



Protection Key 
Reserved 

Command Address 
Status 



Count 



DESCRIPTION 



Bits 0-3 form the storage protection key used in the chain of operations: at the subchannel. 

(AAust be zeros.) 

Bits 8-31 form on addr«ss that is eight higher than the address of the last CCW used. * Note 

Bits 32-47 identify the conditions in the device and channel that caused the CSW to be stored. 

Bits 32-39 are obtained over the I/O Interface and indicate conditions detected by the device or the control unit. 

Bits 40-47 ore provided by the channel and indicate conditions associated with the subchannel. 

Each status bit represents one type of condition as follows : 



devk:e or control unit 


Bit Position 


Designated Condition 


32 


Attention 


33 


Status Modifier 


34 


Control Unit End 


35 


Busy 


36 


Channel End 


37 


Device End 


38 


Unit Check 


39 


Unit Exception 



CHANNEL/SUBCHANNEL 


Bit Potition 


Designated Condition 


40 


Program -Controlled Interrupt 


41 


Incorrect Length 


42 


Program Check 


43 


Protection Check 


44 


Choinel Data Check 


45 


Channel Control Check 


46 


Interface Control Check 


47 


Chaining Check 



Bits 48-63 form the residual count for the last CCW used. 



' Note: This address is nst 8 higher on a command reject. 



Status Bit 


Status Condition 


Action 


45 
46 


Channel control check 

Interface control 
check 


Enter wait state with 
all interrupts nxisked 
off. 


38 
42 
43 
44 
47 


Unit check 
Program check 
Protection check 
Channel data check 
Channel chaining check 


Exit to unit check on 
Chart 17 for error 
recovery. 


32 


Attention 


For attention from a 1052^ 
include attention task 
in task selection and 
take general exit (EXT03). 
Attention interrupts 
are ignored if: 

1. System reallocation 
or condense is in 
operation. 

2. Attention is not 
from a 1052. 


35 


Device busy 


Skip channel end test. 


36 


Channel end 


See Chart FQ for 
actions taken. 
Attempts to re- 
schedule the channel 
(No attempt is made 
for the multiplex 
channel unless this 
is a burst-multiplex 
device). 


37 
34 


Device end 
Control unit end 


See Chart FP for 
actions taken* 
Attempts to re- 
schedule the channel 
(If the multiplex 
channel is being re- 
scheduled, only the 
device is rescheduled. 
If the device on the 
multiplex channel is 
a burst-multiplex 
device, both channel and 
device are rescheduled). 


33 and 35 


Control unit busy 


Reset device to 
available. The status 
is not tested unless 
neither channel 
end, device end, nor 
control unit 
end has occurred. 



Figure 41. CSW Testing in I/O Interrupt 
Processor 
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Displacement 










from ERBLOC 


Length 








in Decimal 


in bytes 


Description 






-2 


2 


Address of first error queue entry in table. 









2 


Address of retry ERP exit (EXRTY). 






2 


2 


Address of ignore ERP exit (EXIGN). 






4 


2 


Address of DISWHY (retry) ERP exit (EXWHY). 






6 


2 


Address of the channel queue table (CHANQ). 






8 


2 


Address of cancel ERP exit (EXCAN). 






10 


2 


Address of last entry in error queue table. 






12 


2 


Address of last entry queued to table- (initially ERQUE-22). 






14 


2 


Requestor I/O key (RIK). 






16 


2 


Address of cancel attention exit (ATNCNL). 






18 


2 


Address of attention dequeue exit (PUBDEQ). 






20 


2 


Address of attention exit (EXT02). 






22 


8 


A-transient phase name field ($$ANERRK) 






30 


5x22 


Five 22 bytes error queue entries. 








Error Queue Entry (22 bytes) 








Displacement 








Within Pub 






CSW 


Table Flag Message Sense Data Disk Seek Address | 





(8 byfes) 


(2 bytes) Byte Number (6 bytes) (4 bytes) 
-^ 8 ►lO ► n ^12 ^18 


-►22 








Bit 


Designation 









Unused 








1 


Intervention required 












2 


Passbook* 












3 


Allow ignore 












4 


Reserved (DASD) 












5 


Allow retry 












6 


No CCB available 












7 


Unused 








*Put on by device ERP when user wants 








control returned to him on error. 





Figure 42. Error Recovery Block (ERBLOC) 



PHYSICAL TRANSIENT PROGRAMS ($$A) —CHARTS 
18 THROUGH 20 



organization. The A- transients functions 
within DOS are: 



Physical transient programs are commonly 
referred to as A-transients. These 
infrequently used sections of the 
supervisor reside in the core image library 
and are fetched by the resident supervisor 
(SVC 3) only when needed. Each program 
phase name begins with the prefix 
characters $$A. These phases are loaded 
singly into the A-transient area. See 
Figure 14 for Supervisor storage 



1. Provide device- dependent Error Recovery 
Procedures (ERP) • 

2. Issue messages associated with ERP 
operations. Message Writer. 

3. Process 1052 attention requests. 
Physical Attention Routines. 

Figure 43 illustrates each A-transient in 
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terms of phase name, function, and program 
level chart identification, 

ERP; To understand the error recovery 
procedures detailed in the flowcharts, the 
reader should be familiar with the sense 
information that corresponds to the 
individual I/O devices supported by this 
system. The latter part of the Physical 
Transient Programs section lists the 
devices supported by ERP and also the sense 
byte data associated with the device. In 
addition, a brief statement describing the 
actiial ERP is made. Detailed procedures 
can be found in Appendix H (detailed 
flowcharts) . 

Note: Figure 44 is omitted intentionally. 

Figure 45 illustrates the unit record 
equipment supported by ^ERP and also 
indicates the sense bits associated with 
each device. 

CAUTION ; Although the 2311 disk error 
recovery procedures are not an A- transient 
when the SYSTEM=DISK generation option is 
selected, the sense data and action-taken 
information is included here. The 
inclusion of this material consolidates the 
sense data in this section of the manual. 
The 2311 disk ERP are part of the 
supervisor nucleus. See Chart 17. 

I MESSAGE WRITER; The message writer is a 
group of seven A- transients that build 
error messages, issue the message, analyze 
operator responses, and select the proper 
exit. 

Physical Attention Routines; The physical 
attention routines are three A-transients 
fetched by the supervisor when an attention 
interrupt has been determined. The 
attention key signals operator 
communication with the system. If the 
operator chooses to initiate a foreground 
program or to use the nonresident attention 
routine facilities, (other B-transients) 
the physical attention transients get the 
$$BATTNA root phase. If the operator is 
satisfying an operator intervention 
condition or canceling the job, the 
physical attention transients process the 
attention interrupt. When the physical 
attention routines are processing the 
interrupt, they perform parameter passing 
by using a common area called the 
interphase communications area . Figure 4 6 



illustrates this area and its relationship 
to the entire A-transient area. 



Phase Name 


Function 


Program 
Level 
Chart ID 


$$ANERRA 
$$ANERRB 
$$ANERRC 


Error Recovery Monitor 


18 
18 
18 


$$ANERRD 
■$$ANERRE 
$$ANERRF 
$$ANERRL 


Tape (2400) Error Recover/ 


18 
18 
18 
18 


$$ANERRG 

$$ANERRH 

$$ANERRI 

$$ANERRJ 

$$ANERRK 


Data Cell (2321 ) Error Recovery 


18 
18 
18 
18 
18 


$$ANERRM 
$$ANERRN 
$$ANERRO 
$$ANERRP 
$$ANERRQ 
$$ANERRR 


Message Writer 


19 
19 
19 
19 
19 
19 


$$ANERRU 
$$ANERRV 


Unit Record Error Recovery 


18 
18 


$$ANERRX 


Paper Tape Error Recovery 


18 


$$ANERR9 


Optical Reader (1285) Error Recovery 


18 


$$ANERRZ 
$$ANERRY 
$$ANERRO 


Physical Attention 


20 
20 
20 


$$ANERR1 


Modify Communications Region 


None (See 
Chart JY.) 



Figure 43. A-Transient Programs 
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Sense 


Bifs 






rv • 





















1 


2 


3 


4 


5 


6 7 


1052 


X 


X 


X 


X 








2501 


X 


X 


X 


X 


X 


X 




2540R 


X 


X 


X 


X 


X 




X 


2520P 


X 


X 


X 


X 






X 


2540P 


X 


X 


X 


X 


X 




X 


1442P 


X 


X 


X 


X 








1442 R/P 


X 


X 


X 


X 


X 


X 




2520 R/P 


X 


X 


X 


X 


X 


X 


X 


1403 


X 


X 


X 


X 


X 




X 


1443 


X 


X 


X 


X 






X 


2671 


X 


X 


X 


X 


X 






R = reader 
















P = punch 

















Figure 45. Unit Record Devices Supported 
by Device Error Recovery 



I/O ERROR RECOVERY PROCEDURES AND SENSE 
DATA 



2400 Tape Error Recovery 

CSW Bit 44 — Channel Data Check 

Action: Initial Selection — eight retries 
without respositioning. Read data 
transfer — no retries. Write data 
transfer — eight retries with 
repositioning. After stated number of 
retries y take equipnient error exit 
(cancel) . 





504 - byte Physical Transient Area 




ill 






iijiiiiii B c|d|e |f g|h 


ll 



The labels which are associated with these bytes are 
as designated below. Byte A is the first byte of the 
Physical Transient Area, Byte J is the last. Bytes B through 
H constitute the interphase communications area; when phases 
Z,y and are fetched or refetched, these bytes (B through H) 
are not overlaid and remain with information for the other phases. 



Byte 
A 



Label 

iJBPARl 
IJBPAR2 
IJBPAR3 

PARLTK 
PARCOAAM-1 

IJBPARl+493 

PARCOMM 

IJBPAR2+493 

PARCOM^A2 

PARCOMMC 

PARCOMMD 



Phase 

Z 
Y 




Y 

Z 
Y 



Note; Bytes C, D and E 
are used to indicate the 
program(s) F1,F2 or BG, to be 
canceled. 

Bytes F, G and H 
indicate the programs 
which use devices which 
require operator intervention. 

Byte B indicates if a 
canceled program has 
fetched a logical transient. 



F PARCOMMI Z 

PARCOMMJ Y 

PARCOMMC+3 
PARCOMMD+3 



D,E, 
G,H 



Addressed by incrementing or decrementing one of these labels. 



Message : OP28 CHAN DTCHK. 



Figure 46. Interface Communication Area 

(For Physical Transient Phases 
$$ANERRZ, $$ANERRY, and 
$$ANERRO) 



Byte 0, Bit 3 — Equipment Check 

Action: Take equipment error exit 
(cancel) . 

Message ; OPIO EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 
Action: Check for Rewind and Unload 
(intervention required at device end). 
If yes, take continue exit; otherwise, 
take operator intervention exit. 

Message ; OP08 INTERV REQ. 



Byte Or Bit 2 — Bus Out Check 

Action; If retry count is greater than 
seven (eight retries) , take equipment 
error exit (cancel) . If initial 
selection, take retry exit. Otherwise, 
perform repositioning and take retry 
exit. 



Message: OP09 BUSOUT CHK. 



Byte 0, Bit 5 Overrun 

Action: Allow eight retries, 
repositioning the tape. After eight 
retries, take equipment error exit 
(cancel) . 

Message: 0P14 OVERRUN. 



Byte 0, Bit 4 - Data Check 

Action; 1. Read Commands — CCB option. 

If the record length is less 
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than twelve and Byte 1, Bit 
(noise) is off, take retry 
exit. Otherwise, retry 100 
times with repositioning 
(back space/forward space) 
performing CRC correction. 
Perform tape cleaning every 
eight retries. Tape cleaning 
consists of five backspaces 
and four forward spaces. For 
a read backward, tape 
cleaning is done by five 
forward spaces and four 
backspaces. Detection of 
load- point causes termination 
of the backspacing sequence. 
After 100 retries, take 
equipment error exit (cancel, 
ignore) . 

2. Write and WTM 

Commands — Backspace erase and 
retry fifteen times, then 
take equipment error exit 
(cancel). For write 
commands, if unit exception 
is present in the CSW, post 
it to the CCB (Byte a. Bit 
7). 

3. Erase Gap Commands — After 
fifteen retries, without 
repositioning take equipment 
error exit (cancel) . 



Action: Allow eight retries, 
repositioning the tape. After eight 
retries, take equipment error exit 
(cancel) . 

Message : 0P14 OVERRUN 

Note: If an I/O error occurs during tape 
repositioning (other than backspace into 
Load Point on tape cleaning), equipment 
error exit (cancel) is taken with the 
message: OP20 ERR ON REC (Error During 
Recovery) . 

To achieve data check error recovery on 
write tape mark and erase gap commands, 
they must be command- chained to a no-op 
because the command code is not available 
for analysis when the error occurs (device 
end) . 

1052 Error Recovery 

CSW Bit 44 — Channel Data Check 

Action: One retry, equipment error exit 

(cancel, retry, ignore). 

Message : OP 2 8 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action : One retry, equipment error exit 
(cancel, retry, ignore). 

Message : OPIO EQUIP CHK. 



Message ; OPll DATA CHECK. 



Byte 0, Bit 7 — Data Converter Check 
Action: Take equipment error exit 
(cancel) . 



Byte 0, Bit 1 — Intervention Required 

Action: Execute audible alarm command and 
take operator intervention exit. 

Message : OP08 INTERV REQ. 



Message : OP30 CONVRT CHK. 



Byte 0, Bit — Command Reject 

Action: Take program check exit. 

Message : 0P18 COMM REJCT 



Byte 1, Bit 4 — Load Point and Byte 3, Bit 

6 -Backward status 

Action: Take program check exit. 

Message : OP29 BK INTO LP (Backward 
Command into Load Point) . 



Byte 1, Bit 7 — Not Compatible 

Action: Issue a rewind and unload command 
to the unit and then take operator 
intervention exit. 

Message ; OP32 NOT COMPAT. 



CSW Bit 47 — Chaining Check 



Byte 0, Bit 2 — Bus Out Check 

Action: One retry, equipment error exit 
(cancel, retry, ignore) . 

Message : OP09 BUSOUT CHK. 

Byte 0, Bit - Command Reject 
Action : Take program check exit. 

Message : 0P18 COMM REJCT. 

1403-1443 Error Recovery 

CSW Bit 44 — Channel Data Check 
Action : If initial selection, one 
retry — take equipment error exit (initial 
selection: cancel, retry; channel end: 
cancel, retry, ignore). 

Message : OP28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action: Take equipment error exit 



( cancel , ignore) 
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Message ; OPIO EQUIP CHK. 



Message; OP08 INTERV REQ. 



Byte 0, Bit 5 — Code General Storage Parity 

Error (14 03 only) 

Action ; Take equipment error exit 
(cancel). UCS buffer must be reloaded. 

Message ; OP33 UCB PARITY. 



Byte 0, Bit 1 — Intervention Required 

Action; Take operator intervention exit, 



Message ; OP08 INTERV REQ, 



Byte 0^ Bit 2 — Bus Out Check 

Action; If initial selection, one retry; 
otherwise, take equipment error exit. 
(Initial selection; cancel, retry; 
channel end; cancel, retry, ignore). 



Message ; OP09 BUSOUT CHK. 



Byte 0, Bit 7 — Channel 9 

Action; Post CCB, take continue exit. 

Note: This test is main storage resident. 



Byte 0, Bit — Command Reject 

Action; If command code is UCS enable or 
inhibit data check, take continue exit; 
otherwise, take program check exit. This 
procedure allows UCS-oriented programs to 
operate on non-UCS hardware. 

Message ; 0P18 COMM REJCT. 



Byte 0, Bit 4— Data Check (1403 Only) 
Action; Take equipment error exit 
(cancel, ignore). 

Message; OPll DATA CHECK. 



Byte 0, Bit 2 — Bus Out Check 

Action ; If initial selection, do one 
retry; then take equipment error exit 
(cancel, retry). If data transfer, take 
operator intervention exit. 

Message ; OP09 BUSOUT CHK. 



Byte 0, Bit 4 — Data Check 

Action; Take operator intervention exit. 



Message ; OPll DATA CHECK. 



Byte 0, Bit 5 — Overrun 

Action; Take operator intervention exit. 



Message ; 0P14 OVERRUN. 



Byte 0, Bit — Command Reject 

Action; Take program check exit. 

Message ; 0P18 COMM REJCT. 



CSW Bit 47 — Chaining Check 

Action ; Take operator intervention exit. 

Message ; OP14 OVERRUN. 

2501, 2520, 2540 Error Recovery 



CSW Bit 44 — Channel Data Check 

Action ; If initial selection, one retry; 
then equipment error exit (cancel, 
retry) . If read data transfer, take 
operator intervention exit. If punch 
data transfer, one retry; then equipment 
error exit (cancel, retry). 

Message : OP28 CHAN DTCHK. 



1442 Error Recovery 

CSW Bit 44 — Channel Data Check 
Action: If initial selection, one retry; 
then equipment error exit (cancel, 
retry) . If data transfer, take operator 
intervention exit. 

Message; OP28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action; Take operator intervention exit. 

Message : OPIO EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 

Action: Take operator intervention exit. 



Byte 0, Bit 3 — Equipment Check 
Action : Reader — Take operator 
intervention exit. Punch — CCB option. 
Take equipment error exit (cancel, 
ignore). For 2520, Byte 0, Bit 7 
indicates punch check. 

Message ; OPIO EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 

Action ; Take operator intervention exit. 

Message ; OP08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action ; Do one retry; then take equipment 
error exit (cancel, retry). If the 
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device is a 2520, do not retry if this is 
not initial selection (cancel, retry) • 

Message : OP09 BUSOUT CHK. 



take equipment error exit (cancel, 
retry) . 

Message : OP09 BUSOUT CHK, 



Byte 0, Bit U — Data Check (Can not occur on 
a 2520 punch) 

Action: Take operator intervention exit. 

Message: OPll DATA CHECK. 



Byte 0, Bit 5 — Overrun (Cannot occur on 
2540 or 2520 punch) 

Action: Take operator intervention exit. 



Message : OPIU OVERRUN. 



Byte 0, Bit — Command Reject 

Action: Take program check exit. 

Message : 0P18 COMM REJCT. 



Byte 0, Bit 6 — Unusual Command Sequence 
(2540 read only) 

Action: Post CCB — take continue exit. 



CSW Bit 47 — Chaining Check (2501, 2520 read 
only) 

Action: Take operator intervention exit. 

Message: 0P14 OVERRUN. 



2 671 Error Recovery 



CSW Bit 44 — Channel Data Check 

Action: If initial selection, do one 
retry. Take equipment error exit 
(cancel) . 

Message : OP28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action ; Test CCB for ignore option (byte 
2, bit 4) and if on, turn on byte 3, bit 
1 of the CCB and take equipment error 
exit (cancel, ignore, retry) . Otherwise, 
take operator intervention exit. See 
Note 2. 

Message : OPIO EQUIP CHK. 



Byte 0, Bit 1 — Intervention Required 

Action: Take operator intervention exit. 

Message : OP08 INTERV REQ. 



Byte 0, Bit 2 - Bus Out Check 

Action : Do one retry; if error persists. 



Byte 0, Bit 4 — Data Check 

Action: Test CCB for ignore option (byte 
2, bit 4) and if on, turn on byte 3, bit 
3 of the CCB and take equipment error 
exit (cancel, ignore, retry). otherwise, 
take operator intervention exit. See 
Note 1. 

Message : OPll DATA CHECK. 



Byte 0, Bit — Command Reject 

Action: Take program check exit. 

Message : 0P18 COMM REJCT. 

Note: A record may not be partly on one 
tape and partly on another. 

Note 1 : When a data check occurs, the 
user's CCW is modified by the error routine 
to allow rereading of the last character. 
The data address will be the last character 
read (character in error) and the byte 
count is decreased by the number of valid 
characters read. If the CCB ignore option 
is chosen and the operator responds ignore, 
the I/O operation is dequeued and posted 
with the disaster- error bit on (CCB byte 2, 
bit 2) and 2671 data- check bit on (CCB byte 
3, bit 3). 

To read the rest of the record, the 
problem program (logical IOCS) should add 
one to the CCW data address and subtract 
one from the JDyte count to adjust for not 
rereading the bad character and then 
reissue the EXCP. The operator must 
backspace the tape two characters for retry 
(option retry or on the A-type message when 
ignore is not allowed) . If the operator 
chooses the ignore option (the character in 
error is not to be reread) , he must 
backspace the tape one character if the 
load key was pressed to free the tape or if 
the character preceding the character under 
the read head is an EOR (End-of -Record) . 
Otherwise, no manual intervention is 
required for the ignore option* The ignore 
option is available to the operator 
whenever the user specifies any of the 
DTFPT ERROPT entry options. 

Note 2 : When an equipment check occurs, the 
operator must reposition the paper tape to 
the beginning of the record in error to 
perform the retry operation. The device 
must not be readied until this 
repositioning has been performed. If the 
ignore option is available to the operator, 
he can exercise this option by 
repositioning the tape to the beginning of 
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the next record on the tape and then 
responding ignore on the 1052 keyboard. 
The ignore option is available to the 
operator Whenever the user specifies any of 
the DTFPT ERROPT entry options. 

2311 DASD Error Recovery 

CSW Bit 44 — Channel Data Check 

Action : One retry; then equipment error 

exit (cancel, retry). 

Message: OP28 CHAN DTCHK. 



otherwise, take retry exit. After nine 
retries, post data check on count to CCB,, 
if present; otherwise, post data check. 
If command code is verify ,, post verify 
error to CCB. 



Messages ; 0P12 VERIFY CHK (Data Check on 

Verify Command) • 

OPll DATA CHECK (Data Check/not Data 

Check on Count or Verify) • 

0P16 DTA CHK CT (Data Check on Count). 



Byte 0, Bit 3 - Equipment Check 
Action: Take equipment error exit 
(cancel, retry) . 

Message: OPIO EQUIP CHK. 



Byte 0, Bit 5 — Overrun 

Action: If retry count is greater than 
nine, take equipment error exit (cancel, 
retry); otherwise, take retry exit. 

Message : 0P14 OVERRUN. 



Byte 1, Bit 4 - No Record Found* 

Action : Test for Byte 1, Bit 6 (Missing 
Address Marker) . If present, execute 
restore command and take retry exit. 
After ten retries, take equipment error 
exit (cancel, retry). If not present, 
read Home Address and compare to user's 
Seek Address. If equal, post No Record 
Found to the CCB and take continue exit. 
If not equal, treat as a Seek Check. 

Messages ; 0P21 NRF - MADDMK (No Record 
Found/Missing Address Marker) 
0P15 SEEK CHECK (Home Address unequal to 
Seek Address) 



Byte 1,, Bit 6 - Missing Address Markers* 
Action : If retry count is greater than 
nine, take equipment error exit (cancel, 
retry); otherwise, take retry exit,. 

Message : OP13 ADDR MRKER. 



Byte 0, Bit - Command Reject 
Action: Check for Byte 1,, Bit 5 



(File 



Protect) ; in either case,, take program 
check exit. 

Messages : 0P18 COMM REJCT. 
0P17 FILE PROT. 



Byte 0, Bit 7 — Seek Check 

Action ; If Byte 0, Bit (command reject) 
is on, take program check exit. 
Otherwise, execute restore command and 
take retry exit. After ten retries, take 
equipment error exit (cancel, retry). 

Messages ; OP26 INVAL SEEK (Seek 
Check/Command Reject) 0P15 SEEK CHECK. 



Byte 0, Bit 1 — Intervention Required 

Action ; Take operator intervention exit. 



Byte 0, Bit 6 — Track Condition Check 
Action ; 1. Read Home Address and RO in 

the errc>r recovery routine and 
move CCHiH from RO to Seek 
command executed below. 

2. If alternate track: update 
seek address to the next 
track address. If the track 
address equals 10, treat it 
as End of Cylinder; 
otherwise, proceed to step 3. 



Message ; OP08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action ; If retry count greater than nine, 
take equipment error exit (cancel, 
retry) ; otherwise, take retry exit. 



Message : OP09 BUSOUT CHK. 



Byte 0, Bit 4 - Data Check* 

Action ; CCB options (all data checks, 
data check on read or verify) . If retry 
count is greater than nine, take 
equipment error exit (cancel, retry); 



Set up the channel program: 
Seek, Read Home Address (with 
skip bit on) , TIC to CSW 
address minus eight. Execute 
this channel program in error 
recovery. At channel end, 
exit to channel scheduler CSW 
processing routine. If DASD 
file protection is present, 
set the appropriate file mask 
following Seek. 



Byte 1, Bit 1 — Track Overrun 

Action; Post track overrun to 
the CCB and take continue exit- 



r 
^ 
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Byte 1, Bit 2 — End of Cylinder 

Action: Post End of Cylinder to 
the CCB and take continue exit. 



Byte 1, Bit 5 — File Protect 

Action: Take program check exit. 



Message : 0P17 FILE PROT. 



CSW Bit 47 — Chaining Check 

Action: If retry count is 
greater than nine, take 
equipment error exit (cancel, 
retry) ; otherwise, take retry 
exit. 

Message : 0P14 OVERRUN. 

*For these errors. Home Address is read and 
the track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 

Note : If the 2311 error routine gets an 
error while trying to execute a Restore 
command or Read Home Address or RO, 
equipment error exit is taken with retry 
and cancel options with the message: OP20 
ERR ON REC (Error During Recovery). 

2321 DASD Error Recovery 

CSW Bit 44 — Channel Data Check 

Action: One retry; then 



equipment error exit (cancel, 
retry) - 

Message : 0P28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action: Take equipment error 
exit (cancel, retry). 

Message : OPIO EQUIP CHK. 



Byte 1, Bit 4- 
Action: 1. 



2. 



—No Record Found 
If Byte 1, Bit 6 (missing 
Address Markers) is present, 
go to step 2. Otherwise, go 
to step 6. 

If retry count is less than 
3, issue a Restore command 
and go to step 5. 

If retry count is equal to 
3, issue a Read Home Address 
to the first and last tracks 
of the cylinder. If neither 
is successful (unit checks), 
take equipment error exit 
(cancel, retry) . Otherwise, 
go to step 4. 



If retry count is equal to 
15, take equipment error 
exit (cancel, retry) . 
otherwise, go to step 5. 



5. Increment retry count and 
take retry exit. 

6. Issue a Read RO and compare 
CCH to user's Seek Address. 
If equal, post No Record 
Found to the CCB and take 
continue exit. Otherwise, 
go to routine for Seek Check 
(alone) . 

Messages : 0P15 SEEK CHECK (No 
Record Found/RO unequal to 
Seek Address) . 

0P23, BLNK STRIP (Step 3, cannot 
read Home Address) . 

0P21 NRF - MADDMK (Step 4, 15 
retries) . 



Byte 0, Bit 7 — Seek Check 

Action : If Byte 0, Bit (command 
reject) is present, take program 
check exit. If Byte 1, Bit 6 
(missing Address Markers) is 
present, take operator 
intervention exit. Otherwise, 
issue a Seek to BBllll, a Seek to 
BB2222, and take retry exit. 
After ten retries, take equipment 
error exit (cancel, retry). 

Messages : 0P26 INVAL SEEK (Seek 
Check/Command Reject) . 

OP22 BALST CELL (Seek Check/Missing 
Address Markers). 

0P15 SEEK CHECK (Seek Check alone). 



Byte 0, Bit 1 — Intervention Required 

Action ; Take operator intervention exit. 

Message : OP08 INTERV REQ. 



Byte 0, Bit 2 — Bus Out Check 

Action: Take retry exit. After 15 
retries, take equipment error exit 
( cancel , retry) . 

Message : OP09 BUSOUT CHK. 



Byte 0, Bit 4 — Data Check** 

Action ; 1. If retry count is less than 
eight,, go to step 5. 



2. If retry count is equal to 



System Control Programs 113 



226, take equipment error 
exit (cancel, retry). 



3. If retry count is an even 
number, issue a Seek to 
X-X-X-U-19 (last track of 
strip) and a Seek to 
X-X~X-0-0 (first track of 
strip) . Perform this 
operation eight times- Then 
proceed to step U. 



4. If retry count is any 

multiple of 32 (32, 64, 96, 
) , issue a Seek to 
next lower strip. (If this 
is the lowest strip - 00000 
- seek the next higher 
strip.) Proceed to step 5. 



If alternate track: Update 
Seek Address to the next 
track address. If track 
address equals 20, treat it 
as End of Cylinder; 
otherwise, proceed to step 
3. 



Set up the channel program: 
Seek, Read Home Address 
(with skip bit on) , TIC to 
CSW command address minus 
eight (last CCW executed). 
Execute this channel program 
in error recovery. At 
channel end, exit to channel 
scheduler CSW processing 
routine. If DASD file 
protection is present, set 
file mask (inhibit long 
Seeks) following the seek. 



5. Increment retry count and 
take retry exit. 

Messages ; OPll DATA CHECK (Data Check/not 
Data Check on Count or Verify) . 

0P12 VERIFY CHK (Data Check on Verify 

Command) . 

0P16 DTA CHK CT (Data Check on Count). 



Byte 1, Bit 1 — Track Overrun 

Action : Post track overrun to the CCB and 
take continue exit. 



Byte 0, Bit 5 — Overrun 

Action: Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry) . 



Message ; OPIU OVERRUN. 



Byte 1, Bit 6 — Missing Address Markers** 
Action; Perform action indicated under 



Data Check just described. 
Message ; OP 13 ADDR MRKER. 



Byte 0, Bit — Command Reject 

Action ; Check for Byte 1, Bit 5 (file 
protect); in either case, take program 
check exit. 

Messages ; 0P17 FILE PROT (Command 

Reject/File Protect). 

0P18 COMM REJCT (Command Reject alone). 



Byte 0, Bit 6 — Track Condition Check 

Action ; 1. Read Home Address and RO and 
move CCHH from RO to Seek 
command executed CCHH from 
RO to Seek command executed 
below. 



Byte 1, Bit 2 — End of Cylinder 

Action; Post End of Cylinder to the CCB 
and take continue exit. 



Byte 1, Bit 5 — File Protect 

Action; Take program check exit. 



Message ; 0P17 FILE PROT. 



CSW Bit 47 — Chaining Check 

Action: Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry). 

Message ; 0P14 OVERRUN. 

Note; If the 2321 Error Routine gets an 
error while trying to execute a Restore 
command, a Seek command (data-check 
procedure) , or a Read Home Address or a 
Read RO, equipment error exit is taken with 
retry and cancel options with the message; 
OP20 ERR ON REC (Error During Recovery) . 

**For these errors. Home Address is read 
and the track address is provided for the 
error message. For other conditions, the 
track address is obtained from the user's 
initial Seek address if the error occurs 
during channel program execution. 
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128 5 Optical Reader 



Message ; 0P09 BUSOUT CHK. 



CSW Bit 44~Channel Data Check 

Action ; One retry; then take equipment 
error exit (retry, cancel) . 



Byte 0, Bit 4 — Data Check 

Action: Post Byte 3, Bit 0, of CCB and 
take continue exit. (See Note. ) 



Message ; OP28 CHAN DTCHK. 



Byte 0, Bit 3 — Equipment Check 

Action; Post Byte 3, of CCB and then 
continue exit. (See Note.) 



Byte 0, Bit 5 — Overrun 

Action; Four retries; then equipment 
error exit (retry, cancel). 

Message ; OPl^l OVERRUN. 



Byte 0, Bit 1 — Intervention Required 
Action; Test for Byte 1, Bit 6 
(Non-recovery)--if present, post Byte 3, 
Bit a of the CCB. This indicates that 
the error is passed back to the problem 
program. Exit via equipment error. 

Message ; OP35 NON RECOV. If Byte 0, Bit 
6 is not present, take operator 
intervention exit. 

Message ; 0P0 8 INTLRV REQ. 



Byte 0, Bit 6 — Nonrecovery 

Action: Post Byte 3, Bit 4, of CCB and 
take continue exit. 



Byte 0, Bit 2 — Busout Check 

Action : One retry; then equipment error 
exit (retry, cancel). 



Byte 0, Bit — Command Reject 

Action: Take program check exit. 

Message ; 0P18 COMM REJCT. 



CSW Bit 47 — Chaining Check 

Action ; Four retries; then equipment 
error exit (retry, cancel). 

Message ; 0P14 OVERRUN. 



Byte 0, Bit 7 — Keyboard Correction 

Action ; Post Byte 3, Bit 1, of CCB and 
take continue exit. 

Note: Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are retried 
by Logical IOCS in an attempt to correct 
the error. 
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(Allowable \ 
Supervisor J 

Interrupt ^ 



GENERAL ENTRY 



Chart FA 



Objectives: 

1. Store the old PSW address for this interrupt in General Exit (EXTOl). 

2. Establish address of the PIB for the task that has been interrupted 
using the PIK. PIK equals tbe key of the last task selected on 
general exit. 

3. For interrupted bockground for foreground programs, general 
registers 1 to 8 are stored in their respective save area. 
The address of this save area is specified by the PIB. 

4. For interrupted supervisor or quiesce I/O tasks the respective 

PIB status flag is set to X'85' (task is mode active). 



( LPSW \ 



ATNRTN 



(LPSW N 

Wait State J 



EXIT TO INTERRUPT PROCESSOR 



o Supervisor call interrupt ■ 



• I/O interrupt - 



• Program check interrupt 

• External interrupt 

• Machine check interrupt 



'IsIa rri general 



EXTOl, EXT02, EXT03 



EXTER NAL 

LPSW ^ 

Hard Wait J 



GENERAL EXIT (TASK SELECTION) 



Chart FD 



There are 3 general exits: 

• EXTOl 

• EXT02 

• EXT03 

EXTOl : Direct return to the interrupted task or program. 

EXT02: Task selection; determine which task or program should run next. Task selection 
is performed because the next task may be other than a return to the interrupted program 
or task. 

The PIB status flag (byte 0) indicates the task or program is: 

1. Ready to run (unbound) 

2. Waiting for I/O to complete or a time interval to elapse (SVC 7 bound). 

3. Waiting for the B-transient area to become available (SVC 2 bound). 

4. In control of the system (seized by a SVC 22). 

5. Detached from the system (Foreground programs and attention task only). 

Priority is determiend by the sequence of the PIB's. Task selection selects the highest 
priority task or program that is: 

1. Unbound, or 

2. SVC 2 bound but the B-transient area is no longer in use. 

CAUTION: A program, or task, that has seized the system by issuing a SVC 22 will be 

selected over all other programs or tasks except special supervisor tasks (Supervisor and 

Quiesce I/O). 

Refer to Figure 33 for task selection procedure. Refer to Figure 22 for the format of 

the PIB tables. 

The following table of tasks tested during task selection are in priority sequence. 

The PIK in the communications region is set to the PIB displacement for the task or 

program selected. The exit from the General Exit routine, after a task is selected, is shown 

in the table. 
-1. Supervisor task; return to the point where Supervisor was interrupted. 

2. Quiesce I/O task 

- 3. Attention task 

4. Foreground 1 program 

5. Foreground 2 program 

6. Background program 

-7. All Bound (no task or program is ready to run); load external old PSW and enter wait 

state with all interrupts masked on. 
EXT03 ; This exit insures that the old PSW and registers are stored before task selection. 
Task selection is performed the same as for EXT02. (See EXT02.) 
Considerations for Supervisor Generated Without MPS: Task selection functions are the 
same as with MPS option except the foreground program and all bound PIB's are not included. 




QUISIO 




Chart 12. Supervisor General Entry, General Exit, and Processor Exit 
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ATNRTN 

RESIDENT AHENTION ROUTINE 



Charf GX 



1052 Attention Key: When an attention request is 
made, the attention PIB status is changed to active. 
First the ph/sicql attention transient program 
($$ANERR20 is fetched. When the attention PIB 
is next selected, the logical attention transient 
program ($$BATTNA) is fetched. After the logical 
attention transient program releases control, the 
attention PIB status is changed to inactive. In a 
batch job only system (BJS), the attention routine 
runs attached to the problem program. 
External Interrupt Key; Same actions as for the 
1052 attention key above except that the physical 
attention transient program ($$ANERRZ) is not 
fetched. 

Timer Interrupt Waiting: Refer to the CAUTION in 
the timer interrupt routine on Chart 16. The pro- 
gram switch at ITBRC being set, returns to the 
timer interrupt routine because timer interrupt 
processing has not yet been completed. 




$$ANERRZ 



Chart 13. Resident Attention Routine 
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6 



SVC INTER RUPT 

m 



V 



ENTSVC 



CHANNEL 
SCHEDULER 



SVC INTERRUPT PROCESSOR 



Chart GH 



ObjecHve; Branch to the 
routine for processing the 
requested supervisor call. 

The SVC code is used to 
index a table of SVC routine 
addresses. The figure at *E4 
on Chart GH contains the label 
and chart locations for all 
supervisor calls. The task is 
canceled {ERR21) if an SVC code 
greater than 26 is issued. De- 
tailed explanations for each 
supervisor call can be found in 
the preceding discussion of the 
Supervisor Program. 



-SVCO 
SVC 1 
SVC 2 
SVC 3 
SVC 4 
SVC 5 

-SVC 6 
SVC 7 
SVC 8 
SVC 9 
SVC 10 
SVC 11 
SVC 12 
SVC 13 

-SVC 14 

-SVC 15 
SVC 16 
SVC 17 
SVC 18 
SVC 19 
SVC 20 
SVC 21 

+SVC 22 



- Execute Channel Program, 

- Fetch problem program phase. 

- Fetch B-Transient. 



- Fetch or return from an A-Transient. - 

- Load any phase. ■ 



Modify communications region. • 

- Cancel. 

- Wait. 



- Transfer to user from B-Transient. 

- Return to B-Transient after SVC 8. . 

- Set Timer Interval, 

- Return from B-Trans«*jnt. 

- Reset 2nd Job Control switch. 

- Set 2nd Job Control switch. 

- EOJ. 

- EXCPdgnored if CHANQ full). 

- Store users PC exit. 

- Return from users PC routine. 

- Store users IT exit. 

- Return from users IT routine. 

- Store users OC exit. 

- Return from users OC routine. 

- Seize or Release the system, 

SVC 23 - Load phase header. 

SVC 24 - Store users TECB address and set timer interval . 
- SVC 25 and SVC 27 - Half I/O on T/P device. 

*SVC26 - Validate address limits. 

+MPS only - ignored in BJS. 

*lgnored in BJS without SP. 



ERRIO 

ERR20-27 

ERR30-33 



O- 



GENERAL CANCEL 



Charts FB to FC 



Refer to Figure 34 for a table of cancel 
codes used by the Supervisor program. 
Objectives of General Cancel are: 

1. Calculate the cancel code. 

2. Post the cancel code to the canceled program's PIB. 
See Note 1 . 

3. Release the logical transient (B- transient) area, if 
it is in use by the canceled program. See Note 2. 

4. Logical I/O cancels store the canceled 
programs registers and exit to I/O 
Interrupt to: (1) dequeue the CHANQ 
entry, (2) attempt to re- schedule the 
channel, and (3) take general exit, 
EXT02. Other cancels take general exit, 
EXT02. The next time the program to be 
canceled is selected on general exit, 
$$BEOJ will be fetched to cancel the program. 

Note 1 ; The PIOCS error routines post the 

cancel code to the canceled program's PIB. 

Entry to general cancel for these cancels 

are at label ERRSET. 

Note 2 : Bit X'BO' of the cancel code is set 

when the canceled program is using the B- transient area, 



FCHRTl 
FCHRT2 



FETCH SUBROUTINE 



OPTION 



MPS 



BATCH ONLY 



CHARTS 



GA-GC 



GD-GF 



Objectives: 
1. Load a problem program 

phase or transient program from the core 

image library of SYSRES to main storage. 
2. Supply the load address for a phase from the core 

image directory entry (SVC 23). The sequence of 

events to load a phase are: 

0. Determine the disk address of the sub -directory 
where a scan of directory entries is to begin. 

• $$B - LiOCS open sub- directory 

• $$- Transient sub -directory 

• $- Library routine sub- directory 

• FGP- Foregrourxl program sub- directory 

• Other- Problem program sub- directory 

b. Scon the directory entries until a match is made 
to the user phase name. 

Note; The physical transient area (PTA) is used 
as an I/O area for directory blocks, referenced 
by a DSECT, with 8 leading bytes for the name 
of the phase called and room for 18 20- byte 
directory entries (1 block). 

c. Relocate the l/E entry address if an overriding 
load address has been specified. The phase 
entry address is passed to the user via register 1 . 
Load the phase into main storage. 
For a background phase, store the end address of 
the phase in the communications region, dis- 
placement 36. 

See Figure 6 for the format of phase directory entries and 
Figure 7 for the format of the core image library entry. 



d. 



GENERAL 
EXIT 



Chart 14. SVC Interrupt Processor, General Cancel, and Fetch 
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I/O INTERR UPT 
*12-D 
17-D VD> 



INTRTN 



I/O INTERRUPT PROCESSOR 



Charts FN to FS 



l/O interrupts are caused by termination of an I/O operation or 
operator intervention on the I/O device. Each I/O interrupt is 
processed in this manner: 

1. Find PUB for the device that causes the I/O interrupt. The device 
last started is tested first. If the device that caused the I/O inter- 
rupt is not found, an attempt Is made to re-schedule the channel. 
See Note 1 . 

2. Exit to the channel appendage routine if oM of the following 
conditions exist: 

a. Supervisor has been generated with tele-processing option 
(TP=BTAM). 

b. The device causing the I/O interrupt has I/O pending (CHANQ 
pointer is not X'FF'). 

c. The user has specified an appendage routine address In the CCB. 

d. The program has a flag on in its PIB indicating an appendage 
routine address In the CCB is allowed. 

3. Evaluate CSW. Refer to Figure 41 for CSW testing on an l/O 
interrupt. 

4. If status Is attention from a 1052 the attention routine PIB flag Is 
posted to Include the attention routine in task selection and 
general exit, EXT03, Is taken. 

5. If the device status indicates that the channel program has been 
successfully completed; 

a. Post traffic bit In the CCB. 

b. Dequeue the CHANQ entry If device end posting was not 
requested. (See Figure 21 for format of the CHANQ table). 

c. Exit to START I/O If there Is more I/O pending on this 
device. If not, attempt to re-schedule the channel. See 
Note 1. 

Note 1: Re-schedule the channel, with MPS: The PUB's In the 
channel list are scanned, beginning with the PUB following the last 
one started, and the first one with I/O pending will be the next PUB 
started. If the end of the channel list is reached, the scan continues 
from the first PUB in the channel list. If no I/O is pending in the 
channel go to the general exit routine. 

This method is used to Insure the sharing of the channel between 
programs when operating in multi -programming and Is referred to as 
a rotating PUB scan. 

Re-schedule the channel, batch only; Same as with MPS except the 
channel list Is always scanned beginning with the first PUB in the 
channel list (FOCL). 




SVC 15, SVCOO 



UNIT CHECK 



CHANNEL SCHEDULER 



Charts FF to FH 



SVC and SVC 15; The objective of the channel scheduler is to build 
an entry for the channel program in the CHANQ, LUBID, and REQID 
tables. Refer to Figure 35 for a sample of a device queue in the CHANQ 
table. Refer to Figure 21 for the format of the CHANQ, LUBID, and 
REQID tables. Refer to Figure 36 for the format of the CCB (channel 
command block). 

Communications and status bytes 2 through 6 of the CCB are reset 
before making the CHANQ entry. 

Exit from channel scheduler is to START I/O If; 

1. This I/O request for the device Is the first in queue (CHANQ pointer 
in the PUB contained the null code, X'FF') and 

2. This device Is not busy (busy flag in the PUB is reset). 

If the above conditions are not met, general exit, EXT01, is taken. 




System l/O Files 
Assigned to a 23 11 ; 

SYSIPT, SYSRDR, SYSPCH, and SYSLST are System l/O files. Before 

a start l/O Is Issued to these files, the search address in the user CCW 

chain is checked against the current address In the DIB. Refer to 

Figure 23 for the format of the DIB tables. 

DASD File Protect; Extent Information must be present in the JIB's 

for all files assigned to a 231 1 or 2321 (data cell) except system 

I/O files assigned to a 2311 and SYS RES. Any access to DASD 

file must fall within the extents specified in the JIB's. Refer 

to figure 24 for the format of the JIB's. 

Start I/O; If the device is barst-multlplex, but the channel Is 

presently operating In burst-multiplex mode, take general exit, 

EXTOL An SIO command Is issued to start the device, if the 

channel is available. The alternate channel is tested if the 

device is switchable. Before using the SIO command, the correct 

CCW address must be set in the CAW. 

1. For 7-track tape, CAW= set mode CCW. 

2. For SYSLOG, CAW = Prefix ID CCW. 

3. For DASD file protected devices, CAW equals CCW-chaIn In 
the supervisor, which TIC's to the user's chain. 

4. For all others, CAW= CCW specified by CCB. 

If the device receives a normal start (condition code 8 set on SIO) 
post the device busy flag in the PUB and take general exit, EXT01 , 



[p 



GENERAL EXIT 



Chart 15. I/O Interrupt Processor and Channel Scheduler 



System Control Programs 119 



i PROGRAM CHECK INTERRUPT 



ENTPCK 



PROGRAM CHECK INTERRUPT PROCESSOR 



OPTION 



NO PC RTN 



PC, NO IT, 
OC, OR SP 



PC WITH IT, 
OC, OR SP 



CHARTS 



FB 



GQ 



GR 



The program is canceled 
(ERR20) if: 

1. Supervisor was generated 
without user PC routine 
option. 

2. The user has not 
previously supplied the 
address of a PC routine 
by issuing a STXIT PC 
nxicro. 

3. The user has specified an invalid save area. 

4. The program check occurs while a B-Transient is in 
operation. 

5. The program check occurs while the user's PC routine is 
in operation (routine in use). 

To exit to the user's PC routine: 

1. Save the PC old PSW and problem program general 
registers in the user-supplied save area (72 bytes). 

2. Store the address of the user PC routine in the PC 
old PSW. 

3. Branch to general exit (EXT03). 

The user's PC routine will be executed when this 
task is selected in the general exit routine. Return from 
the user's PC routine must be with an EXIT PC macro. 
See Figure 25 for PC option tables. 




YES 



GENERAL CANCEL 

EXTERNAL INTERRUPT 



SIGNAL 




EXTERNAL INTERRUPT KEY OPTION 



NO IT 
OROC 



FE 



WITH 

IT OR OC 



GS 



The attention routine PIB is 
posted to include the 
attention routine in task 
selection. The non- 
resident attention routine 
($$BATTNA) processes the 
request when the attention 
task is selected in general exit. 
Note; If supervisor was generated without user OC 
(operator communications) routine option, the interrupt is 
ignored. 



CHART 



EXTERNAL INTERRUPT, TIMER OPTION 



NO IT 
OROC 



WITH IT 
OROC 



CHART 



FE 



GS 



The timer (SYSTIMER) is 
reset to its maximum value 
(X'FFFFFFFF')and the 
system time of day (SYSTOD) 
is updated to the time that 

the next timer interrupt will 

occur (current time +15.5 
hours). 

Note; Current time of day is calculated by subtracting the 
remaining interval (SYSTIMER) from SYSTOD. 
The timer interrupt is ignored if: 

1. Supervisor was generated without interval timer feature 
option. 

2. The timer supported program has been canceled. 

3. The timer interrupt occurred while the user's IT routine 
was in operation (routine in use). 

With User TECB Address ; The traffic bit is posted in the 
user's TECB (timer event control block) and the timer sup- 
ported program is included in task selection. The TECB 
address is cleared in the IT option table. 
With User IT Routine : To exit to the user's IT routine: 

1. Save the external old PSW and timer -supported -program 
registers in the user-supplied save area (72 bytes). 

2. Store the address of the user IT routine in the external 
old PSW. 

3. Branch to general exit (EXT03). 

The user IT routine will be executed when this task is 
selected in the general exit routine. Return from the user's 
IT routine must be with an EXIT IT macro. 

See Figure 25 for the IT option table. Refer to Figure 
36 for the format of the CCB (TECB has the same format as 
the CCB. Only the traffic bit X'80' in byte 2 is used). 
CAUTION ; If a B-Transient is operating for the timer 
supported program when the timer interrupt occurs for a user 
IT routine, the exit is deferred. The attention routine PIB 
is posted to include the attention routine in task selection 
when the B-transient area is released. A switch (ITBRC) is 
set in the resident attention routine to continue timei* inter- 
rupt processing when the attention task is selected on 
general exit. 



GENERAL EXIT 



Chart 16. Program Check and Internal Interrupt Routines 
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UNTCKl 
UNTCK2 



I 



UNIT CHECK 



Charts FT-FU 



Determine the action to be taken 
for the following error conditions: 

• Unit check 

• Channel data or channel chaining 
check 

• Program check or protection check 
User Unit Check Routine ; Post the 
disaster error flag (bit 18) in the 
CCB and return to the I/O interrupt 
routine to continue testing the CSW 
(this error is ignored by PIOCS). 

No User Unit Check Routine ; Build 
a 22 byte error queue entry in the 
error queue table. The error queue 
table is 5 entries long; an attempt 
to build more than 5 entries causes 
a cancel condition (ERR31). Refer 
to Figure 42 for the format of an 
error queue entry. 
Exits from Unit Check: 

• Disk device; exit to Resident 
Disk Error Recovery 

• Channel 9 overflow on printer; 
post channel 9 overflow to CCB 
and take ignore exit (EXIGN). 

• All other conditions; exit to 
fetch the ERP monitor (EXTRAN) 
where the Quiesce I/O Task will 
be included in task selection 

on general exit (EXT03). 



RESERR 




OTHER 



RESIDENT DISK ERROR RECOVERY Charts GV-GW 



Objectives: 

1. Analyze the sense information 
and the CSW stored in the 1st 
entry in the error queue table. 

2. Determine and execute the disk 
error recovery procedure, and 
then choose one of the error 
recovery procedure exits. 
Refer to Figure 44 for disk 

sense information and to Figure 42 
for the format of an error queue 
entry. 



QUISIO 



QUIESCE I/O TASK 



Chart FZ 



Wait for completion of all CHANQ 
entries for every non-tele-processing 
device on the channel (All PUB CHANQ 
pointers are null, X'FF')« Quiesce 
I/O PIB remains in the task selection 
until all entries in the error queue 
have been processed. Only one error 
queue entry will be processed by ERP 
(error recovery procedure) A-transients 
at a ti-me. When the error queue table 
is empty (5 entries are maximum), 
Quiesce I/O task is removed from task 
selection at general exit. 



OTHER 



$$ANERRA 




TAPE 



^ 



ns-o 

19-D 



$$ANERRD 



ERP EXITS 



ERROR RECOVERY PROCEDURE EXITS 



Charts FV-FW 



EXTRAN: Includes Quiesce I/O task in task 

selection and returns to I/O Interrupt 

to attempt to re-schedule the channel. 

Initiates procedure for fetching the 

ERP monitor ($$ANERRA). 

RCVERR: Same action as EXTRAN exit. 

See EXTRAN. 

EXCAN; Cancel code has already been 

set in the PIB by the PIOCS error 

recovery procedure. Releases the 

B-transient area, if the canceled 

program was using the B-transient area. 

EXTOl is taken. 

Note; This exit returns to the physical 

transient. 

EXIGN; Restore the CSW from the error 

queue entry and dequeue the error queue 

entry. Return to I/O Interrupt and 

continue evaluating the CSW. 

EXWHY: Retry the user's channel program 

starting with the CCW in error. Dequeue 

the error queue entry. Return to I/O 

Interrupt and re-evaluate the CSW. 

EXRTY: Same action as EXIGN if the retry 

flag is not set in the error queue entry. 

If the retry flag is set, dequeue the 

error queue entry and return to I/O 

Interrupt to re-schedule the channel. 




I/O INTERRUPT 



Chart 17. Unit Cheeky Resident ERP, and Quiesce I/O Routines 
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$$ANERRA 



$$ENERRD 



ERP MONITOR 



Charts HA- HD 



The ERP monitor is composed of two A- transient programs. 
These ore: 

1 . $$ANERRA - determine device type and identify 
2311 unrecoverable errors. 

2. $$ANERRB - continue identification of 231 1 
unrecoverable errors. 

Determine device type to be: 

o Data cell (2321)- fetch $$ANERRG 

• Unit record - fetch $$ANERRU -—------—-—— 

• Paper tape - fetch $$ANERRX -—-—-—-— 

• Disk (231 1) - analyze CSW and sense data to 
identify the unrecoverable error, post message code 
to the error queue entry, and fetch the message 
writer ($$ANERRM). 

Refer to I/O Error Recovery Procedures for disk sense data 
and to Figure 42 for the format of the error recovery block. 

• Optical reader- fetch $$ANERR9 -----—— 



$$ANERRG 



DATA CELL ERROR RECOVERY 



Charts HN-HQ 



Data cell error recovery is accomplished by five A- 
transient programs. These are: 
1 o $$ANERRG - error analysis. 

$$ANERRH - track condition check procedure. 

$$ANERRI - data check and missing address 

marker procedures. 

$$ANERRJ - no record found and seek check 

procedures. 

$$ANERRK - continuation of number 3 above. 
Objectives: 

1 . Analyze the sense information and CSW stored 
in the 1st entry in the error queue table. 

2. Determine the data cell error recovery procedure, 
and choose one of the error recovery procedure exits. 

Refer to I/O Recovery Procedures for data cell sense 
information and to Figure 42 for the format of the error 
recovery block. 



2. 
3o 



5. 



$$ANERRX 



PAPER TAPE ERROR RECOVERY 



Charts JP- JQ 



Paper tape error recovery is accomplished by one A- 

transient program, $$ANERRX. 

Objectives: 

1 , Analyze the sense information and the CSW stored 
in the 1st entry in the error queue table. 

2. Determine the paper tape error recovery procedure, 
and choose one of the error recovery procedure 
exits. 

Refer to I/O Error Recovery Procedures for paper tape 
sense information and to Figure 42 for the format of the 
error recovery block. 



TAPE ERROR RECOVERY 



Charts HE- HM 



Tape error recovery is accomplished by three A- transient 
programs. These are: 

1 . $$ANERRD - error analysis and selected error 
procedures. 

2. $$ANERRE - selected error procedures. 

3. $$ANERRF - data check procedure. 
Objectives: 

1 . Analyze the sense information and the CSW stored 
in the 1st entry in the error queue table, 

2. Determine the tope error recovery procedure, and 
choose one of the error recovery procedure exits. 

Refer to I/O Error Recovery Procedures for data sense 
information and to Figure 42 for the format of the error 
recovery block. 



$$ANERRU 



UNIT RECORD ERROR RECOVERY 



Charts JK-JL 



Unit record error recovery is accomplished by two A- 
transient programs. These are: 

1 , $$ANERRU - unit record test cannot occur 
conditions, channel data check, and 1052 errors. 

2. $$ANERRV- 1403, 1442, 1443, 2501, 2520 and 
2540 error recovery procedures. 

Objectives: 

1 . Analyze the sense information and the CSW stored 

in the 1st entry in the error queue table. 
2o Determine the unit record error recovery procedure, 

and choose one of the error recovery procedure 

exits. 
Refer to I/O Error Recovery Procedures for unit record 
sense information and to Figure 45 for unit record devices 
supported. Refer to Figure 42 for the format of the error 
recovery block. 



$$ANERR9 



OPTICAL READER ERROR RECOVERY 



Charts JR- JRB 



Optical Reader error recovery is accomplished by one A- 

transient program, $$ANERR9. 

Objectives: 

1 . Analyze the sense information and the CSW stored 
in the error queue table. 

2, Determine the optical reader error recovery 
procedure and choose one of the error recovery 
procedure exits. 

Refer to I/O Error Recovery Procedures for optical reader 
sense information and to Figure 42 for the format of the 
error recovery block. 



^ 



Chart 18. Physical Transients ERP 
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$$ANERRM 



MESSAGE WRITER ROUTINE Chart JA 



Analyzes message code in Error Queue 
entry for device in error; selects 
appropriate 10-byte message and 
obtains CCB address - both are 
stored in save area for use by subsequent 
phases. 



$$ANERRN 



I 



MESSAGE WRITER ROUTINE Charts JB-JC 



Prepares and saves message with following 
information: 

1. Program type (BG, Fl, F2) which 
error device Is associated with; 

2. Message number; 

3. Type of action required and response, 
if necessary. 

If SYSLOG is unassigned, phase R is 
called unless the message is information 
only in which case S is called, bypassing 
intervening phases. 



$$ANERRO 



MESSAGE WRITER ROUTINE 



Chart JD 



Prepares and saves message information 
about: 

1. Symbolic name of device, e.g., 
SYSRDR or SYS001 ; 

2. CSW; 

3. Sense Byte Data; 

4. Channel and Unit Number of device; 

5. Seek address at error time if 
DASD. 



$$ANERRP 



Message Writer Routine 



Chart JE 



Prints errbr message containing information 
gathered and saved from previous phases; 
prints on 1052 or printer. 
Can call phose Q, R, or S depending upon 
type of error involved. 




$$ANERRQ 



Message Writer Routine 



Charts JF-JG 



Analyzes operator's response to message 
and turns on appropriate flags for use 
of phase S. Receives operator's response 
via the 1052 keyboard. However, if 
operator responds incorrectly, the 
message "OPNND INVALID RESPONSE" 
is printed and phase R is called. 



$$ANERRR 



Message Writer Routine 



Chart JH 



If a system-to-operator message could 

not be printed on SYSLOG for any of 

several possible reasons, the console 

is used to communicate with the operator. 

Information is stored for console display 

as follows: 

Byte - message number; 

Byte 1 - Action character (A, D, I); 

Bytes 2 and 3 - Channel and unit number 

of error device; 

Byte 4 - desired operator response . 

If action or decision is called for, the 

system is put in a wait state pending 

operator's response. 



r WAIT J 



$$ANERRS 



Message Writer Routine 



Chart JJ 



Analyzes the External Option Flags set 

in phase Q by the operator's response 

and chooses the appropriate exit to 

Cancel, Retry, or Ignore. 

Here is a sample format of the error 

messages: 

BG OP19I C COMM REJCT SYS003 = 191 

CCSW = XXXXXXXXXXXXXXXXXX SNS= 

XXXXXXXXXXXX CCB = XXXXXX SK = 

BBBBCCCCHHHH 




Chart 19. Physical Transients Message Writer 
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$$ANERRZ 



9 



PHYSICAL ATTENTION 



Charts JU-JV 



This physical transienf is used to perform tests whose 
results determine which A or B- transient is required 
for further processing of the attention interrupt. 

1. If SYSLOG is not a 1052-exit. 

2. Scan the PUB (Physical Unit Block) for devices 
requiring operator intervention. 

a. Store the program interrupt key (PIK) of 
the program that owns the device requir- 
ing operator intervention in the inter- 
phase communication area (PARCOMAf^)- 
exit 



If no operator intervention is required, 
and if the attention request switch is 
ON, exit 



If no operator intervention is required, 
and the attention request switch is 
OFF, exit 



If this phase is entered with the attention 
recall switch ON, the supervisor routines ore 
used to cancel tho proqram and dequeue the 
channel queue. These routines are entered via a 
SVC 3 and control returns to this A-tronsient line. 



$$ANERRY 



^ 



PHYSICAL ATTENTION 



Charts JS-JT 



1. 



Send the message: 

ARb 0P60Q INTERV REQ FOR xxx 

where xxx is FGl, FG2, or BGb 
Read the operator response which is either 
CANCEL or IGNORE. 

a. CANCEL response: Turn ON the physical 
attention recall switch, exit - 




IGNORE response and the attention 

request switch ON, exit 

IGNORE response and the attention 
request switch OFF: Turn the attention 
request switch ON, exit below. 



SVC3 to Exit >v 

to Task SelectionN 

in the General J 

^ Exit EXT02 y 



C 



CSVC3 Fetch A 
$$ANERRZ J 



6 



SVC3 Fetch 
$$ANERRO 



J 



9 



$$ANERRO 



Issue a SVC3 to enter the task selection 
mechanism of the supervisor program. These 
conditions are present: 

• RF contains the address of the general exit 
(EXT02). 

• The phase name in ERBLOC has been 
modified to $$ANERRx where x equals the 
physical transient ID (Hex 01). 

e The attention routine PIB flog has been set 
to a Hex 81, making that routine eligible 
for selection when the logical transient 
area becomes available. 



^SVC3 Fetch $$BATTN>V 

(Chart 21) Via EXT02 
^.Task Selection 



n)\ 

y 



PHYSICAL ATTENTION 



Charts JW-JX 



1. Send the message: 

ARb IHQD __EMERGENCY CANCEL 

ARb (Respons e Fits Her e.) __ 

2. ReocTthe operator response: 

a. Valid responses: 

CANCEL bbb (cancel background programs) 
CANCEL FGl (cancel foreground 1) 
CANCEL FG2 (cancel foreground 2) 
CANCEL BGb (cancel background) 

b. invalid response (other than those listed 
above), send the message: 

ARb__ lS0fil_p__IN VALID STATEMENT 

ARb~ TRe^nSeTi ts_HereO _ 

3. Set the concel code in the PIB indicated by 
the response. 

4. Cancel the program with the supervisor ATNCNL 
routine. Enter the routine by issuing a SVC3. 
Control is returned to this A-tran$ient when 

the SVC old PSW is loaded by the supervisor. 

5. Final exit from this transient is to the super- 
visor task selection mechanism after these 
conditions are set: 

• RF contains the address of the general 
exit (EXT02). 

• The phase name in ERBLOC has been mod- 
ified with the physical transient ID. 

* CAUTION 
Emergency cancel signalled by 2 
consecutive attn requests 



'^5VC3toExit >. 
to Task Selection 1 
in the General j 

^Exit Routine >/ 



Chart 20, Physical Transients — Physical Attention Routine 
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SUPERVISOR B-TYPE TRANSIENT PROGRAMS 
(CHARTS 21 THROUGH 30) 



B-transient programs are infrequently-used 
routines; therefore they are not resident 
in main storage. They may be fetched or 
loaded from the core image library when 
needed. The B-transients occupy an area of 
1200 bytes (1000 bytes in TOS) referred to 
as the Logical Transient Area (LTA) . 



A SVC 2 instruction loads and executes a 
B-transient phase. A prefix of $$B to the 
name of a phase identifies it as a 
B-transient. The normal return to 
supervisor nucleus control is an SVC 11, 
but some of the transient programs exit by 
fetching another B-transient with an SVC 2. 
In the latter case, the calling B-transient 
will be overlaid by the transient being 
fetched. 



Register 1 is loaded with the address of 
the transient name prior to issuing the SVC 
2, so the fetch or load routine has access 
to the name for purposes of searching the 
disk directories or tape records for the 
desired transient. 



B-Transient Grouping 



The supervisor B-transient programs can be 
grouped by the various functions performed. 
These functions are nonresident attention 
routine, foreground program initiator, and 
program terminator. 



INITIATOR 

Foreground Initiator (Charts 21-23) 
includes these B-transients: 

$$BATTNA Chart KA 

$$BATTNC Chart KG 

$$BATTNfl Chart KT 

$$BATTNI Chart KV 

$$BATTNJ Chart LH (see Figure 48) 

$$BATTNK Chart LP 

$$BATTNL Chart LX 

$$BATTNM Chart MC 

Program teinninator (Charts 26-30) 
includes these B-transients: 



$$BEOJ Chart NA (see Figure 50) 

$$BE0J3 Chart ND 

$$BTERM Chart NE 

$$BPCHK Chart NT 

$$BILSVC Chart NN 

$$BE0J2 Chart NL 

$$BEOJl Chart NJ 

$$BPSW Chart NR 

$$BDUMP Chart NV 

$$BDUMPF Chart NX 

$$BDUMPB Chart PB 

$$BDUMPD Chart PG 

$$BPDUMP Chart PL 

$$BPDUM1 Chart PM 

Nonresident Attention (Charts 21, 24, 
and 25) includes these B-transients: 

$$BATTNA Chart KA 

$$BATTNB Chart KE 

$$BATTNC Chart KG 

$$BATTND Chart KJ (see Figure 47) 

$$BATTNE Chart KN 

$$BATTNF Chart KQ 

$$BATTNG Chart KS 

$$BATTNH Chart KT 

$$BATTNN Chart MH 

$$BSYSWR Chart PS 

INITIATION (FIGURE 49) 

Foreground programs are initiated by the 
operator through the 1052 assigned to 
SYSLOG. The operator may initiate a 
foreground program whenever an allocated 
foreground area does not contain a program. 

The operator initiates a foreground 
program by pressing the 1052 request key. 
The attention interrupt causes control to 
be given to the system's Attention routine. 

Note: If the transient area is in use by a 
routine other than the Attention routine, 
the attention interrupt is posted and 
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serviced when the transient area becomes 
available. 

The Attention routine reads a command 
from the operator. The command START (Fl 
or F2) indicates a foreground program is to 
be initiated. The Attention routine 
determines if the area specified is 
allocated and does not contain a program; 
if so, it transfers control to the 
foreground initiator. Otherwise, the 
operator is notified that an invalid 
command has been given. 

The foreground initiator reads 
subsequent commands required to initiate 
the program. These commands are used 
primarily to specify I/O assignments and 
label information. i^hen an I/O assignment 
is attempted, the following verification is 
made: 



will be directed to be loaded utilizing the 
information derived when the program was 
cataloged. 

Diagnostics, such as the program being 
outside the limits of the foreground area, 
are not performed by the initiator, but are 
performed by the Supervisor when the 
program is loaded and causes the program to 
be terminated. 

When initial control is given to the 
user's foreground program, register 2 
contains the address of the uppermost byte 
of storage available to this program. This 
may be used to calculate the total storage 
available to the program. A foreground 
program can dynamically determine the 
storage available to it by storing the 
contents of this register for later 
reference. 



1. The symbolic unit is of the class 
SYSnnn. 

2. The symbolic unit is contained within 
the number specified for the area at 
system generation. 

3. If the symbolic unit is to be assigned 
to a non-DASD, the device must not be 
in use by the other foreground program 
nor can it be assigned to a background 
job either as a standard, temporary, or 
alternate unit. 

The label information for each file in 
the job is written on SYSRES as a label 
information block for later retrieval and 
processing by the data management routines. 
A main storage area for label information 
is required under the same conditions as 
for background jobs and is calculated and 
reserved by the initiator. 

When the EXEC statement is encountered, 
the foreground initiator directs the 
supervisor to provide loading information 
for the program to be invoked. If the 
program has not been cataloged, the 
operator is notified by the initiator. He 
may correct the command (for example, if 
the name was misspelled) or cancel the 
initiation. 

After the loading information is 
received, the initiator checks to determine 
if a self-relocating program is to be 
loaded. This is determined by the load 
address being zero. The foreground 
initiator directs this program to be loaded 
following the label information area. It 
also calculates the entry point to the 
program by adding the address at which it 
will be loaded to the previously-calculated 
entry point (derived when the program was 
linkage edited and cataloged onto the 
.system). A non-self- relocating, program 



Note that a program capable of either 
foreground or background operation (with 
proper linkage editing) can utilize the 
same programming to determine its storage 
allocation independently of its actual area 
assignment. 



TERMINATION (FIGURE 50) 



A foreground program is terminated under 
its own control by issuing an EOJ, DUMP, or 
CANCEL macro or through operator action or 
a program error or certain I/O failures. 
When a foreground program is terminated, 
the following actions are taken: 

1. All I/O operations that the program has 
requested are allowed to quiesce. 

2. Tape error statistics for all tape 
drives assigned to the program being 
terminated on which an error has 
occurred are logged out on SYSLOG and 
the statistics reset (system generation 
option) . 

3. DASD extents in use by this program for 
DASD file protection are dequeued 
(system-generation option) - 

4. All I/O assignments made for the 
program are canceled so that these 
devices may be available to subsequent 
programs . 

5. The operator is notified that the 
program is completed. The storage used 
by the program remains allocated for 
the foreground area. 

6. The program is detached from the 
system's task selection mechanism. 

After a foreground program is completed, 
the operator may initiate another program 
for the area by pressing the SYSLOG request 
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key and continuing with the initiation 
procedure previously described. 



Figure 51 illustrates the relationship 
among programs in a multiprogramming 
environment. In addition, this figure 
shows the format of the save area used with 
each program. 



NONRESIDENT ATTENTION ROUTINES (FIGURE 49) 
Attention commands are submitted when the 
operator presses the request key on the 
1052 keyboard. The system's Attention 
transient routine ($$BATTNA) is loaded and 
issues the message READY FOR 
COMMUNICATIONS. It then reads input 
statement information and selects the 
appropriate statement processor. Commands 
accepted by the nonresident attention 
routines are: 



PAUSE: Indicates job control pauses for 
operator communication at the end of 
the current batch job step. 



CANCEL: Indicates one of the programs 
in the system is to be canceled. See 
Figure 52 for cancel code information. 



MAP: Provides a map of main-storage 
utilization. See Figure 47. 

ALLOC: Permits the operator to allocate 
storage among foreground and background 
programs. 



MSG: Causes control to oe given to a 
foreground program operator 
communications routine previously 
activated by a STXIT command. 



TIMER: Causes interval timer support to 
be given to the program specified. 



START: Indicates the foreground 
initiation function has begun. 



SP 




upper limit 




BG 


size 


upper limit 


NAME 


F2 


size 


upper limit 


NAME 


Fl T 


size 


upper limit 


NAME 



field 1 field 2 field 3 field 4 

Field 1 -area identification 
SP -supervisor 
BG ~ background area 
F2 -foreground area 2 
Fl - foreground area 1 
T - indicates which program has interval timer support. 

Field 2- length of area. 

The number of bytes allocated to the corresponding 
area of storage . Where 2K equals 2048 bytes of 
storage . For the background area this represents 
the number of full 2K blocks. For example, if the 
area were 1 1 .2K, the AAAP would indicate lOK . 



Field 3 -area upper storage limit. 

The highest storage address allocated to the 
corresponding area in hexadecimal • 



Field 4 -user name 

BG - background job name 

F2 - foreground 2 program name 

Fl -foreground 1 program name 

Absence of a name indicates there is no active 
program in the area . 



Figure 47. MAP Output 
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LISTIO AL 






F1 

Fl 

Fl I/O UNIT 

FT 

Fl SYSRDR 


'•••♦ SYSTEM •••• 


CMNT 


CHNL UNIT MODE 




OC 


Fl SYSIPT 




OC 


Fl SYSPCH 




00 


Fl SYSLST 




OE 


Fl SYS LOG 




IF 


Fl SYSLNK 




• UNA • 


Fl SYSRES 

Fl 

Fl 

Fl 

Fl I/O UNIT 

Fl 

Fl SYSOOO 




1 90 


••• PROGRAM •«•« 


CMNT 


CHNL UNIT MODE 




1 91 


Fl SYSOOl 




1 91 


Fl SYS002 




1 91 


Fl SYS003 




1 91 


Fl SYSOOU 




1 92 


Fl SYS005 




1 92 


Fl $YS006 




1 92 


Fl SYS007 




1 92 


Fl SYS008 




• UNA • 


Fl SYS009 




• UNA • 


Fl SYSOIO 




• UNA * 


Fl SYSOll 

Fl 

Fl 




♦ UNA # 


« FOREGROUND 1 • 


Fl I/O UNIT 


CMNT 


CHNL UNIT MODE 


Fl SYSOOO 




• UNA • 


Fl SYSOOl 




♦ UNA ♦ 


Fl SYS002 




• UNA • 


Fl SYS003 




# UNA • 


Fl SYSOOU 

Fl 

Fl 

p 1 




• UNA • 


• FOREGROUND 2 • 


Fl I/O UNIT 

Fl 

Fl SYSOOO 


CMNT 


CHNL UNIT MODE 




• UNA • 


Fl SYSOOl 




• UNA • 


Fl SYS002 




• UNA « 


Fl SYS003 




• UNA « 


Fl SYSOOU 

Fl 

Fl LISTIO BG 




• UNA • 






Fl 

Fl 

Fl I/O UNIT 

Fl 

Fl SYSRDR 


•••• SYSTEM •♦•• 1 


CMNT 


CHNL UNIT MODE 




OC 


Fl SYSIPT 




OC 


Fl SYSPCH 




00 


Fl SYSLST 




OE 


Fl SYS LOG 




IF 


Fl SYSLNK 




« UNA • 


Fl SYSRES 

Fl 

Fl 

C 1 




1 90 


••• PROGRAM •♦•• 


Fl I/O UNIT 

Fl 

Fl SYSOOO 


CMNT 


CHNL UNIT MODE 




1 91 


Fl SYSOOl 




1 91 


Fl SYS002 




1 91 


Fl SYS003 




1 91 


Fl SYSOOU 




1 92 


Fl SYSOOS 




1 92 


Fl SYS006 




1 92 


F 1 SYS007 




1 92 


Fl SYSOOe 




• UNA • 


Fl SYS009 




• UNA • 


Fl SYSOIO 




• UNA • 


Fl SYSOll 

Fl 

Fl LISTIO Fl 




• UNA • 






Fl 

Fl 

Fl I/O UNIT 

Fl 

Fl SYSOOO 


• FOREGROUND 1 • | 


CMNT 


CHNL UNIT MODE 




• UNA • 


Fl SYSOOl 




• UNA • 


Fl SYS002 




• UNA • 


Fl SYS003 




• UNA • 


Fl SYSOOU 

Fl 

Fl LISTIO UA 




• UNA • 






Fl 
Fl 
Fl 
Fl 
Fl 
Fl 
Fl 


♦• UNASSIGNED ♦• | 


CHNL 


UNIT 


1 


90 



Figure 48. List I/O Examples for Nonresident Attention Request 
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Type of^^v ^Externai 
Interrupt ^ ^ 



r Foreground > 
V Initiator J 


YES 




-- 


'' 




$$BATTNA 

Root 

Phase 


^ 



Detach 
the Task 



Attention 






$$BATTNI 


HOLD 
fiELSE V 




T^SSGN ^ 
UNA 




■ 










$$BATTNI 


READ 




1 










$$BATTNC 


CANCEL . 






NO 



r SVC n j 

(Nonresident \ 

Attention Routing 





Located in 
foreground 
>area of the 
program be- 
ing initiated. 



Located in B- 
transient area 
together with - 
the root 
phase. 




Figure 49. Initiator Phase Hap 
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/" PDUMP ^ 
I macro ImumI . 


\ 








$$BDUMP 
Te»t macro por- 
am«l*n, onolyM* 
I/O. Calls actual 




SYSLST ft 


d,* i 


SYSLST Is tape 


I 




|or printer 


$$BOUMPD 
Writes regttlvn and 
portion of moln 
itoreg* ip*qlfl«d by 
PDUMP mofcio. 




SSBPDUMI 
Writes registers and 
portion of main 
storoge specified b/ 
PDUMP mocio. 


♦ 




4 




1 




C 


SVC 


1 


> 



Figure 50. Terminator Phase Map 
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General Organization 



iSliPERVISORli 



Background 



Foreground 2 



Foreground 1 



> At least 10K 



I Multiple of 2K 
y Multiple of 2K 



Foreground Orgonization 
General: 



SAVE Area: 



Save Area 


\ 


Program 
Nome 
(8 bytes) 


Return 
PSW 
(8 bytes) 


Label Area 


1 yini 1 11^. 

jii !:!;!:! iiiiji^hi iiiiiji: 
User's 

Program 


General 
Registers 
9 thru 8 

64 bytes 




area -2 bytes 






Length of Lob 


>el 



Reserved 
6 bytes 



j Floating Point Registers j 

Uihl'^L J 

NOTE: Floating point register save area is required only when 

floating point feature is specified for supervisor generation. 



Cancel-code in HEX 


MSG-Code 


Descriptive Bart of Message 


10 




Normal EOJ 


19 


0P74 


I/O Operator Option 


lA 


0P73 


I/O Error 


20 


0S03 

or 

OSll 


hrogram Check 


21 


0S04 

or 

0S09 


Illegal SVC 


22 


0S05 

or 
0S06 


Phase Not Found 


23 


0S02 


h'ogram Request 


24 


0S01 


Operator Intervention 


25 


0P77 


Invalid CCB-^ddress 


26 


0P71 


Device Not Assigned 


27 


0P70 


UndeHned Logical Unit 


30 


0P72 


Reading Pbst /& Statement 


31 


0P75 


I/O Error Queue Overflow 


32 


0P76 


Invalid DASD Address 
(Disk Only) 
Irrecoverable I/O Error 
(Tape Only) 


33 


0P79 


No Long Seek (Disk Only) 


FF 


0P78 


Unrecognized CANCEL Code 


All cancel-codes except in connection with DUMP-macro (code = 


X'OO' - not a true concei -condition) initially have a value 


X'40' higher than indicated above, but the X'40' bit is 


stripped by the SUPVR before fetching the Terminator. 


In addition to recognizing the cancel-codes above, the 


Terminator also recognizes the same codes with the X'80' 


bit on. The X'80' bit indicates that the cancellation 


occurred in a Logical Transient routine and it is tested 


for by $$BEOJ and subsequently reset. 



Figure 52, Cancel Code Messages 



Figure 51 • Multiprogram Main- Storage 
Organization 
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EXTERNAL 



(Foreground A 
Inlfiotor J 



YES 



$$BATTNA 




ATTENTION 



NO 



Detach the Task 



SVC11 Exftfrorr^ 

transient 
Chart 12 > 







jT Nonresident A 
\^ Attention y 



$$BATTNA 



ROOT PHASE 



Charts KA to KD 



This phase functions as the root phase. It contains 
the various subroutines used by the other phases, and 
defines the storage areas and constants common to the 
other phases. Basic functions performed by the 
subroutines of this phase are: 
• Input and process control statements. -^ 



• Determine, and if necessary, load the proper 
phase required to process the control statement. 

e Pass control to the correct routine within the 
processing phase by means of a branch vector 
table. 

« Scan the control statements and provide address 
and length information on operation fields and 
operands. 

• Output error messages as required by the validity 
checking routines. 



*22-X 
23-X 
24-X 



O 



ROOT PHASE 



Charts KA to KD 



Th is phase performs the same functions as the root 
phase described for the Foreground Initiator. 
Input and Process Control statements 
. or exit if no more statements are found. 



'^SVCn Exit from' 

B-Transient 
sChqrt 12 v 



ASSGN 



HOLD 



RELSE 



UNA 



READ 



CANCEL 



LISTIO 



VOL 



TPLAB 



DLAB 



XTENT 



„^ 




„^ 




CANCEL 



MSG 



PAUSE 



LOG 



NOLOG 



MAP 



ALLOC 



START 



TIMER 



„0 



^ 



^ 



^ 



Send the 

Appropriate 

Error 

Message 



^ 



^ 



EXEC UCS 



CAUTION : If foreground initiation is in progress, the 
root phase remains resident in the logical 
transient area and the initiating routines 
are loaded and executed from the foreground 
area of the program being Initiated. 



Chart 21, Logical Transient Root Phase 
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$$BATTNI 

ASSGN PROCESSOR 



1 



Charts KV to LG 



This phase makes a logical unit I/O assignment based on the logical unit specified in the 
operand of the ASSGN statement. The steps in making the assignment are: 

• Convert SYSXXX to a LUB displacement. 

• Scan for channel and unit information. 

• Make the assignment if I GN is found. 

• Calculate the new PUB entry address and PUB pointer based on channel and unit information. 

• Scan for either ALT or X'ss' indicating a tape device. 

• If an ALT operand is found, make an alternate assignment. 

• If a X'ss' is found, it is validity checked for correct format, converted to binary, and 
validity checked as a valid mode set value for either 7- or 9-track tape. The* valid value 
is saved for use by the assign routine. 

• Assign the unit if there are no conflicts in ownership (non DASD devices only). 
Assignments are made by a routine within this phase called the assign routine. A subroutine, 
UNPA is used to unassign the previous assignment. The new PUB pointer is put into the 
correct LUB entry. If the assignment was IGN, or if it was to the same device as SYSLOG, 
exit. If these conditions were not found, the PUB ownership flag and mode set byte are set 
prior to exiting. 



$$BATTNI 



1 



READ PROCESSOR 



Chart KX 



This routine assigns a card reader or reader/punch to the logical unit SYSFGl. Control 
statements following this assignment are read from SYSFGl instead of from SYSLOG. 



$$BATTNI 



HOLD PROCESSOR 



Charts MK to ML 



This routine causes the foreground unit assignments for the foreground area specified in the 
operand to stay in effect from one job to the next. 



$$BATTNI 



1 



RELSE PROCESSOR 



Charts MK to ML 



This routine releases foreground unit assignments at EOJ. The foregrouruJ area specified 
in the operand of this statement indicates the I/O units to be unassigned. 



-iJ' 



$$BATTNI 



UNA PROCESSOR 



Chart MJ 



This routine immediately unassigns the foreground unit assignments. The foreground area 
specified in the operand of this statement indicates the I/O units to be immediately unassigned. 



Chart 22 • Logical Transient Foreground Initiator (Part 1 of 2) 
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$$BATTNJ 

USTIO PROCESSOR 



Charts LH fo LN 



This phase provides a listing on SYSLOG of the information pertaining to the correct status of 
logical unit I/O assignments. The root phase scan routine is used to get the operand (BG, Fl, 
F2, ALL, or UA). 

If BG is specified, the system class units, and the BG programmer class units are listed 
under a BG heading. If Fl or F2 is specified, the appropriate programmmer class units are 
listed under the desired foreground heading. If the operand ALL is specified all units are 
listed under their proper heading. 

If the operand specified is UA, an UNASSIGNED heading is established and each PUB is 
checked for the unassigned, not down conditions. If these conditions are found, the unit is 
listed as unassigned. If no units are found unassigned the heading, NONE, is listed. 



$$BATTNK 



VOL/TPLAB/DLAB PROCESSOR 



Charts LP to LW 



This phase processes the VOL, TPLAB, and DLAB statements for standard volume and file labels. 
The sequence of the statements is critical and therefore, this phase processes in this order: 
VOL - TPLAB or VOL, DLAB, EXTENT (any number of extents). 
When a VOL statement is encountered: 

• The temporary label area is output on the SYSRES label tracks. 

• The operand is found by the scan routine. 

• The operand is validity checked and stored in the temporary label area (Foreground 
origin + 1728). 

When a TPLAB statement is encountered: 

• The operand field is tested to determine if concantenation is required. 

• A correct sequence check is made and a switch is set to indicate the current statement 
being processed. 

• The operand is validity checked and moved to the temporary label area. 

When a DLAB statement is encountered the same functions performed for TPLAB statements 
are also performed for the DLAB statement. 



$$BATTNL 



XTENT PROCESSOR 



Charts LX to MB 



This phase processes XTENT statements in the same manner as it processes file label statements. 
It also tests for overlapped limits. 



$$BATTNM 



$$BATTNM 



EXEC PROCESSOR 



Charts MC to MF 



This phase determines the type of program to be executed by using the scan routine to get the 
operand. It tests a program switch to determine if any additional label information is to be 
output to the SYSRES label track. If necessary. It performs the I/O to write and verify the 
label data. 

This phase relocated parts of itself in the B-transient area of main storage. It clears 
main storage within the foreground program area except for the foreground save area. The 
foreground save area is initialized with the name of the program to be executed, the PSW 
values for that program and storage space for all registers used. 



use STATEMENT PROCESSOR Chart MG 



The 240 -character Universal Character 
Set (UCS) specified by the operand 
"PHASE NAME" is loaded in the buffer of 
the IBM 2821 Control Unit of the logical 
unit specified by the operand "SYSXXX", 
The phase is loaded from the Core Image 
Library. 

1 . The operand "SYSXXX" specifies a 
1403 with the UCS feature. 

2. The operand "PHASENAME" specifies 
the core image library phase to be 
loaded i. 

3. The operand "FOLD" (optional) 
specifies that the buffer is to be loaded 
with the "folding" operation code 
(hex F3) in the 3rd CCW. 

4. The operand "BLOCK" (optional) 
specifies that data checks are to be 
inhibited. The inhibit data check 
operation code, X'73' is set in the 
2nd CCW. 

5. The operand "NULMSG" (optional) 
specifies that the 80 -character 
verification message is not to be 
printed. The chain bit is set off in the 
3rd CCW. 



(SVCll End of A 
Initiation 1 

Chart 12 y 



^ 



Chart 23. Logical Transient Foreground Initiator (Part 2 of 2) 
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$$BAnNB 



1 



MSG PROCESSOR 



Charts KE to KF 



Thiy^hase selects the correct operator communications 
option table From the three available. It initializes the 
option table selected with the address of the user 
specified operator communications routine. If the oper- 
ator communications routine is busy, this phase sets the 
complement of the address in the option table. 



$$BAnNC 



^ 



CANCEL I^OCESSOR 



Charts KG to KH 



This routine finds the key of the program identified by the 
operand of the cancel statement. Depending on the key 
found, this phase: 

• Cancels the program currently being executed in a 
specified area, in a multi -programming environment; 

• Cancels the background program in a batched-only system; 

• Cancels the initiation process implicitly in a 
multi-programming environment; 

e Cancels the background program implicitly in a 
multi -programming environment if no initiation is in 
progress. 
Cancellation is accomplished by setting the cancel flag in 
the PIB of the program to be canceled. If the cancel phase 
is being canceled, control is released to supervisor via a 

svcn. 




*21-X 
21-Y 



SSBAHNC 



^ 



PAUSE/LOG/NOLOG PROCESSOR 



Charts KG to KH 



This routine sets the proper {ob control switches in job 
control switch zero. 



$$BATTND 



1 



MAP PROCESSOR 



Charts KJ to KM 



This phase prints a listing or SYSLOG output of the current 
main storage allocated to, and the program active in, all 
three problem program areas (BG, F2, or PI) and the 
supervisor. Main storage allocation is mapped in terms of 
IK blocks as determined from the appropriate PIB, using the 
EBCDIC. Active areas are designated by mapping the 
program name. Area indicators (SP, BG, F2, or Fl) and the 
upper address of eoch are also mapped. 



Chart 24 • Logical Transient Nonresident Attention Routines (Part 1 of 2) 
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^ 



$$BATTNE and $$BATTNF 



ALLOC PROCESSOR 



Charts KN to KR 



This routine reallocates main storage according to the number 
of 2K blocks specified for one, or both of the foreground 
areas by the operand of the ALLOC statement. To reallocate, 
this routine: 

1. Builds a table containing the current number of 2K 
blocks, the lower limit address, the address of the save 
area, and the upper limit address. A separate table is 
built for the background area and each foreground area. 
The source information for the table entries is the 
program PIB; 

2. Updates the table built in step 1 with the information 
secured from the operand of the ALLOC statement. The 
operand value is easily converted to byte count which 
is used to calculate upper limit information. Upper 
and lower limits necessary to ensure contiguousness 
and the designated amount of main storage are 
calculated for each table entry and checked to overlap 
for active areas; 

3. Resets the PIB entries with storage key and origin 
information and storage keys of all program areas 
using the table entries as source information. 



^ 



$$BATTNG and $$BATTNH 



START PROCESSOR 



Charts KS to KW 



This phase initiates a foreground program or the background 
area previously put in a dormant state by the job control 
command STOP. The operand of the START statement is 
obtained by the root phase scan subroutine. If the 
background (BG) operand is found, the BG PIB is activated 
X'83'. If a foreground operand is found, the proper 
key is calculated, the attention PIB is detached from task 
selection, and the initiator is attached as the foreground 
program. Subsequent initiator phases are executed from the 
foreground program area of the program being initiated. 
However, even though physically located in the foreground 
area, the subsequent initiator phases are logically 
considered as part of the transient attention routine. 



^ 



$$BATTNN 



TIMER PROCESSOR 



Chart MH 



This phase changes the ownership of the interval timer 
routine based on the operand specified in the TIMER 
statement. 



^ 



Chart 25. Logical Transient Nonresident Attention Routines (Part 2 of 2) 
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Load Job Control 
and initialize 
its PSW 



BG 



Type of Job 



G> 



C 



FG 



SVC2 
$$BTERM 



OUTAR 



Q $$BEOJ3 J 



QUIESCE I/O 



Chart ND 



All I/O devices associated with the program are dequeued. 
If T/P is supported, the T/P devices are halted if on queue. 
Queued or not/ they are disabled. 



r$$BEajJ 



IJBEJ20 +8 



END-OF-JOB ROUTINE 



NA-NC 



User's option tables (Program Check, Interval Timer, and 
Operator Communication) are reset if applicable. This 
phase is sensitive to the second time the terminator is called 
to cancel the Same program. This could occur if the termi- 
nator gets canceled itself due to I/O ERROR in putting out 
initial cancel messages on SYSLOG or SYSLST. To avoid 
getting a "Cancel-Within-Cancel" loop in the system, the 
terminator will not attempt any I/O the second time it is 
called but perform standard clean-up function. Asa result, 
expected sequence of cancel-messages could be cut short 
when the terminator encounters l/O-problems. The cause 
for ending the job is determined and the appropriate sub- 
sequent program is fetched. 




NO 




NO 



J 



SVC2 N 

$$BATST3 J 



DETACH ROUTINE 



NE-NH 



U Attention Routine: Detach the routine and clear 
the cancel-code to X'OO' 

2. Normal EOJ for FG Job: Log message "Program 
Completed" and log tape error statistics for tape 
units assigned to actual FG prog if so requested by 
SUPVR TEB-option. 

UrKissign all units belonging to the prog, unless 
this standard procedure has been overiddenby the 
Job Control HOLD-command. Reset the Cancel- 
code. 

3. Abnormal FG-EOJ: Same as 2 except no message 
is logged. 



/sVCn ExitfrorA 
[ B-Tran$ient ) 

V ghort 12 V 




NO 



^Chart 28 



SVC2$$BILSVC A^YES 

^Chart 28 '^ 



SVC2 $$BEOJ2 
Chart 28 



NO 

(other causes) 



Chart 26, Logical Trans lent- -Terminator (Part 1 of 5) 
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r $$BEOJ1 J 



CAUSEl 



SPECIAL CNCL MSG RTN 



Charts N>NK 



Issues special messages for termination 
in a logical transient routine due 
to Program Check, Illegal SVC or 
Phase-Not-Found causes. The normal 
messages cannot be used as detailed 
information such as phase-name, SVC 
code, hex location, etc., is not 
available when the cancellation occurs 
in a logical transient routine. The 
issued messoge will have the sample 
format: 

0S09I JOB NAMEXXXX CANCELED DUE TO 
ILLEGAL SVC 



/ SVC2 ^ 

V $$BP$W J 



^ $$BPSW ^ 



IJBPSW20 +8 



PROBLEM PROGRAM STATUS 



Charts NR-NS 



Gives status of the problem program 

area at the time of cancellation by 

printing the users PSW. The PSW is 

printed on SYSLOG in the sample format: 

0S07I PROBLEM PROGRAM PSW XXXXXXXXXX 

XXXXXX 



c 



DUMP 
Macro 



C 



C 
3 



SVC2 
$$BDUMP 



J 



$$BDUMP 



BDUMP 



1 



STORAGE DUMP RTN 



Charts NV-NW 



Determines and analyses the cause of 

job termination and selects the 

proper B-Tran$ient Dump routine or 

terminates without a Dump under 

condition that a CANCEL macro call has 

been issued or the Job Control Switch 

in the Supervisor Communication 

Region calling for a Dump is not on. 

A dump is always given regardless of 

the setting of the Job Control Switch, 

if the user issues a Dump-macro. The 

Job Control Switch in the Supervisor 

Communicotion Region calling for a 

dump is only tested for a dump for BG programs. 




Simulate 
Normal 
End- of- Job 



(SVC2 N 
$$BEOJ 1 

Chart 26 V 



Chart 27. Logical Transient — Terminator (Part 2 of 5) 
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Q SSBfCHK 3 




(^ $$BILSVC 3 


START V 




IJBSVC20+8 r 


PROGCHK hASG RTN Charts NT-NU 




ILLEGAL SVC RTN Charts NN-NQ 


\A^it«s a iMssqge on 


ProcesMson invalid 


SYSLOG or SYSLST giving 






information about tho 




condition. The messoge 


program check. The msg 




is printed on SYSLOG 


is 2 lines in the 




(1052 or Printer) if 


aomple format: 




SYSLOG is assigned, but 


0S03I PROGRAM CHECK 






INTERRUPTION - HEX 




same unit as SYSLST. 


LOCATION xxxxxx - 




The messoge(s) is 


CONDITION CODE nn - 




printed on SYSLST (prin- 


FLOATING POINT DIVIDE 




ter, tape, or disk) if 


EXECPTION 




SYSLST is assigned. For 


OSOOI JOB NAMEXXXX 




a FG program, the mess- 


CANCELLED 




age(0 will be issued 






on SYSOOO if assigned to 






a printer or non-file- 






protected tope. The 






issued message will hove 






the sample format: 






0S04I ILLEGAL SVC-HEX 






LOCATION xxxxxx-SVC CODE 






OSOOI JOB NAMEXXXX 






CANCELLED 








■^r^ 







I 

(SVC2 $$BDUMP A 
Chart 27 J 



( $$BEOJ2 J 



CAUSE 1 ; 

CANCEL MSG RTN 



Charts NL-NM 



Prints or records a message 
describing the reason for 
cancellation when a program 
reaches on obnormol end-^f-job 
cohdition. The issued message 
will have the sample format: 
0P75 JOB NAMEXXXX CANC- 
ELLED DUE TO I/O ERROR 
QUEUE OVERFLOW 
The message is printed on SYSLOG 
(1052 printer) if SYSLOG i$ 
ottigned, but not assigned to the 
same unit as SYSLST. 
The message(s) is printed on 
SYSLST (printer, tope, or disk) if 
SYSLST is ouigned. For a FG 
program, the message(s) will be 
issued on SYSOOO if ouigned to a 
printer or non-file-protected tope. 



C 



SVC2 $$BPSW 
Chart 27 



D 



Chart 28. Logical Transient — Terminator (Part 3 of 5) 
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c 



$$BDUMPF 



START 



1 



FG TAPE/PRINTER DUMP Charts NX-PA 



Records on tape or prints the contents of 
main storage at the time an abnormal 
end-of-job condition occurs. The print- 
out or main storage is in the formot: 

1. Page heading* 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, if present; 

5. Supervisor; 

6. Label length; 

7. FT or F2 program identification; 

8. FG program storage area. 

The entire Supervisor and problem pro- 
gram area is printed 12 words to the 
line. For identical lines, the first line 
is printed and —SAME— is inserted for 
all identical lines following. 



(SVC2 $$BTERMA 
Chart 26 J 



r $$BDUMPD ^ 










r $$BDUMPB ^ 


START 






START 




BG DISK DUMP Charts PG-PK 


BG TAPE/PRINTER DUMP Charts PB-PF 


Records on disk the contents of main 


Records on tape or prints the contents 


storage at the time an abnormal end- 




of main storage at the time an abnor- 


of-job condition occurs. 




mal end-of-job condition occurs. The 


The print-out of main storage is in the 




print-out of main storage is in the 


format: 




format: 


1. Page heading; 




1. Page heading; 


2. General registers 0-7; 




2. General registers 0-7; 


3. General registers 8-15; 




3. General registers 8-15; 


4. Floating point registers, if present; 




4. Floating point regitsers, if present; 


5. Supervisor CO A/\REG; 




5. Supervisor COMREG; 


6. Supervisor; 




6. Supervisor; 


7. Label length; 




7. Label length; 


8. BG program identification; 




8. BG program identification; 


9. BG program storage area. 




9. BG program storage area. 


The entire Supervisor and problem pro- 




The entire supervisor and problem pro- 


gram area is printed 12 words to the 




gram area is printed 12 words to the 


line. For identical lines, the first line 




line. For identical lines, the first line 


is printed and —SAME— is inserted for 




is printed and —SAME— isinserted for 


all identical lines f 


ollowing. 




all identical lines following. 

1 










^ 

' 










Simulate 








Normal 








End 


-of- Job 








-J 


' 







c 



SVC2 $$BEOJ 
Chort 26 



) 



Chart 29. Logical Transient — Terminator (Part 4 of 5) 
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PDUMP \ 
Macro J 



C $$BPDUMP J 



START 



PARAMETER-SPECIFIED DUMP Chart PL 



Provides a means of dumping o portion 
of main storage as desired. Analyzes 
whether a Background or Foreground 
program is to be dumped. Tests the 
type of I/O device to receive the 
dump to determine which subsequent 
B-transient routine will be called 
to perform the actual dump. 



DISK 



C 




TAPE/PRINTER 



$$BDUMPD 
Chart 29 



3 



C 



$$BPDUM1 



START 



3 



BG TAPE/PRINTER DUMP Charts PM-PQ 



Records on tape or prints the contents 
of main storage at the time an abnor- 
mal end-of-job condition occurs. The 
print-out of main storage is in the 
format: 

1. Page heading; 

2. General registers 0-7; 

3. General registers 8-15; 

4. Floating point registers, 
if present; 

5. Program storage area 
specified by parameter limits. 

The problem program area is printed 12 
words to the line. For identical lines, 
the first line is printed and~SAME— 
is inserted for all identical lines 
following. 



(SVC 11 N 

Exit from B- j 

Transient Chart 12^ 



Chart 30. Logical Transient — Terminator (Part 5 of 5) 
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SECTION 5; LINKAGE EDITOR PROGRAM 



The Ixnkage editor prepares programs for 
execution on DOS, and accepts as input the 
relocatable oblect modules produced by the 
language translators • It processes these 
modules into program phases ^ which may be 
immediately executed or cataloged into the 
core image library, 

The linkage editor control cards direct 
the program to read input module (s) and to 
form phases from the control sections 
within the modules. Figure 53 shows how 
phases can be formed. The linkage editor 
relocates the origin of each control 
section in the phase , assigns each phase an 
area of main storage and a transfer 
address, and modifies the contents of the 
address constants in the phase. 



SompU of a 2-moduU input FtsulHng in a S-fhcM output | 


Language Tfomlotor Output 


Linkage Editor Output 


Module A 

ESO> 

TXT - CSECTA 

TXT - CSECTB 

TXT -CSECTC 

RLDs 

Module B 

ESDs 

TXT -CSECTD 

TXT -CSECTE 

TXT -CSECTF 

TXT - CSKTG 

RLDs 


Fhosel 

CSECTA 
CSECTB 


FfMise2 

CSECTC 
CSECTD 
CSECTE 


Fhase3 

CSECTF 
CSECTG 



LANGUAGE TRANSLATOR MODULES 



The input to the linkage editor consists of 
object modules and linkage editor control 
cards. Each module is the output of a 
complete language translator run. It 
consists of dictionaries and text for one 
or more control sections. 



The dictionaries contain the information 
necessary for the linkage editor to resolve 
references between different modules. The 
text consists of the actual instructions 
and data fields of the module. 

Six card types are produced by the 
language translators or the programmer to 
form a module. They appear in the 
following order: 



Card Type 


Definition 


ESD 


External symbol dictionary 


SYM 


Ignored by linkage editor 


TXT 


Text 



REP 

IRLD 

END 



Replacement to text made by 
the programmer 

Relocation list dictionary 

End of module 



The external symbol dictionary contains 
control section definitions and intermodule 
references. When the linkage editor has 
the ESDs from all modules, it can relocate 
the sections and resolve the references. 
Five types of entries are defined in the 
control dictionary. 



Figure 53. Module Phase Relationship 

The relocation factor for each control 
section is determined and saved by building 
a table called the control dictionary. 
This table contains the linkage editor 
phase definitions and the module ESD items. 
When complete, it provides sufficient 
information for determining the location of 
each control section and for resolving any 
references between control sections. 

The module TXT items are then built into 
phase blocks. The RLD items (address 
constants) are modified and inserted into 
the text. A transfer address is determined 
for each phase. 



ESD Type 



SD 



PC 



LD 



ER 



Definition 

Section Definition: provides 
control section name, assembled 
origin and length. 

Private Code: provides 
assembled origin and length for 
an unnamed control section. 

Label Definition: specifies 
the assembled address and the 
associated SD of a label that 
may be referred to by another 
module. 

External Reference: specifies 
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the location of a reference 
made to another module. 

CM Common: indicates the amount 
of main storage to be reserved 
for common use by different 
phases. 

The relocation list dictionary 
identifies portions of text that must be 
modified on relocation (address constants). 

When the linkage editor reads a module, 
it stores ESDs in its control dictionary, 
writes TXT and REP items in core image 
blocks in the library, and writes RLD items 
on an RLD file. Each item, identified by 
the language translators with an ESID 
number, is identified by the linkage editor 
with a control dictionary number to avoid 
duplication of identification between 
modules. 



LINKAGE EDITOR PROGRAM FLOW 



The linkage editor is physically divided 
into eight phases. The phase names 
assigned and functions are: 



Phase Name 



Function 



Phase 1 ($LNKEDT) Initialize/Overhead, 

Chart 31 

Phase 2 ($LNKEDTO) 12-2-9 Processor (ESD 

only) , Chart 32 

Phase 3 ($LNKEDT2) 12-2-9 Processor 

(other than ESD) , 
Chart 33 

Phase 4 ($LNKEDT4) Control Card Processor 

Chart 3i\ 

Phase 5 ($LNKEDT6) Control Card Processor 

Chart 35 

Phase 6 ($LNKEDT8) MAP Processor, Chart 

36 



Phase 7 ($LNKEDTA) 



Phase 8 ($LNKEDTC) 



Pass 2 Processor, 
Chart 37 

Catalog Processor, 
Chart 38 



The first phase ($LNKEDT) is fetched by 
the job control program. This phase finds 
the existing machine configuration. The 
determining factor as to how the remaining 
linkage editor phases are fetched is main 
storage availability. If less than mK 
available main storage for BG programs is 
found, a 2-part initialization is executed. 
The second part, executed first, checks I/O 



unit assignments, opens SYSLNK and SYSOOl, 
and saves the DTF table. The first part, 
executed last, sets up the control 
dictionary and linkage table. It processes 
any ACTION cards, and loads main storage 
with the card processing phase required by 
the type of card image found in the input 
stream. The card processor loaded (12-2-9 
or control card) overlays the 
initialization part of the $LNKEDT phase, 
leaving the overhead part for use by other 
linkage editor phases. When an ENTRY card 
is finished processing, indicating the end 
of a linkage editor run, the MAP and Pass 2 
Processors are fetched and executed 
sequentially. 

If more than 14K available main storage 
is found, $LNKEDT is fetched by job control 
as in the smaller core allocation. The 
second part of initialization is executed 
first to perform the initialization steps 
described for the smaller core allocation. 
The first part of initialization is then 
executed to load all the card processing 
phases, to initialize the control 
dictionary and the linkage table, and to 
process ACTION cards. Individual phase 
loading is finished at this point, and the 
program continues executing instructions in 
the card processing phase as determined by 
the type of input. When an ENTRY card is 
finished processing (in $LNKEDT6) , the MAP 
and Pass 2 Processors are fetched and 
executed sequentially. 

The last phase ($LNKEDTC) is fetched by 
the Pass 2 Processor ($LNKEDTA) , if the 
CATAL option has been selected. If this 
option is not chosen, the $LNKEDTA phase 
fetches job control. 

CATALOG CORE IMAGE LIBRARY PHASE 
($LNKEDTC), CHART 38 

$LNKEDTC is called by $LNKEDTA when the 
option catalog bit is on in JBCSWl in 
displacement 57 of the supervisor 
communication region. $LNKEDTC catalogs 
programs to the core image library by 
adding an entry to the core image directory 
for each phase of the program. The phase 
entries are built by a previous phase of 
the linkage editor in the system work area. 
(Refer to Figure 3 for the location of the 
system work area.) If a phase being 
cataloged has the same name as a phase 
already in the directory, the phase in the 
directory is deleted by $LNKEDTC. 

Refer to Figure 4 for the format of the 
system directory and to Figure 6 for the 
format of the core image directory. 

Figures 5U and 55 show Linkage Editor 
storage maps for core allocation of less 
than 14K and equal or greater than 14K. 
Figure 56 shows the I/O flow of the linkage 
editor program. 
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Execufe $LNKEDT Time 



Execute $LNKEDTD^ 

$LNKEDT2,$LNKEDT4 

or $LNKEDT6 Time 



Execute $LNKEDT8 Time 



Execute $LNKEDTA Time 



Execute $LNKEDTC T?me 



Supervisor Area 



Er»cl of Supervisor • 






N^ 



CPMOD 
392 Bytes 



Overhead 
2400 Bytes 



Initialize 
1888 Bytes 



»?»r;'v" 




CPMOD 
392 Bytes 



Overhead 
1828 Bytes 



$LNKEDT8 
1512 Bytes 



Note: All byte counts are approximate. 



CPMOD 
392 Bytes 



Overhead 
1828 Bytes 



$LNKEDTA 
1512 Bytes 



w 1 728 Byte I/O Area Starting at End of Overhead + Length of Longest Phase ($LNKEDT2) {^'.-^^.ft^^ ': 

.,:r;1 ■ n- r. r ...r. u...,............<....UU<uu...U.,^^^^ 



"MfrV''^'.{''diwm 



Start of Linkage Table 



Start of Control 
Dictionoiy at End of 
Problem Program Area 



$LNKEDTC 



Figure 54. Linkage Editor Storage Map for Less Than 14K Available Main Storage 
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Execute $LNKEDT Time 



H 



Execute $LNKEDTO, 

$LNKEDT2,$LNKEDT4 

or $LNKEDT6 Time 



H 



Execute $LNKEDT8 Time 



IE 



Execute $LNKEDTA Time 



H 



Execute $LNKEDTC Time 



IL 



Supervisor Area 



End of Supervisor • 



CPMOD 
392 Bytes 



Overhead 
2400 Bytes 



$LNKEDTO 
1112 Bytes 



^^ 



$LNKEDT2 
1288 Bytes 



$LNKEDT4 
1120 Bytes 



$LNKEDT6 
1224 Bytes 



Initialize 
Part 1 



lnitializ< 
Part 7 



\^ 



Start of Linkage Table 



CPMOD 
392 Bytes 



Overhead 
2400 Bytes 



$LNKEDT0 
1112 Bytes 



$LNKEDT2 
1288 Bytes 



$LNKEDT4 
1120 Bytes 



$LNKEDT6 
1224 Bytes 



CPMOD 
392 Bytes 



Overhead 
1828 Bytes 



$LNKEDT8 
1512 Bytes 



$LNKEDT0 



Note: All byte counts are approximate. 



1728 Byte I/O Area 



CPMOD 
392 Bytes 



Overhead 
1828 Bytes 



$LNKEDTA 
1512 Bytes 



$LNKEDT8 



Start of Control 
Dictionary at End of - 
Problem Program Area 



$LNKEDTC 



Figure 55. Linkage Editor Storage Map for 14K or More Available Main Storage 
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OUT 



SYSLOG 

Typevyrll-er 

or 

Printer 




Figure 56. Linkage Editor I/O Flow 



KEY CONCEPTS 



OVERHEAD PROCESSOR: In addition to the 
initialization steps ^ the first phase of 
the linkage editor contains most of the 
subroutines used by the various other 
linkage editor phases. These are often 
called overhead and therefore, this part of 
$LNKEDT phase is often called the overhead 
processor. The subroutines in the first 
phase are labeled: 



Subroutine 

RDSOOO 

DERDAD 

LTESID 



SRCHCD 



CHVHEX 



Use 

Reads blocked input. 

Sets up core image blocks of 
text in a work area. 

Finds control dictionary 
information and the 
relocation factor using the 
linkage table. 

Searches the control 
dictionary for a matching 
label. 

Converts hexadecimal input 
to binary output. 



PRINT Performs print and carriage 
control operations. 

ADIDSK Updates disk addresses using 
predetermined overflow 
factors to optimize the 
update operation. 

READ/WRITE Reads or writes core image 
library blocks. 

XTPHNO Extracts the phase number 
from a control dictionary 
entry. 

ABTERR Fetches the $LNKEDTA phase 
for abnormal termination 
(abort) error handling. 

CDSIZE Checks for control 

dictionary - linkage table 
overlap. 

RDNEXT Reads the input stream. 

ALNKPR Initializes for a scan of 
the relocatable directory, 
when the autolink feature is 
not suppressed. Puts all 
unresolved ERs, found in the 
control dictionary, into the 
correct collating sequence. 

ERROR Sets up to print non-abort 

error messages. 

OVRLAY Performs print and carriage 
control operations when a 
NOMAP option is found 
(overlays the first part of 
the print subroutine) . 

CONTROL DICTIONARY; The control dictionary 
is an internal linkage editor mechanism 
used to tabulate phase and external symbol 
dictionary information. It is composed of 
a variable number of fixed 16-byte entries. 
Each entry is numbered sequentially, and 
therefore, the physical structure of the 
control dictionary roughly outlines the 
structure of the program. Valid new 
entries (Phase or ESD) are posted when they 
are found by the ESD processing routines. 
Location CDENTl contains the address of the 
first entry. Location CTLDAD contains the 
address of the last entry. The label 
CDENTl is located in a high storage 
location relative to the label CTLDAD, 
because the control dictionary is built in 
reverse order. Figure 57 illustrates the 
control dictionary. 

LINKAGE TABLE: The linkage table is an 
internal linkage editor mechanism used to 
link the ESID number supplied by the 
language translator output to the 
corresponding control dictionary number 
that belongs to a control dictionary entry. 
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Control Dictionary . . . Pass 1 . 


.. ESD Item 






Label of 
ESD Item 


ESD 
Type 


Assembled 
Origin 


Phase 
Number 
and ESD 
Type 


CSECT Relocation 

Factor or 

ESID of CSECT 
for Type LD/LR 


8 Bytes 


1 Byte 


3 Bytes 


1 Byte 


3 Bytes 



Control Dictionary . . , Pass 1 . . . Phase Entry 



Phase 
Nome 


Type 
111 


Phase 
Origin 


Phase Disk 

Address 

CHHR 


8 Bytes 


1 Byte 


3 Bytes 


4 Bytes 



Linkage Table 



Control 

Dictionary 

Number 


ESD 
Type 


2 Bytes 


1 Byte 



ESD Type Field of the Control Dictionary 








Offset High 


Sign of 




ESD 


Order 3 Bits 


Relocation 


ESD 


Key 


of Phase Number 


Factor 


Type 





XXX 


= + 


000 = SD 






1 =- 


001 = LD 
010 = ER 
Oil =LR 

100 = PC 

101 =CM 

111 =Phase 
Entry 



Figure 57. Control Dictionary/Linkage Table 



This table is composed of a variable number 
of fixed 3-byte entries. It is built 
separately for each object module. When an 
end card is processed, signaling the end of 
a module, it is reset to zeros. (Location 
LTMIN3 contains the address of the first 
item in the linkage table minus 3 bytes. 
LNKTAD contains the address of the last 
item in the linkage table plus 3 bytes. 
The label LTMIN3 is located in a low 
storage location relative to the label 
LNKTAD. Figure 57 illustrates the linkage 
table.) 



USE OF THE LINKAGE TABLE AND CO NTROL 
DICTIONARY; The linkage table is designed 
to associate text and RLD information with 
the proper relocation attribute from the 
control dictionary. The steps taken in 
processing some text are: 

1. Get the ESID number and calculate the 
linkage table entry. 

2. Go to the linkage table. 

3. Extract the control dictionary number 
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field of the linkage table^ and 
calculate the control dictionary entry 
location. 

4 . Go to the control dictionary entry. 

5. Extract the relocation factor. 

6. Add the relocation factor to the 
assembled origin of the text to be 
loaded. 

7. Substitute the result of the 
calculation in step 6 (the load origin) 
for the language translator supplied 
assembled origin (for the text) . 

8 . Calculate the block of the core image 
library that this text belongs to (next 
available block) . 

9. Get the proper core image block. 

10. Put the text into the core image block. 

Note: If a TXT card or P pointer points to 
a negative control dictionary 
number, that control section is 
skipped. If the R pointer points to 
a negative control dictionary 
number, that control section is 
needed (CSECT is not in this phase 
in main storage) . 

LINKAGE EDITOR FUNDAMENTAL CALCULATIONS; 
For the examples in this presentation: 

• The symbol A/0 represents the assembled 
origin. 

• The symbol R/F represents the 
relocation factor. 

• The symbol L/O represents the load 
origin. 

• The symbol P/O represents the phase 
origin. 

Example 1: The language translator 
provided A/0 is added to an R/F that has 
been determined by the phase origin 
information. The result, the L/O, is the 



main storage address that is the physical 
location of this text, RLD item, or control 
section. 

A/0 + R/F = L/O 

Example 2 : The assembled origin of the 
CSECT being processed is subtracted from 
the address that is the next possible phase 
origin. This results in the relocation 
factor for that control section. 

P/O - A/0 = R/F 

Example 3; Current control dictionary 
entry ~ 16 = next control dictionary entry. 

Example 4: Current linkage table entry + 3 
= next linkage table entry. 

Example 5; Disk address + overflow factors 
= updated disk address. 

The overflow factors are a constant, 
established by the programmer, that 
simplify the updating of disk addresses 
(CHHR) . These factors, when added to the 
disk address, provide the correct cylinder 
and head after only one calculation. 



USE OF THE AUTOLINK FEATURE; This feature 
tries to locate a module in the relocatable 
library for any unresolved ERs found in the 
preceding phase. The signal indicating a 
phase has finished processing is either a 
new phase card or an ENTRY card- When the 
signal is detected, autolink is attempted 
unless the feature has been suppressed by a 
NOAUTO phase card or action card option. 

EXAMPLE OF AUTOLINK WITH LIOCS: Whenever a 
DTF macro is expanded during a language 
translator run, an ER is generated with a 
label corresponding to a label of a LIOCS 
module. The label of the ER is used as the 
search argument in autolink. The autolink 
processing searches the relocatable 
directory for the corresponding label. The 
directory entry contains the disk address 
of the module in the relocatable library. 
The module is the macro expansion and is 
then treated as an include statement. 



( 
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r $LNKEDT J 



I 



INITIALIZATION PROCESSOR 



Charts QA-QC 



This phase establishes initial conditions within the Linkage 
Editor Program. The steps of the initialization function are: 

• Determine main storage available. 

• Load $LNKEDTO, $LNKEDT2, $LNKEDT4, end $LNKEDT6 
if 14 K or more main storage is available. 

• Set up control dictionary and linkage table. 

• Set up DTP information and open SYSLNK and SYS001. 

• Set up linkage editor communication region information. 

• Read system directory records and set up initial con- 
ditions for the core image library. 

• Process action cards. 

• Perform the initial read of input . 




LESS THAN UK 



EQUAL TO OR GREATER 
THAN 14K 



Loads phases of Linkage Editor Program 
used in processing both control cards 
($LNKEDT4, $LNKEDT6) and 12-2-9 cards 
(SLNKEDTO, $LNKEDT2). 



RDEXEC/EXLOAD/RDNEXT \ ^ 



READ INPUT STREAM 



Chart QP 



Loads any Linkage Editor phases required ^ 
for processing, depending on the card 
image fourKi In the input stream and the 
availability of the phase in main storage. 
Branch to the appropriate processing routine. 



r RDNEXT ^ 
1 



r EX LOAD J 

1 



C $LNKEDTO J r $LNKEDT2 J C $LNKEDT4 J f $LNKEDT6 J 



CHART 32 



CHART 33 



CHART 34 



CHART 35 



' The loading of this phase is caused by 
$LNKEDT4. Exit is via the Autolink 
Subroutine, Chart QQ. 



Chart 31. Linkage Editor - Initialization Phase ($LNKEDT) 
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^ ILNKEDTDJ 



CHKNPH 



INITIALIZE THE ESD PROCESSOR 



Oiort RA 



Performs the input control function of 
updoting location PERIDA (see label list). 
Builds a dummy pKose card for the initial 
phase if none has been supplied. 



ESDRET 



START CARD IMAGE CHECK 



Chart RB 



Checks the validity of the type code 
supplied with each ESD item in thtf variable 
field of the card image just supplied as 
input. Provides exit from this phase when 
all the ESD items on a cord image have been 
processed. 



/" ESDRET \ 

\ ^ This Chart J 




NO 



/ RDNEXT ^ 
V Chart 31 J 




SYM CARD 



/^ / RDNEXT \ 

OTHER ( ^ Chart31 J 



Chart RC 



Preliminary 
processing of 
SD item. 



T 



Chart RB 



Preliminary 
processing of 
LD item. 



Charts RB - RC 



Preliminary 
processing of 
ER item. 



ESLBCD 



i 



Chart RC 



Get length and 
relocation factor 
of PC item. 



Chart RD 



Searches the control 
dictionary for a label 
matching the label of 
the CM. Process the 
common q% required. 



PROCESS ESD ITEM AGAINST CONTROL 
DICTIONARY 



Chart RD 



Comporvs the label of the ESD item with the 
label fields of the control dictionary 
entries. Complete PC processing by 
ensuring the name field of the ESD item 
in a blank. 



ELBSD 



ELBLD 



Chart RF 



Completes SD 
processing , 



"E 



i 



ELBER 



Chart RG 



Completes LD 
processing. 




1. 



Chart RE 



Completes ER 
processing. 



( ESDRET ^ 
V This Chart J 



ELBNCD 



UPDATES THE LINKAGE TABLE AND 
CONTROL DICTIONARY 



Charts RH - RJ 



Posts the ESD item in the control dictionary 
(as a new entry or as a replacement). Move 
the control dictionary number of the ESD item 
(non LD) to the linkage table. Checks for 
control dictionary/linkage table overlap. 



ESDRET ^ 

This Chart J 



Chart 32. Linkage Editor - ESD Processing Phase ($LNKEDTO) 



150 DOS System Control 



r $LNKEDT2 J 



IJBOTH 

INITIALIZE $LNKEDT2 



Chart RK 



Scans and analyzes language transiai-or 
provided inpuf cards. Determines the 
processing routine required, and branches to 
the appropriate address. 



O 



TXTPRC 




TXT PROCESSOR 



Chart RL 



Puts the text into core image format. 
Builds the text blocks relative to the 
starting address of the I/O area labeled, 
WKAREA. 



REPROC 



REP PROCESSOR 



.Chart RM 



Modifies REP card images so that they 
appear as text card images , Processes 
within the text processor as a text card. 



ENDPRC 



END CARD PROCESSING 



Chart RQ, RR 



1. Updates input control mechanism, PERIDA 
and ONSOOO (see label list). 

2 . Supplies transfer address if none has been 
accepted . 

3. Identifies unassigned LD/LR within the 
control dictionary for this module. 

4. Clears the linkage table. 

5. Accepts C SECT Ing if required, (Some 
language translators supply CSECT 
length in the end cards.) 



RLDPRC 



RLD PASS 1 PROCESSING 



Chart RN, RP 



Converts R and P pointer information to 
control dictionary number information for 
pass 2 RLD processing. This routine 
outputs the Pass 1 RLD information onto SYS001 . 



NO / Return to 
Autol ink 



(^ RDNEXT ^ 
V Chart 31 J 




Chart 33. Linkage Editor - TXT, REP, RI^D, and END Processing Phase ($LNKEDT2) 
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f $LNKEDT4 J 



IJBSCN 



INITIALIZE CONTROL CARD PROCESSOR 



Chart RT 



Performs the input control function of updating location 
PERI DA (see label list). Locates the operation field of 
the control card and performs initial validity checks 
on this field. Identifies the type of control card and 
branches to the appropriate processing routine. 



INCLUDE 



INCCRD 



PHCRD 




ENTRY 



PHASE 



ENTCRD 



INCLUDE CARD PROCESSOR 



Chart RU 



Sets up for a fetch of $LNKEDT6 for use as 
the terminal include card processor. 
Completes the validity checks on the 
include card operands. 



PHASE PROCESSOR 



Charts RW-RY 



Validity checks operands and operand 
delimiters (stop characters). 




ENTRY CARD PROCESSOR 



Chart RV 



Provides exit from either the entiy card 
processor or the phase card processor . 
Saves any transfer address provided as the 
operand of an entry card . 



ALNKPR 
Chart QQ 




Chart 34, Linkage Editor - Control Statement (INCLUDE, PHASE and ENTRY) Scan and 
Processing Phase ($LNKEDT4) 



( 



152 DOS System Control 



f $LNKEDT6 J 



YES 



PHSPRC 




INCLUDE/AUTOLINK 



NO 



IJBCTL 



PHASE POST PROCESSING 3 OF 3 



Chart SB 



Determines which optional operands have been used* 

Puts new phase name into 28 -byte phase header. 

Gets all the information necessary to process this phase. 



/^ RDNEXT \ 
V Chart 31 J 



PHASE POST PROCESSOR 



Charts SA-SF 



Writes the current core image block in the 
core image library. Gets the transfer 
address and calculates the load origin for 
this phase. Creates a 28-byte header 
containing phase information and saves 
this header In the system work area 
(librarian area). This phase information is 
used by the $LNKEDTA phase in terminal 
processing. Saves the disk address of each 
28-byte header \n the appropriate phase 
entry of the control dictionary. 



(^ SLNKEDTS ^ 
V Chart 36 J 



INCLPR 



INCLUDE/AUTOLINK POST PROCESSOR Chart SG 



Searches the relocatable directory for a 
module with the name specified by the 
include card image. Updates location 
PERI DA (see label list) used to keep track 
of nested includes. Also searches the 
relocatable directory for a module with 
the same name as the ER generated by 
logical IOCS or some language translators 
(autolink feature). 



(^ RDNEXT ^ 
V Chart 31 J 



J 



Chart 35. Linkage Editor - End of Control Statement Processing Phase ($LNKEDT6) 
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r $LNKEDT8 J 



PRINT AAAP 



Charts SH-SL 



Displaces phase load addresses by the 
cumulative length of the commons. 
Gsiculates the load origin For the transfer 
address. If the mop option was selected, 
prints the mop in the form illustrated in 
figure 82. Determines the exit from this 
phase based on any errors found in this 
Linkage Editor run and operator responses 
to typed error messages. 




Chart 36, Linkage Editor - Print Map Phase ($LNKEDT8) 



r 
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c 



RLDRET 



3 



IJBRLD 




NO 



PASS2-P POINTER PROCESSOR 



Chart SM 



Reads RLD records from SYSOOl, where they were written by $LNKEDT2 phase. Gets the relocation factor for the P pointer and 
reads the 28-byte phase header if the P pointer is outside the Qurrent phase, thus re-initializing for the subroutine that builds 
core image blocks. Controls the routing taken with $LNKEDTA phase, choosing the appropriate processor based on conditions 
found . 



RLDOR 



PASS2-R POINTER PROCESSOR 



Chart SN 



Gets the relocation factor for the R pointer. If the R pointer is an ER, the assembled origin is included in the calculation. 



Need 

to Process 

s. the Constant . 



NO 





\ 

> 


YES 


f RLDRET A 
V This Chart J 


RLDCON 




PASS2-RLD CONSTANT PROCESSOR 




Chart SP 


Adjusts the constants portion of the RLD item by the va 
WRKAREA (see label list) in core image format. 


ue of the relocation factor. 


Moves the address constant to location 



T 

f RLDRET ^ 

V This Chart J 



TSTUNR 



MAP ROUTINE 



Chart SQ 



Map unresolved Adcons and/or Adcons 
outside the limits of the current phase. 



BLKHDR 




BLOCK PHASE HEADER 



Chart SR 



Reads the 28-byte phase header, built in $LNKEDT6, from the system work area (librarian area). Adjusts the first block address 
of this phase and the transfer addressed by the relocation factor of the total commons. Builds 20-byte core image directory phase 
headers. Verifies all core image blocks previously written and closes SYSLNK and SYSOOl. 




Chart 37, 



f SVC 14 ^ 
V EOJ J 

Linkage Editor - Pass 2 RLD and Terminal Processing Phase ($LNKEDTA) 
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r $LNKEDTC J 



iJBLKCIO 



DETERMINE IF PHASES TO BE 
CATALOGED FIT IN CI DIR 



Charf SU 



Phase entries have been bultf by previous 
phases of linkage edifor in the system 
work area. A check is made to see if all 
of the phase entries will fit in the area 
allocated to the core image directory. 
If allocation of the core image directory 
is exceeded, the job is cancelled. 



READWA 




YES 



i/^SVC 6 Cancel J 



CHECK CORE IMAGE DIRECTORY 
FOR ENTRIES BEING REPLACED 



Chort SV 



The entries that already exist \n the 
directory are scanned for any match to a 
phase being cataloged. If a match is 
found, that entry is deleted from the 
directory and the system directory is 
updated to reflect the changes. 



MVEWA 



CATALOG PHASE ENTRIES TO CI DIR 



Chart SW 



All phase entries in the system work area 

are added to the core image directory 

starting at the next available phase 

entry oddress. This address is specified 

by the system directory. The system 

directory is updated and written after 

all entries have been moved to the directory. 

After returnir>g to Job Control, 

$MAINEOJ will be fetched when a /& control 

statement is read to update the 

transient, library-routine, and 

foreground-program directories. $MAINEOJ 

also prints the system status report. 



C SVC 14EOJ J 



Chart 38, 



Linkage Editor - Catalog Core Image Directory Phase ($LNKEDTC) 
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SECTION 6: LIBRARIAN MAINTENANCE PROGRAMS 



This section presents the programs that 
perform the functions required for 
maintaining the libraries and directories 
of SYSRES. These functions are as follows: 

• Catalog function for all libraries 
except the core image library. The 
core image library catalog function is 
performed by the linkage editor program 
(Phase 8, $LNKEDTC) . 

• Delete function for all libraries 

• Rename function for all libraries 

• Reallocate function for all libraries 

• Condense function for all libraries 

Maintenance of the system, in certain 
cases, will cause the directories to be 
incompatible with their corresponding 
libraries. These cases occur, in 
particular, when the reallocation program 
(MAINTA) and the condense program (MAINTCN) 
are being executed. If the execution of 
either of these programs is not completed, 
the status of the system is unpredictable 
and the system may have to be rebuilt. It 
is therefore imperative that during the 
execution of either program, the supervisor 
be prevented from fetching any transient. 
To safeguard against these 
incompatibilities , PIOCS performs the 
following: 

• Masks attention if bit 6 of the linkage 
control byte (displacement 57 of the 
communication region) is on. This bit 
is turned on by both programs and is 
turned off by $MAINEOJ (the program 
that updates both the $ and $$ 
directories). 

• Enters the system into a "hard wait" if 
the linkage control byte has a 
configuration of X'FF' when an I/O 
error occurs on SYSRES. This byte is 
set to X'FF' during reallocation 
involving the core image directory. It 
is restored to its original 
configuration when the reallocation is 
completed. 

The programs included in this section 
are presented in the following order: 

• Common library maintenance program 
(MAI NT) 

• Core image library maintenance program 
(MAINTC2) 



• Relocatable library maintenance program 
(MAINTR2) 

• Source statement library maintenance 
program (MAINTS2) 

• System reallocation program (MAINTA) 

• Library condense program (MAINTCN) 

• Set condense limits program (MAINTCL) 

• Update subdirectories program 
($MAINEOJ) 



COMMON LIBRARY MAINTENANCE PROGRAM (MAINT) , 
CHART 39 



During execution of all maintenance 
functions (except when $LNKEDTC is used to 
catalog in the core image library and when 
$MAINEOJ is resident) , MAINT is resident in 
storage with one of the following 
maintenance programs: 

• MAINTC2 

• MAINTR2 

• MAINTS2 

• MAINTA 

• MAINTCN 

• MAINTCL 

The MAINT root phase is composed of 3 
CSECTS : 

1. LIOCS logic module (GET or PUT) 

2. Error message routine (ERRRTN) 

3. Card handling and fetch routine (MAINT) 

MAINT is fetched from SYSRES by job 
control when a //EXEC MAINT control 
statement is read. The MAINT root phase 
performs the following functions: 

1. Loads base registers of phases. 

2. Reads control cards from SYSRDR or 
SYSIPT. 

3. Analyzes the operation field in control 
statements • 
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t*. Loads or fetches appropriate phases. 

5, Branches to appropriate entries in 
phases. 



6. Sets up pointers to operands in control 
statements. 

7. Writes error messages. 

8. Performs I/O operations for GET and PUT 
macros issued in the phases. 

Refer to Figure 58 for a storage map 
showing the relationship of iXIAINT and its 
phases. Refer to Chart 00 for interaction 
between MAINT and other programs in the 
system. 



MAINT ^ 
Root Phased 



LIOCS Logic Module 



Error Message Routine 



MAINT 



s. 



MAINTC2 



"End of SUPERVISOR 



J::::*, 



LIOCS Logic 
Module 



$MAINEOJ 



■^ 



^v 



AAAINTR2 



_X 



MAINTS2 



S 



■^< 



MAINTCN 



. $MAINEOJ 
y Phase 



^N 



^v 



MAINTA 



J^^ 



MAINTCL 



Figure 58. Maintenance Storage Map 
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C E NT MAI \ 
r NEWRD \- 



r AN ALE N j- 



f MAINT Initial ^ 
V Entry J 



BEGINN 



/AUTOEN \ 

VfromSMAINEOjy 



AUTOEN 



READ CONTROL STATEMENTS 



Chart TA 



Entries from other maintenance phases are: 
■^^ To get the next operand of the 

last control statement read or to read the 
next control statement. If entered from 
NEWRD to read the next control statement. 
Control Statements are read from either 
SYSRDR or SYSIPT (initially from SYSRDR). 



►• 



EMAINS 




ENTER MAINTCN 



Chart TA 



Enter MAINTCN phase to 
perform automatic 
condense operation. 



^AUTOCN 

MAINTCN Phase 
V Chart 44 



YES -/* STMNT HAS BEEN READ 



ANALYZE CONTROL STATEMENTS, LOAD CORRECT 
PHASE, AND BRANCH TO PHASE ENTRY 
Charts TB,TC, AND TD 



The operation field in each control statement 
is analyzed as: 

• IPTCTRL - branch to NEWRD and read 
subsequent control statements from SYSIPT. 

• RDRCTRL - branch to NEWRD and read 
subsequent control statements from SYSRDR. 

• CATALC- error 3M10D. 

• DELETC - load MAI NTC2 and branch to 
MAINTC2 phase entry plus 4, Chart 40 

• RE N AMC - load MAI NTC2 and branch to 
MAINTC2 phase entry plus 8, Chart 40 

• CATALR - load MAINTR2 and branch to 
RMAINT, Chart 41 

o DELETR - load MAI NTR2 and branch to 
RMAINTplus4, Chart 41 

• REN AMR - load MAINTR2 and branch to 
RMAINTplusS, Chart 41 

• CAT ALS - load MAI NTS2 and branch to 
CATENT, Chart 42. Phase entry. 

• DELETS - load MAI NTS2 and branch to 
DELENT, Chart 42. Phase entry plus 4. 

• RENAMS- load MAI NTS2 and branch to 
RNMENT, Chart 42. Phase entry plus 8. 

• CONDS - load MAINTCN and branch to 
MAINTCN, phase entry, Chart 44. 

• CONDL- load MAI NTCL and branch 
to phase entry. Chart 45. 

• ALLOC - load MAINTCN and branch to 
CNDCL, Chart 44. Therefore branch to 
MAI NT A, Chart 43. 

Phases are loaded only when they are 
not already in storage. Phase entry in 
the preceding list refers to the 
Initial entry label In the phase, and 
plus 4, plus 8, etc. refers to plus 4 
bytes, plus 8 bytes, etc. Refer to 
Figure 58 for a storage map of librarian 
maintenance phases. 




(Branch to ^ 
Phase Entry y 



Chart 39. Common Library Maintenance Program (MAINT) 
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Function 


Element 


Control Statements Required 


Delete 


Phase 


DELETC phase 1 [,phase2, . ..] 






Program 


DELETC XXXX.ALLDyYYY.ALL, . 


..: 


Rename 


Phase 


RENAMC old name, new name 
[^,old name2, new name2, .. .] 





Figure 59. Core Image Library Maintenance Control Statements 



CORF IMAGE LIBRARY ^mINTENANCE PROGRAM 
(MAINTC2), CHART 40 



MAINTC2 is fetched from SYSRES by the root 
phase MAINT when a control statement 
concerning core image library maintenance 
is read by MAINT, MAINTC2 deletes or 
renames phases in the core image library. 
Phases are cataloged in the core image 
library only by $LNKEDTC. See Figure 59 
for control statements acceptable to 
MAINTC2. 

There may be any number of these control 
statements in any sequence. The operands 



in DELETC control statements m.ay be in any 
sequence. Preceding these control 
statements is the job control statement 
//EXEC MAINT. A /* (end-of-f ile) always 
follows the statements. 



Refer to Figure 6 for the format of the 
core image (CI) directory and to Figure ^ 
for the format of the system directory. 



To delete a phase from the library, 
MAINTC2 deletes the phase entry in the CI 
directory. To rename a phase, MAINTC2 
changes the phase name in the CI directory. 
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RENAME A PHASE IN THE CI DIR 



Chart TJ 



A scan is made of the entries in the CI 
directory for an equal compare to the first 
operand of the RENAMC control statement. The 
second operand replaces the name field in the 
directory entry. An updated block is written 
in the CI directory. The system directory 
need not be updated. 




NO 



YES 



DELET 



DELETE A PHASE FROM THE CI LIB 



Chart TJ 



A scan is made of the entries in the CI 
directory for an equal compare to the operand 
of the DELETC control statement. Blanks are 
moved to the name field in the directory entry. 
An ufxkited block is written in the CI 
directory. The system directory is also 
updated to reflect the changes that 
have been made in the CI directory. 



SCNALL 



DELETE A PROGRAM FROM THE CI LIB 



Chart TJ 



A scan is made of the entries in the CI 

directory for an equal compare to the first 4 

choracters of the operand of the DELETC control 

statement. Blanks are moved to the name field 

of every entry in the directory that 

contains this 4-character prefix. An updated 

block is written in the CI directory 

whenever one or more phases are deleted 

from that block. The system directory is also 

updated to reflect the changes that have 

been made in the CI directory. 



(1 



ENTMAI, MAINT 
Phase/ Chart 



JNTN 



Chart 40, Core Image Library Maintenance Program (MAINTC2) 
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Function 


Element 


Control Statements Required 


Catalog 


Module 


CATALR module 1 
CATALR module 2 


Delete 


Module (s) 


DELETR module 1 [, module 2,...] 




Program 


DELETR XXX. ALL Q YYY.ALL, . . J 




Library 


DELETR ALL 


Rename 


Module 


RENAMR old name 1, new name 1 
[[,old name 2, new name2, ..,] 



Figure 60. Relocatable Library Maintenance Control Statements 



RELOCATABLE LIBRARY MAINTENANCE PROGRAM 
(MAINTR2), CHART 41 



MAINTR2 is fetched from SYSRES by the root 
phase MAINT when a control statement 
concerning relocatable library maintenance 
is read by the root phase MAINT. MAINTR2 
catalogs, deletes, or renames modules in 
the relocatable library. See Figure 60 for 
control statements for these operations. 

There may be any number of these control 
statements in any sequence. Module names 
specified in the DELETR control statements 
may be in any sequence. Preceding these 
statements is the job control statement 
//EXEC MAINT. The statements are always 
followed by a /* (end of file) statement. 



Refer to Figure 8 for the format of the 
relocatable library directory and to Figure 
9 for the format of the relocatable 
library. All records in the relocatable 
format have the same structure, the only 
difference being in the length of the 
variable field. Refer to Figures 62^ 63 
and 64 for relocatable formats of ESD, TXT, 
and RLD records. All other records are 
card images of the input. Figure 61 is an 
example of a module as it might appear in 
the relocatable library. Figure 65 is to 
be used with Chart TS as an aid in 
determining the new ESID numbers of the ESD 
records when they are being converted to 
the library format. 



( 
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1st byte = Number of logical records (1 in Linkage 




r 


Editor control cards, 2 in 12-2-9 cards) 
2nd byte = Record length (160 in all records) 




1 


160 


INCLUDE 


Unused 


1 


1 


160 


PHASE 


Unused 


J 


2 


160 


ESD 


ESD 


.J 


2 


160 


ESD 


TXT 


2 


160 


TXT 


TXT 


2 


160 


TXT 


TXT 


2 


160 


TXT 


TXT 


2 


160 


TXT 


TXT 


2 


160 


TXT 


REP 


Unused 


2 


160 


REP 


Unused 


RLD 


2 


160 


RLD 


RLD 


2 


160 


RLD 


END 


Unused 



2 Bytes 



160 Bytes 



160 Bytes 



Y 

322 Bytes 



\ Lin 
J Cor 



kage Editor 
Control Cards 



> 12- 2- 9 Cards 



Figure 61. Module in the Relocatable Library 
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EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADOR LENGTH LO ID 
IJBLNKIO SD 01 001900 000928 

01 
01 

02 



IJBLNK 


LD 




001900 


IJBLOV 


LO 




002008 


IJBINL10 


SD 


02 


002228 000650 


IJ6INL 


LD 




002228 


IJJCP03 


ER 


03 




IJJCPD1 


ER 


Ok 




IJ6ESD10 


SO 


05 


002878 000U58 



y 



ETC... 



Example of 8 
ESD Items from 
Assembler 
Output Listing. 



Assembler Output or 
RSERV Output ESD 
Cords 



ESID No. I 
pVorioble I 
J Field Byte I 
iCount i 




ER Item 
7th Entry" 



SD Item 
1st Entry 



SD Item 
8th Entry" 



Relocatable 
Library Block 
(322- Bytes) 



Relocatable 
Library Track 




Relocatable Library 
ESD Record 
(160- Bytes) 



SD 




Blank 



Seq. 
No. 



Variable Field 
(48 Bytes) 



LD 



ER 



ER 



SD 



Variable Field (128 Bytes) 



160 Bytes 



322 Bytes 



Figure 62. Relocatable Format of ESD Records 
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LOC OBJECT CODE 
001600 00000000 

001 eon 0000 

001806 0000 
001808 U7F0 FOOC 
00180C 9035 PODC 
001810 9103 1015 
00181U U770 F07U 
...ETC. 



Example of Text Contained 
in Relocatable Text Records 
from Assembler Output Listing. 



Assembler Output 
or RSERV Output 
TXT Cards 



I Origin of f 
1 1st Byte of I 



pTXTESID I 

I No. i 

I Variable p 
I Field Byte p 
^ Count 



Relocatable Library 
TXT Record 
(160 Bytes) 




56 Bytes of Text 



56 Bytes of Text 
(Machine Language 
Generated by Assembler) 



Relocatable 
Library Block 
(322 Bytes) 




Card 
Deck 
Seq. 
No. 



Seq. 
No. 



Variable Field 
■ (56 Bytes) 



from 



TXT 

56 Bytes from 

2nd Card 



TXT 

Next 

Card 



Variable Field (136 Bytes) 



160 Bytes 



160 Bytes 



Relocatable 
Library Track 



322 Bytes 



5 



Figure 63. Relocatable Format of TXT Records 
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RELOCATION DICTIONARY 



POS.ID 


REL.ID 


FLAGS 


ADDRESS 


01 


01 


OC 


001928 


01 


01 


08 


001 B39 


01 


02 


08 


002168 


02 


02 


08 


002 1D5 


02 ^ 


02 


OC 


002 1D8 


02 


02 


08 


002475 


02 


02 


OC 


002478 


03 


03 


08 


002899 


03 


04 


08 


0028A0 


•• 


. etc. 






Assembler oufpuf or RSERV 








output RLD cards 









Example of RLD rtems 
from Assembler output 
listing 




^Variable Field; 
^Byte Count 



All 9 RLD entries listed above are shown here as: 

• 8-byte entries for items with R or P IDs unlike the 
preceding item . 

• 4-byte entries for items with R and P IDs the same 
as the preceding item. 



Relocatable Library 
RLD Record 
(160 bytes) 



Relocatable 
Library Block 
(322 bytes) 



Relocatable 
Library Track 




Figure 6U . Relocatable Format of RLD Records 
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The following chart is to be used as an aid in detemiining the ESID number being calculated on Chart TS and TT in MAINTR2 
program. ESID in the chart refers to the ESID number of the input ESD record. The chart is followed by an example where 
one ESD item from the input record will fill the relocatable library record. 



1 2 


3 


AREAl 


AREA2 


AREAS 


AREA4 






ESID 


ESID 


ESID + 1 


ESID + l 


X 




blank 


ESID 


ESID + 1 


ESID 


X 




ESID 


ESID 


ESID + 1 


ESID + 1 




X 


ESID 


ESID 


blank 


ESID + 1 


X X 




blank 


blank 


ESID 


ESID 


X 


X 


blank 


ESID 


blank 


ESID 


X 


X 


ESID 


ESID 


blank 


blank 


X X 


X 


blank 


blank 


blank 


blank 



Note; X = LD entries in input record 




Current 

Output-^- 

ESID 



Move ESID of 
•1st SD (input 
ESID field) 



Move ESID of 
2nd SD (input ■ 
ESID field +1) 



Figure 65. Calculation of ESID Numbers in MZ^INTR2 
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f MAINTR2 J rMAINTR2+4 J T MAINTR2 + 8 j 



O 



INITIALIZATION 



Chart TL 



On fhe initial entry to MAINTR2, SYSIPT Is opened and the 
system directory is checked to see if the relocatable library 
is allocated. The initialize routine branches to: 

• CATALR to catalog a module if the entry to this program 
was RMAINT. 

• DELET to delete a module name(s) from the RL directory 
if the entry to this program was RMAINT+4. 

• RENAME to change the name of a module in the RL 
directory if the entry to this program was RMAINT+8. 



CATALOG 



CATALR 1 r 




DELETE 



RENAME 



CATALOG A MODULE 



Charts TM and TN 



The RL directory is scanned to see if an existing module is 
to be replaced. The name of the existing module must be 
deleted from the directory by the delete routine previous to 
cataloging the new module. The program branches to 
DELNER to delete the directory entry and returns to CATALR. 
The directory will be scanned a second time but the name 
has already been deleted. 

i^ Cards are read from SYSIPT (module to be cataloged) and 
ofKilyzed as to type. As blocks are built, they are cataloged 
starting at the next available block in the library. The 
program branches to RCESD to build ESD records, to RCRLD 
to build RLD records, and to RCTXT to build TEXT records. 
Other types of cards are cataloged in card image. 

See Figure 61 for an example of a module in the 
relocatable library. After the module is cataloged (END 
statement is read), the RL directory and system directory are 
updated and written on SYSRES. The program then returns 
to ENTMAI in MAI NT root phase. 



RCESD 




YES 



TXT 



BUILD ESD RECORD 



Charts TR,TS, and TT 



Refer to Figure 62 to aid in the conversion of ESD input 
records to RL records. 

The ESID of each record, regardless of the length of the 
variable field, is the ESID of the first non-LD item in the 
variable field. Use Figure 65 to aid in setting up ESID save 
areas on Chart TS. 



DELET 



DELETE A MODULE, 
PROGRAM, OR LIBRARY 



Charts TP and TQ 



A module is deleted from the relocatable library by 
blanking the name field in the directory entry for the 
module. Refer to Figure 8 for the format of the 
relocatable library directory. 



RENAME 



RENAME A MODULE 



Chart TW 



To rename a module in the relocatable library, the 
new name (second operand of the control statement) 
replaces the old name (first operand). The updated 
RL directory block is then written on SYSRES. Refer 
to Figure 8 for the format of the relocatable 
library directory. 



Antmai, MAINTN 

yPhase, Chart 39 J 



RCRLD 



RCTXT 



BUILD RLD RECORD 



Chart TU 



Refer to Figure 64 to aid in the 
conversion of RLD input records to 
RL records. 



•^r 



BUILD TXT RECORD 



Chart TV 



Refer to Figure 63 to aid in the 
conversion of TXT input records to 
RL records. 



O 



Chart 41. Relocatable Library Maintenance Program (iyiAINTR2) 
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SOURCE STATEMENT LIBRARY MAINTENANCE 
PROGRAM MAINTS2, CHART 42 



MAINTS2 is fetched by the root phase MAINT 
to service the source statement library. 
It is fetched from SYSRES when a control 
statement involving the source statement 
library is read by the MAINT root phase. 
MAINTS2 catalogs, deletes, or renames books 
in the source statement library. See 
Figure 66 for the format of the control 
statements used in MAINTS2. 



CATALS sublib. bookname = Catalog Control Statement 
DELETSsublib. book! [,sublib. book2, ...]^ 



Delete Control 
Statements 



DELETSsublib. ALL 



RENAMS. sublib. oldname, sublib. newname = Rename Control 

Statement 



Figure 66. Source Statement Library 

Maintenance Control Statements 



There are two types of information ' 
stored in the source statement 
library: MACRO definition books and source 
deck books. See Figure 11 for the source 
statement library format and Figure 10 for 
the source statement library directory 
format. 



There are two types of source statement 
library book header cards : BKEND header 
cards and MACRO header cards. See Figure 
67 for header card formats. The BKEND 
header card provides the user with any or 
all of the following options: 



• Input sequence checking. 

• Input card counting - 

• Accepting input in compressed format. 

The BKEND card or parts of it may be 
omitted when cataloging, but must be 
present if the input is in compressed 
format. A BKEND trailer card must end a 
book if a BKEND header is used. 

A MACRO header card starts a MACRO 
definition book and the MEND card must be 
the last card of that book. There may be 
any number of control statements in any 
sequence involving the source statement 
library. However, it is not possible to 
catalog and to delete the same book from 
the source statement library in the same 
job step. 

The MAINTS2 phase is completed when a /* 
or /S card is read. After the end card has 
been read, the system directory is updated 
to reflect the changes that were made in 
the source statement library. Control is 
returned to the MAINT root phase and 
MAINTS2 is completed. 



BKEND [sub .book] 


[SEQNCE] [count [,COMPRSD 


= Book End Header 
Statement 


BKEND [sub. book] 




= Book End Trailer 


AAACRO 


= Macro header statement 




MEND 


= Macro trailer statement 





Figure 67. Book Header Card Formats 
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( MAINTS2, ^1 
V GATE NT J 



C 



MAINTS2+4, 
DELENT 



CATALS 



DELETS 



CATALOG A BOOK 



Chart UA 



All error switches are reset. 
The operands on the CATALS 
card are checked and switches 
are set to perform the opera- 
tions called for. If the entry 
is the first into MAINTS, 
the system directory is read 
into storage. The name of the 
book to be cataloged is put 
in the source directory list. 



MVBCAT 



3 



RENAMS 



DELETE A BOOK OR 
SUB-LIBRARY 



Chart UA 



All error switches are reset. 
If the entry is the first into 
MAI NTS, the system directory is 
read into storage. 




RENAME A BOOK 



Chart UB 



All error switches are reset. 
The address of the old name 
operand is saved. If the entry 
Is the first into MAINTS, 
the system directory is read 
into storage. The old book name 
is put in the book catalog field. 



BOOK NAME VALIDITY 



Chart UB 



The book name is checked to make sure the first character is alphameric 
and the remaining 7 are alphameric or numeric. 



WAITBO 




ENTMAI, MAINT 
Phase, Chart 39 



D 



CATALOG 



I/O CONTROL - READ, COMPRESS, 
AND CATALOG BOOK 



Charts UC to UH 



The MACRO or BKEND header card Is read. If a BKEND card, 
switches are set to perform any of the options the user called 
for (sequence checking, card counting, or input in compressed 
format). The source cards of the book are read and put Into the 
output block "in compressed format. If already compressed the 
Input Is put directly in the output block. If not, the input is 
compressed and then put in. When the output block becomes 
full. It Is written into the source statement library. The program 
checks each card to see If it is a MEND card ending in a MACRO 
definition book or a BKEND card ending In a source deck. 
When the last card Is recognized, it is written into the source 
statement library with a hexadecimal zero at the end to identify 
end- of- book. A switch is set indicating the next card read will 
be the first card of a new book. 



ALLTHT 



f MAINTS2+12, ^ 
V FINENT J 



FINSHS 



FINISH MAINTS PHASE 



Chart UJ 



MAINT returns control to the FINSHS routine to set a 
switch to indicate the system directory has been 
updated and written on SYSRES. Control is returned 
to the MAINT program, and MAINTS is finished. 






"ANALEN, MAINT\ 
fhase. Chart 39 J 



ALL THROUGH PROCESSING 



Chart UJ 



The system directory and source statement directory ore 

updated to reflect the changes in the source statement 

library and the system directory is written on SYSRES. A test is made 

to see if a card was read after the BKEND or MEND card. If so, 

this signifies a new book is ready to be processed. The exit to MAINT 

is determined by the type of extra card that was read. 



■Q 



ENTMAI, MAINT 
Phase, Chart 39 



5 



Chart 42. Source Statement Library Maintenance Program (MA.INTS2) 
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ALLOC id=tylin(track) T id=tyl in (track), . .,1 

Where: 

id refers to libraiy identification (either CL, RL, or SL.) 

cylin refers to the total number of cylinders to be allocated to the library, 
including the directory. 

track refers to the number of tracks to be allocated to the directory. 



Note; All operands used must be on one control statement. 



Figure 68. Reallocation Control Statements 



SYSTEM REALLOCATION PROGRAM (MAINTA) , CHART 
43 



// VOL SYSRES^IJSYSRES 



MAINTA is fetched by the phase MAINTCN. 
When a control statement requesting system 
reallocation is read by MAINT, the library 
condense program (MAINTCN) is fetched to 
condense all directories and libraries 
before reallocation. After the condense is 
complete, MAINTA is fetched from SYSRES by 
MAINTCN. SYSRES is reallocated by 
redefining the sizes of the directories and 
libraries. See Figure 68 for the format of 
the reallocation control statement. 

Control statement input for the 
reallocation function, read from the device 
assigned to SYSRDR, is as follows: 

// JOB jobname 



// DLAB 'DOS 16K DISK SYSTEM RESIDENCE 
FILE' 

// EXTENT extent information 

// EXEC MAINT 

ALLOC id=cylin (tracks) 

[,id=cylin(tracks) ... . ] 



/* 



/S 



Refer to Figure 69 for the format of the 
reallocation tables and to Figure 70 for an 
example of the method used by MAINTA to 
reallocate SYSRES. 



Librarian Maintenance Programs 171 



CDOSA 


"i DISPLACEMENT (DECIMAL) 


DIRECTORY TABLE 


RDOSA 


> 





Old starting address (CCHH) 


SDOSA 


J 


4 


New starting address (CCHH) 






8 


Nunriber of tracks used 






10 


Number of tracks allocated 






12 


Number of blocks used 






14 


Tracks of displacement (Note 1) 






16 


Block size 






18 


Update code (Note 2) 






20 


Number of blocks per track 






22 


Entry size 






24 


Number of entries per block 






26 


Displacement of disk address in entry 


CLOSA 


^ 




LIBRARY TABLE 


RLOSA 


? ° 


28 


Old starting address (CCHH) 


SLOSA 


/ ^ 


32 


New starting address (CCHH) 




^ 8 


36 


Number of tracks used 




10 


38 


Number of tracks allocated 




12 


40 


Number of blocks used 




14 


42 


Tracks of displacement (Note 1) 




16 


44 


Block size 




18 


46 


Update code (Note 2) 




20 


48 


Number of blocks per track 




22 


50 


Record size 




24 


52 


Number of records per block 




26 


54 


Library identification 




28 


56 


Table for next directory 


Note 1: 


The tracks of displacement is the number of tracks that must be added to or 




subtracted from the old disk address (displacement 0) to arrive at the new disk 




address (displacement 4). 




Note 2: 


The update 


code is a if the tracks of displacement (displacement 14) is 0, 1 




if the tracks of displacement is positive, and 2 if the tracks of displacement | 




is negative, 




1 



Figure 69, MAINTA Reallocation Table 
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f Begin ^ 
V Pass 1 J 




In the preceding example, reallocation is accomplished within the disk storage area allocated to SYSRES. 

Note 1: Pass 1 is a forward scan of the directories and libraries beginning with the core image library. Track of 

label cylinder has been stored on cylinder 0. 
Note 2: The CI directory will never be moved from its predetermined starting disk address (Cyl 1, track 0.) by MAINTA. 
Note 3: On pass 1,. all libraries and directories that must be moved to a lower disk address are moved. Only active 

blocks are moved. 
Note 4: On pass 2, all libraries and directories to be moved to a higher disk address are moved. Only active blocks 

are moved. 
Note 5: To format an unused track, the key field and the data field are written in each unused block of the directory 

or library. The data field Is blank except for on asterisk in byte position 1 . 
Note 6: The relocatable library and the source statement library are not formatted. 



/End olF \ 

\Rea I location/ 



Figure 70. Method Used by MAINTA to Reallocate SYSRES 
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MAINTA 



r MAINTA j 

m 



PROCESS ALLOCAtC CONtftOL 
STAT^ENT 



Charts VA, VB 



Refer fo Figure 68 for fhe formaf of the ALLOC control 
statement. The operands of the ALLOC statement 
are analyzed and a table containing the reallocation 
information is built from the statement. 



GOONl 



UPDATE RECORD 4 OF 
SYSTEM DIRECTORY 



Chart VC 



All 4 system directory records are read 
Into storage. Using the information 
stored from the ALLOC statement, record 
4 (system allocation record) is updated. 
Refer to Figure 4 for system directory formats. 



BLDTB 



BUILD REALLOCATION TABLES 



Charts VD, VE 



A reallocation table is built for each 
of the three directories and each of the 
three libraries in this sequence: 

1. CI directory at label CDOSA 

2. CI library at label CLOSA 

3. Reloc directory at label RDOSA 

4. Reloc library at label RLOSA 

5. SS directory at label SDOSA 

6. SS library at label SLOSA. 
Each of these tables are 28 (decimal) 
bytes in length. Refer to Figure 69 for 
the displacement and name of each field 
in the reallocation tables. Refer to the 
program listing for initial values in the 
fields of each table. The tables begin at 
label CDOSA. 



UPSYSN 



UPDATE SYSTEM DIRECTORY 
RECORDS 1, 2, AND 3 



Chart VF 



Using the reailocafion tables that have been built, 
system directory records 1, 2, and 3 are updated 
in storage. Refer to Figure 4 for system directory 
formats and Figure 69 for the reallocation tables. 
The first track of the label cylinder is stored on 
cylinder 0, track 2, 

SYS RES is opened to determine If the upper 
extent of file IJSYSRES is valid. The message 
3M66I BEGIN REALLOCATION is printed. 



WRITE 



WRITE UPDATED SYSTEM DIRECTORY Chart VG 

AND BLANK TRANSIENT, LIBRARY 

ROUTINE, FOREGROUND PROGRAM, 

AND PROBLEM PROGRAM PHASE DIRECTORIES 



Refer to Figure 3 for allocation of 
these directories. 



DIRUP 



UPDATE LIBRARY DIRECTORIES 



Chart VH 



The library directories are read into 
storage one block at a time. Each entry 
in the directory block is updated 
using the reallocation tables. The 
updated directory blocks ore written at 
the same disk address from where they 
were read. No relocation of the 
directories takes place at this time. 
Refer to Figures 6, 8, and 10 for the 
formats of the CI library, Reloc library, 
and SS library directories, respectively. 
Refer to Figure 69 for the format of the 
reallocation tables. 



MOVE 



RELOCATE DIRECTORIES AND 
LIBRARIES 



Chart VJ 



Directories and libraries are moved as specified 
in the reallocation tables. This operation is 
accomplished in two passes of the tables. Refer 
to Figure 70. 

If the move is to a lower disk address, the 
move is made on pass 1 . If the move is to a 
higher disk address, the move is made on pass 2. 
Only the active blocks are moved. If the disk 
address is to remain the same, that directory or 
library is bypassed on pass 1 and pass 2. .One 
block at a time is moved. The update disk 
address subroutine, TKCOMP, can either 
increment or decrement the disk address by any 
predetermined displacement. 



TKFMT 



FORMAT UNUSED TRACKS AND 
FETCH $MAINEOJ 



Chart VK 



The format for unused tracks is the data field 
with an asterisk in byte position 1 . The unused 
tracks are formatted in all directories and in 
the CI library in this sequence: 

1 . CI directory 

2. CI library 

3. RL directory 

4. SS directory 

Restore first track of label cylinder from cylinder 
0, track 2 to new cylinder. The message 3M67I 
END REALLOCATION is printed. 

$MAINEOJ is fetched to update the transient 
library routine, and foreground program directories. 



/'newrd, maintN 

V Phase, Chart 39y 



Chart 43- System Reallocation Program (MAINTA) 
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LIBRARY CONDENSE PROGRAM (MAINTCN) , CHART 
4U 



MAINTCN is fetched from SYSRES by the root 
phase MAINT when a control statement 
requesting a condense or reallocation 
function is read. MAINTCN is also loaded, 
together with MAINT, when $MAINEOJ requests 
an automatic condense, MAINTCN condenses 
any or all of the libraries and their 
respective directories. See Figure 71 for 
control statements that cause MAINTCN to be 
fetched. 



Refer to Figure 4 for the format of the 
system directory. Refer to Figures 6, 8, 
and 10 for formats of the core image 
directory, relocatable directory, and 
source statement directory, respectively. 
Refer to Figures 7, 9, and 11 for formats 
of the core image library, relocatable 
library, and source statement library, 
respectively. 



Function 


Element 


Control Statements Required 


Condense 


Core Image 
Library 


CONDS CL 


Relocatable 
Library 


CONDS RL 


Source Statement 
Library 


CONDS SL 


All Libraries 


CONDS CL, RL, SL 


Reallocate 


All Libraries 


Any ALLOC control statement 



Figure 71. Condense Control Statements 
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c 



:) 



INITIALIZE FOR LIBRARY 
CONDENSE 



Chart VN 



Initialize to condense core image library 
directory and library. Bit 6 of the linkage 
control byte is turned on to prevent the 
operator from pressing the attention interrupt 
key while the CI directory and library are being 
condensed. (The job cannot be cancelled.) 

All entries in the transient, library routine, 
LIOCS open and foreground program directories 
are cleared. The sub -directories will be built, 
after Job Control reads a /& control statement, 
by $^AAINEOJ. 



o 



MAICON 




INITIALIZE FOR LIBRARY 
CONDENSE 



Initialize to^condense relocatable directory 
and library. 



CNDSL 



INITIALIZE FOR LIBRARY 
CONDENSE 



Initialize to condense source STMNT directory 
and library. 



CONDENSE A DIRECTORY 



Chart VP 



A scan is made of all entries in the directory. 
New directory blocks are built from the entries 
that have not previously been deleted. 
Deleted entries are omitted from the new 
directory blocks. 




CONDENSE A LIBRARY 



Chart VQ 



When a phase entry that is not deleted is found, 
the phase is moved ahead in the area allocated 
to the library, thereby removing phases from 
the library that were previously deleted from 
the directory. The phase is moved one full 
track at a time. After the entire phase has been 
relocated, the directory entry is updated. New 
directory blocks are written as they become full. 



ENDROU 



( AUTOCN J 



FINISH THE CONDENSE OPERATION Chart VR 



The last (new) directory block is written in the 
directory. The system directory is updated and 
written. Bit 6 of the linkage control byte is 
turned off to allow attention interrupts. 

MAINTCN is called when: 
1 . A CONDS control statement has been read 
by MAINT. One library is condensed at 
a time. Return to MAINT for the next 
operand in the CONDS statement or to read 
the next control statement. 



2. 



An ALLOC control statement has been read 
by MAINT. All libraries are condensed 
before MAINTA is fetched. 
An automatic condense of one or more 
libraries has been requested by $MAINEOJ. 
The requested libraries ore condensed 
before $MAINEOJ is fetched. 



Switches have been set in displacement 22 of 
the supervisor communications region Indicating 
which libraries are to be condensed. 




Chart 44. Library Condense Program (MAINTCN) 
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SET CONDENSE LIMITS PROGRAM (jyiAINTCL) , 
CHART 45 



MAINTCL is fetched from SYSRES by the root 
phase MAINT when a control statement 
requesting the setting of the automatic 
condense limits in the system directoiry is 
read. See Figure 4 for the format of the 
system directory- MAINTCL sets condense 
limits for all or any of the libraries. 
The control statement that causes MAINTCL 
to be called is: 



CONDL 



C I,=nnnn , RIi=nnnn , SL=nnnn 



Whenever the number of active entries is 
equal to or less than the condense limits 
set by MAINTCL, $MAINEOJ calls MAINTCN to 
condense. 



UPDATE SUB-DIRECTORIES PROGRAM ($MAINEOJ) , 
CHART 45 



$MAINEOJ is fetched by: 

• Job Control at the completion of MAINT 
or $LNKEDTC. 

• CORGZ after copying the system to 
SYS002. 

• MAINTCN after performing an automatic 
condense operation requested by 
$MAINEOJ. 



Objectives of $MAINEOJ are: 

1. Determine if the condense limits in the 
system directory have been exceeded and 
call MAINTCN if an automatic condense 
is necessary. 



Build subdirectories by scanning the 
core image directory and extracting 
those entries that belong in the 
subdirectories. Refer to Figure 3 for 
the organization of the directories on 
SYSRES. Subdirectories maintained in 
this system are: 



• Transient subdirectory ($$) 

• LIOCS open subdirectory ($$B0) 

• Library routine subdirectory ($) 

• Foreground program subdirectory (FGP) 

Note: The library routine subdirectory 
may be referred to as the preferred 
program directory. 

Print a system status report on SYSLST 
using the entries in the system 
directory. Refer to Figure 7 6 for a 
sample printout of the system status 
report. 

Issue a SVC 14 (EOJ) . This is the 
completion of the maintenance run. 
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(^ MAINTCL J 



BEGINN 



f $MAINEOJ J 



BEGINN 



SET^ONDENSE LIMITS 



Chart VU 



Automatic condense limits are set in the 
system directory. Refer to Figure 4 for 
the format of the system directory records. 
The condense limits are changed to the 
limits specified in the CONDL control 
statement. Condense limits remain unchanged 
in the system directory until another CONDL 
control statement is issued. 



/newrd, maintA 

Vs ^Phase, Chart 39 J 



CHECK AUTOMATIC CONDENSE 
LIMITS 



Charts W and VW 



Initialization; Change CCB to write on SYS002 
instead of SYSRES if $MAINEOJ was fetched by 
CORGZ. 

The automatic condense limit is compared to 
the number of available blocks in each of the first 
3 system directory records. If the condense limit 
has been reached, information indicating which 
libraries are to be condensed, is saved in the 
communications region for MAINTCN. 
Note; If there are no deleted blocks (nothing to 
condense) or no condense limit is specified, no 
automatic condense can take place for that 
I ibrary. 

If one or more libraries require an automatic 
condense, MAINTCN is called. 




YES 



AUTONO 



NO 



VMAINTCN Phasey 

^~ 

(Fetch MAI NT, "\ 
AUTOEN 1 

Chart 39 y 



UPDATE SUB-DIRECTORIES 



Charts VX to VZ 



Before building new sub-directories, the 
tracks where they are to be written are 
cleared. One scan is made of all entries 
in the core image directory. When an entry 
to be included in one of the sub-directories 
is found, it is moved to the corresponding 
sub-directory output buffer areas. As these 
buffers become full or when the scan of the 
core image directory is complete, the buffer 
areas are written on SYSRES (or SYS002). 
Sub-directory entries are identified by the 
prefix characters in the phase name. 
These prefixes are: 

• FGP for the foreground program sub-directory. 

• $ for the library routine sub-directory. 

• $$ for the transient sub -directory. 

• $$BO for the LIOCS open sub-directory. 
Refer to Figure 6 for the organization of the 
sub-directories and core image directory. 



DSERV 



PRINT SYSTEM STATUS REPORT Charts VX, TG, and TH 



The system status report is printed from the 
system directory. Refer to Figure 76 for a 
sample printout of this report. 

Reset bit 7 in the linkage control byte. 
This indicates to Job Control not to fetch 
$MAINEOJ again. 



^ SVC 14 EOJ A 
V Chart 12 J 



Chart 45. Update Directory and Set Condense Limit Programs ($MAINEOJ and MAINTCL) 
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SECTION 7. LIBRARIAN ORGANIZATION PROGRAM 



The copy program (CORGZ) is the only 
program that is presented in this section. 



COPY SYSTEM PROGRAM (CORGZ), CHARTS 46 AND 
47 



The copy system program selectively or 
completely copies the system residence onto 
another disk pack. In addition to the copy 
function, the ability to define the limits 
for the new disk pack (allocation) is 
provided. All $ and $$ phases of the core 
image library and the standard label track, 
track 1 of the volume cylinder, are copied 
automatically . 

The CORGZ program has two phases: CORGZ 
and CORGZ 2. CORGZ consists of three 
modules, which are link edited into a 
single phase. The first module, IJBLBB, 
consists of a common LIOCS logic module 
used to output an image of erroneous 
control statements on SYSLST. The second 
module, IJBLBC, is a common error routine 
used to display CORGZ error messages on 
SYSLST. The third module consists of the 
CORGZ (phase 1) processing routines. 



IJBLBB and IJBLBC are common to all 
maintenance programs. Flowcharts and 
descriptions of these two modules are 
contained in Section 6: Common Library 
Maintenance Program (MAINT ) . 

Phase 2 (C0RGZ2) consists of a single 
module containing the phase 2 processing 
routines. Figure 72 shows the main storage 
allocation for both phases of CORGZ. 



I/O Assignments 



CORGZ requires the following I/O 
assignments: 

• SYSRES: Must be an IBM 2311 disk pack. 

• SYS0Q2 : Must be an IBM 2311 disk pack. 
Data is copied from SYSRES to SYS002. 
SYSRES and SYS002 can not be the same 
physical unit. 

• SYSRDR ; Must be a card reader, a 
magnetic tape, or a 2311 disk from 
which CORGZ control statements are 
read. 



EOS 



CORGZ 
Phase 1 









Module 1 - IJBLBB 






Common LIOCS Logic NAoduie 






(See MAINT - Section 6) 






Module 2 - IJBLBC 


Common Maintenance Error Routine 






(See MAINT- Section 6) 




Module 1 - CORGZ2 
Overlays all of Phase 1 




Module 3 - CORGZ 






Phase 1 Processing Routines 







CORGZ 
Phase 2 



Figure 72. CORGZ Storage Map 
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• SYSLST ; Must be a magnetic tape or a 
printer. CORGZ diagnostic messages are 
displayed on this device. 

Figure 73 shows the I/O flow for both 
phases of CORGZ. 



ALLOC ; The format of the ALLOC statement 
is shown in Figure 68. The value to be 
substituted for ID is; 



CL — Core image library and directory 




2. RL — Relocatable library and directory 



3. SL — Source statement library and 
directory 



The value substituted for cylinder is: 

1. A number representing the total number 
of cylinders to be allocated for the 
specified library and directory. 



2. The value can not exceed four 
characters. 



\ SYSRES / 


Phase 2 
CORGZ2 


\ SYS002 / 


\ / 




^-y 


Figure 73. 


CORC 


5Z I/O Flow 





Job Control Statements Required to Request 
CORGZ 



The following job control statements are 
required to execute CORGZ. 

1 . //JOB joJDname . 

2. ASSGN or //ASSGN statements for SYSRDR, 
SYSLST, and/or SYS002 if the standard 
assignments are not to be used. 

3. VOL^ DLAB, and EXTENT statements for 
the SYS002 disk pack. 

4. //EXEC CORGZ. 



Control Statements Acceptable to CORGZ 



The CORGZ program is designed to accept two 
types of control statements: ALLOC and 
COPY- type statements. The ALLOC statement 
is optional and is required only if the 
allocation of one or more of the libraries 
on SYS002 is different from the allocation 
on SYSRES. When used, the ALLOC statement, 
or statements, must precede the COPY-type 
statement or statements. 



Each character must have a decimal 
value zero through nine, inclusive. 

The value substituted for tracks is: 

A number representing the total number 
of tracks to be allocated for the 
specified directory. 

The value can not exceed four 
characters. 

Each character must have a decimal 
value zero through nine, inclusive.. 



COPY: The valid formats of the COPY 
statement are shown in Figure 74. The 
operand of the COPY statement must be ALL. 
This indicates that all libraries of SYSRES 
are to be copied. 

A COPYC statement specifies the core 
image library. The operand specifies the 
phases or programs that are to be copied. 
An operand of ALL specifies that all phases 
in the core image library are to be copied. 

A COPYR statement specifies the 
relocatable library. The operand specifies 
the modules or programs that are to be 
copied. An operand of ALL specifies that 
all modules in the relocatable library are 
to be copied. 

A COPYS statement specifies the source 
statement library. The operand specifies 
the books to be copied from one or more 
sublibraries,. A complete sublibrary can be 
copied by the operand: sublibrary .ALL. 
An operand of ALL specifies that all 
sublibraries are to be copied. 



^ 
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COPY 


ALL 






COPYC 
COPYC 
COPYC 


phase 1 [,phase2 
programl.ALL [, 
ALL 


prog ram2. ALL,. 


..] 


COPYR 
COPYR 
COPYR 


Modulel [,AAodi 
programl .ALL [, 
ALL 


>le2,...] 
program2.ALL/ . 


..] 


COPYS 
COPYS 
COPYS 


sublibrary.bookl 

sublibrary.ALL 

ALL 


[,sublibraiy.book2,...] 



Figure 74. Copy Statement Formats 



a. The operands of the COPY statement 
are scanned and processed one at a 
time. 

b. The SYS002 directories are built as 
each operand is processed. 

c. When the last operand of a copy 
statement has been processed^ the 
updated system directory record for 
this library is written on SYS002 
and the next statement is read. 

Steps 5a, 5b,, and 5c are repeated until 
the /* (EOF) statement is read. At 
this time, the core image directory 
entries of all $ and $$ programs are 
copied to SYS002. 



Phase 2 of CORGZ (C0RGZ2) 



Phase 1 of CORGZ (CORGZ) 



The //EXEC CORGZ job control statement 
loads and executes CORGZ. The prime 
functions performed by this phase are: 

1. Initializing, copying IPL, and 
formatting cylinder of SYS002. 

2. Reading and analyzing control 
statements. 

3. Processing ALLOC statements, if 
present. 

4. Generating system directory records 1, 
2, 3, and 4 on SYS002. 

5. Processing each COPY statement 
completely before reading another. 



C0RGZ2 overlays phase 1. The prime 
functions performed by this phase are: 

1. Copying the desired core image library 
phases. The SYS002 core image library 
directory entries determine the phases 
to be copied. 

2. Copying the desired relocatable library 
modules. The SYS002 relocatable 
library directory entries determine the 
modules to be copied. 

3. Copying the desired source statement 
library books. The SYS002 source 
statement library directory entries 
determine the books to be copied. 

4. Copying the standard label track (first 
track) of the volume cylinder. 

5. Fetching $MAINEOJ to build the 
transient and library routine 
directories on SYS002 and to print the 
system status report. 
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r CORGZ j 



TESTRG ][ 

INITIALIZE PHASE 1, COPY IPL, AND 
FORMAT CYLINDER OF SYS002 



Chart WA 



?. OpenSYSLST, SYS0Q2. 

2. SYSRES and SYS002 to insure that 

they are not on the same physical device. 

3. Copy the IPL records 1 and 2. 

4. Format the system directory records 
1, 2, 3, and4onSYS002. 

5. Save the SYSRES allocation record 

to be used later if a new allocation is 
not specified for one or more libraries. 

6. Compute and save the starting disk 
address cylinder number for the RL 
and SS directories. They are used 
for SYS002 if reallocation is not 
specified. 

7. Copy IPL record 3. 

8. Format the balance of cylinder 
(tracks 2-9). 



READCC 



READ AND ANALYZE CONTROL 
STATEMENT 



Chart WB 



Read a control statement from SYSRES 
and analyze the operation field. 

1 . At end of file - GO TO 

2. If ALLOC -GO TO 

3. 
4. 



If 1st COPY statement - GO TO- 



If a COPY statement other than the 
first one continue in line. 
5. Any statement other than COPY or 
ALLOC is invalid. 



FRMDIR 



BUILD SYS002 SYSTEM 
DIRECTORY INFORMATION 



Chart WC 



This routine Is executed only one time. 
Processing is as follows: 

1 . The allocation record is assembled 
in a work area. If a new allocation 
for a specific library has not been 
generated, the SYSRES allocation is used. 

2. The system directory records 1, 2, 
and 3 are generated and written on 
SYS002. 

3. The system directory record number 4 
is written from the work area. 




END 

BUILD SYS0Q2 CI DIREOORY 
ENTRIES FOR $PROGRAMS 



Chart WL 



1 . If all of the CI library directory has 

been copied this routine is bypassed. ____ 

2. If the system directory records have 
not been generated on SYS002: 

a. The switch RTREND is set ON to 
return control to this routine . 

b. Control is transferred to FRMDIR 

3. The CI library directory entries for all 
$ or $$ phases are copied. 

4. Set the switch, EXITSW, on to fetch phase 2. 



f Fetch CORGZ2 J 



( CORGZ2 J 



CORGZ2 



COPY LIBRARIES 



Chart WW-WY 



The SYS002 CI library directory entries determine 
which CI library phases are copied. 
The SYS002 RL library directory entries 
determine which RL library modules are copied. 
The SYS002 SS library directory entries 
determine which SS library books are copied. 
The standard label track (1st track) 
of the label cylinder is copied. 
A fetch is issued for SMAINEOJ to 
build the transient and library 
routine directories on SYS002. 



/Fetch $MAINEOA 
y Chort 45 J 



ALOCAT 



PROCESS ALLOCATE STATEMENT 



Chart WD 



The operands of the ALLOCATE statement 
are processed left to right. 
The library ID Is c'etermined. 
The total cylinder specification and 
the directory track specification are 
converted to binary and saved in a work area. 
When the last operand has been processed 
control is transferred to READ, Chart WA, 




READ 



WRITE SYSTEM DIRECTORY RECORD 



Chart WB 



1 . The system directory record that 

has iust been generated is written on SYS002. 



Chart 46- Copy System Program (CORGZ) , Part 1 of 2 
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COPYRT 




ANALYZE COPY STATEMENT TYPE 



Chart WE 



1 . The operation field is tested and processing is 
as follows: 

a. COPY: The operand must be ALL. 

• Switches are set to indicate that active entries in 
all directories are to be copied. 

• The system directory record 1 is read from SYS002 . 

• Control is transferred to BLDDE ■ 

b. COPYS : Initialization is performed to allow the 
SS library directory to be copied. 

c. COPYR: Initialization is performed to allow the 
RL library directory to be copied. 

d. COPYC: Initialization is performed to allow the 
CI library directory to be copied. 

2. The system directory record 1 , 2, or 3 is read from 
SYS002 as specified by the initialization performed 
in item lb, Ic, or Id. 

3. Initialization is performed to scan for an operand of 
the copy statement. 



DOTCMP 



SCAN COPY STATEMENT OPERANDS 



Chart WF 



Performs a character by character scan and store operation 
The scan is stopped by a blank or comma . The detection 
of a period (also called a DOT) causes subsequent char- 
acters, other than a comma or blank, to be stored in a 
second work area. A comma, in addition to stopping the 
scan, sets an indicator signaling that more operands are 
to be scanned . 



DLIMIT 



INITIALIZE TO BUILD LIBRARY DIRECTORY chart WG 



The operands placed in the work areas by the scan opera- 
tion (DOTCMP) are analyzed. Switches are set to con- 
trol the library directory build routines (BLDDE, TSTRL, 
and TRYSS). 







o 



BLDDE 



BUILD CORE IMAGE DIRECTORY 
O N SYS002 



Chart WH 



1. 
2. 



If the library currently being processed is not 
the CI library, control is transferred to TSTRL." 
The following conditions can exist: 
COPY ALL : The entire CI library directory 
is copied and initialization is performed to 
copy the RL library directory. If the RL 
library is allocated on SYSRES, control is 
transferred to TSTRL. 



If the RL library is not allocated, control i 
transferred to TRYSS. 



b. 



COPYC ALL : The entire CI library directory 
is copied . 

COPYC PHASE : The CI library directory 
entry for the specified phase is copied. 
COPYC PROGRAM ALL : The CI library 
director/ entries for all phases of the speci- 
fied program are copied. 



TSTRL 



BUILD RL LIBRARY DIRECTORY ON 
SYS002 



Chart WJ 



1 . If the library currently being processed is not the RL 

library, control is transferred to ISSS. 
2. The following processing conditions can exist: 
a. COPY ALL : The entire RL library directory is copied 

and control is transferred to TRYSS ■ 



d. 



COPYR ALL : The entire RL library director/ is 

copied. 

COPYR MODULE : The RL library directory entry 

for the specified module is copied. 

COPYR PROGRAM ALL : The RL library directory 

entries for all modules of the specified program are 

copied. 



■0 



TRYSS 








BUILD SS LIBRARY DIRECTORY ON 
SYS002 



Chart WK 



2. 



3. 



Initialization is performed for copying the SS library 

directory. 

If the library currently being processed is not the SS 

library, control is transferred to READ 



The following processing conditions can exist: 
COPY ALL : The entire SS library directory Is copied 
and control is transferred to READ. — — — ^— — — — 



b. 



d. 



COPYS ALL : The entire SS library directory is copied 
and control is transferred to READ. ■ 



COPYS SU BUB ALL : The SS library directory entries 
for all books of the specified sub library are copied. 
COPYS SUBLIB BOOK : The SS library directory 
entry for the desired book of the specified sub library 
is copied. 







00 



SECTION 8. LIBRARIAN SERVICE PROGRAMS 



This section contains the programs that 
perform the display and/or punch functions 
required to maintain SYSRES. Books from 
the source statement library and modules 
from the relocatable library can be 
displayed and/or punched. The contents of 
any or all directories can be displayed. 

The programs that perform these 
functions are presented in this section in 
the following oi;der: 

• Directory service program 

(DSERV) - Displays the contents of the 
directories in SYSRES. All directories 
can be displayed in a single run or 
they may be displayed selectively. 

• Relocatable library service program 
(RSERV) - Displays and/or punches 
modules from the relocatable library. 

• Source statement library service 
program (SSERV) - Displays and/or 
punches books from the source statement 
library. 



DIRECTORY SERVICE PROGRAM (DSERV) , CHART 48 

DSERV is a 1- phase program fetched from 
SYSRES when a //EXEC DSERV control 
statement is read by job control. DSERV 
prints the contents of the following 
directories from SYSRES: 

• System directory 

• Transient program directory 

• Core image library directory 

• Relocatable library directory 



• Source statement library directory 



The DSERV control statements are shown 
in Figure 75. 



Function 


Element 


Control Statements Required 


Print 


Transient 
Directory 


DSPLY TD 


Core Image 
Directory 


DSPLY CD 


Relocatable 
Directory 


DSPLY RD 


Source Statement 
Directory 


DSPLY SD 


Print 


ALL Directories 


DSPLY ALL 



Figure 75. DSERV Control Statements 



Any or all of the valid operands may be 
in the same control statement and they may 
be in any sequence. The system directory 
(system status report) is printed during 
every DSERV execution. The last DSERV 
control statement is always a /* (end-of- 
f ile) . Refer to Figures 4, 6, S, and 10 
for the formats of the system directory, 
core image linrary directory, relocatable 
library directory, and source statement 
library directory, respectively. The 
entries in the transient directory have the 
same format as the core image library 
directory. Refer to Figure 76 for a sample 
of the system status report. 
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SYSTEM DIRECTORY 


CORE- 


-IMAGE 




RELOCATABLE 
.——..._—— ..ncr TMAi ————————— 


SOURCE-J 


STATEMENT 


1 1/25/66 












"""•""•""""-■'U en HAL— """""" ""■"■•-- 








DIRECTORY 
DIRECTORY 
DIRECTORY 


STARTING ADDRESS 
NEXT ENTRY 
LAST ENTRY 


C 

01 
01 
01 


H 

00 
02 
02 


R 
01 
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08 


E 
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17 


c 

U2 
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U2 
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C 
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H 

00 
00 
00 
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01 
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LIBRARY 
LIBRARY 
LIBRARY 


STARTING ADDRESS 
NEXT AVAILABLE ENTRY 
LAST AVAILABLE ENTRY 


01 
38 
Ul 


03 
09 
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01 
01 
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U2 

93 
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_ ___CTATIIC 


03 01 
01 OU 
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1U9 


01 
05 
09 


01 
11 
16 


DIRECTORY 
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LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 


BLOCKS ALLOCATED 
BLOCKS ACTIVE. 
BLOCKS DELETED 
BLOCKS AVAILABLE 


81U 
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36 

62 
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U575 

00 
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782U 

6U7U 

00 

1350 






AUTOMATIC 


CONDENSE LIMIT 


00 
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LIBRARY 
DIRECTORY 


ALLOCATED CYLINDERS 
ALLOCATED TRACKS 


Ul 
03 
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Figure 76. System Status Report 
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r^ DSERV ) 







ENTMAI 

READ AND ANALYZE 
CONTROL STATEMENTS 



Chart XA 



DSERV is fetched by the }ob control statement 
//EXEC DSERV. The only control statements 
valid to DSERV are DSPLY or /*. The 
operands of the DSPLY control statement are 
analyzed as: 

1. ALL-display all directories. 

2. CD-display core image directory. 

3. RD-*display relocatable directory. 

4. SD-display source statement directory, 

5. TD-display transient directory. 

Any or all of these operands may be in the 
same DSPLY control statement, or in more 
than one statement. The operands may be in 
any sequence. Following the DSPLY control' 
statements must be a /* control statement 
(end of file). 



SYSDIR 




NO 



GETCD 

PRINT CORE lAAAGE DIREaORY 



Chart XC 



Each active entry of the core image 
directory is printed on a line. Refer to 
DSERV printout for format. The entry that 
follows the last active entry in the 
directory contains an asterisk in the first 
byte. When this entry is detected, the 
core image directory printout is complete. 
Refer to Figure 6 for the format of the 
core image directory. 



TRYRD 



GETRD 



PRINT SYSTEM STATUS REPORT 



Chart XB 



An error message will be printed if a dis- 
play of the relocatable library or source 
statement library is requested and the 
library is not allocated in the system directory. 
The system status report is printed 
from the information contained in the system 
directory. Refer to Figure 76 for an 
example of a system status report. Refer to 
Figure 4 for the format of the system directory. 



DSERV 



GETTD 





NO 



PRINT RELOCATABLE DIRECTORY 



Chart XD 



Each active entry of the relocatable 
directory is printed on a line. Refer to 
DSERV printout for format. The entry that 
follows the last active entry in the 
directory contains an asterisk in the first 
byte. When this entry is detected, the 
relocatable directory printout is complete. 
Refer to Figure 8 for the format of the 
relocatable directory. 



TRYSD 



NO 



PRINT TRANSIENT DIRECTORY 



Chart XC 



The transient directory is composed of all 
programs in the core image directory that 
start with $$. A li<ie is printed for each 
active entry in the transient directory. 
Refer to DSERV printout for format. The 
entire transient directory area (maximum 
•of 576 entries) is scanned for active 
entries. No entries in this directory 
contain an asterisk in the first byte. 



TRYCD 




GETSD 




NO 



PRINT SOURCE STATEMENT DIRECTORY 



Chart XE 



Each active entry of the source statement 
directory is printed on a line. Refer to 
DSERV printout for format. The entry that 
follows the last active entry in the 
directory contains an asterisk in the first 
byte. When this entry is detected, the 
source statement directory printout is 
complete. Refer to Figure 10 for the 
format of the source statement directory. 



NO 



EOJ 



C 



SVC 14 

EOJ Chart 12 



3 



Chart ^8. Directory Service Program (DSERV) 



c 
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RELOCATABLE LIBRARY SERVICE PROGRAM 
(RSERV) , CHART 49 



RSERV is a one phase program fetched from 
SYSRES when a // EXEC RSERV control 
statement is read by Job Control. RSERV 
will prints punch, or print and punch 
modules from the relocatable library. All 
punch output will be ejected into stacker 
two. If SYSRDR and SYSPCH are assigned to 
the same device, a /* statement will not be 
punched. The last RSERV control statement, 
which is a /* statement, will be ejected 
into stacker two. See Figure 77 for RSERV 
control statements. 



There may be any number of RSERV control 
statements in any sequence. Module names 
specified in the control statements may be 
in any sequence. If ALL is specified, it 
must be the first operand. The last RSERV 
control statement is always a /* (end-of- 
file). 



Refer to Figure 9 for the format of the 
relocatable library. Each block in the 
relocatable library contains two logical 
records that are 160 bytes in length. 
Refer to Figure 61. All records in the 
relocatable format have the same structure, 
the only difference being in the length of 
the variable field. 



Function 


Element 


Control Statements Required 


Print 


AAodule 


DSPLY module 1 [, module 2, ..,] 


Program 


DSPLYXXX. ALL [, YYY. ALL,...] 


Library 


DSPLY ALL 


Punch 


Module 


PUNCH module 1 [^module 2,...] 


Program 


PUNCH XXX.ALL[,YYY.ALL,...] 


Library 


PUNCH ALL 


Print and punch 


Module 


DSPCH module 1 [, module 2,...] 


Program 


DSPCH xxx.allQyyy.all,...] 


Library 


DSPCH ALL 


Note: XXX \ „ . , r. 
YYY 1 Represents module prefix 



RSERV must analyze each record in the 
module as to type and convert the 160- byte 
records to smaller records by dividing up 
the information in the variable field. For 
example, one ESD record in the relocatable 
library that contains eight ESD items is 
punched into three ESD cards/ The byte 
count field in the record must be updated 
to reflect the change in length of the 
variable field. 



Refer to Figures 62, 63, and 64 for 
relocatable formats of ESD, TXT,, and RLD 
records. All other records are card images 
of the input. 



Figure 77. RSERV Control Statements 
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C RSERV J 



ESDPCH 




START ][ 

ANALYZE CONTROL STATEMENTS 



Chart YA 



The 



Control statements are read from SYSRDR, 
operation field is anal/zed as PUNCH, 
DSPLY, DSPCH. When a /* statement is read 
the punch is closed, if it was used, 
and a SVC 14 is issued. 



EXTRCT 




ANALYZE CONTROL STATEMENT 
OPERANDS 



Chart YB 



The operands of the control statement are 

analyzed as: 

e ALL- perform the requested service on fhe 

entire relocatable library. ALL must be the 

1st operand. 

• (prog name prefix). ALL- perform the 
requested service on all modules with the 
same 3 character prefix. 

• (module name), perform the requested 
service on the individual module (s) 
specified. 



RDRD1 



ESD 


PUNCH ESD REC, EXTERNAL Chart YE 
SYMBOL DICTIONARY 




Refer to Figure 62 to aid in the 
conversion of ESD records from the RL 
to punched cords. 




TXT 




TXTPCH 


PUNCH TXT REC, TEXT Chart YG 
STATEMENTS 


Refer to Figure 63 to aid in the 
conversion of TXT records from 
the RL to punched cords. 


RLD ^ 




RLDPCH 


PUNCH RLD REC, RELOCATION Chart YH 
DICTIONARY 


Refer to Figure 64 to aid in the 
conversion of RLD records from the RL 
to punched cords. 








r^ 



YES 



READ DIRECTORY BLOCK AND SCAN FOR 
MODULE NAME 



Chart YC 



RL directory blocks ore read from 
SYSRES and the entries ore scanned for 
the module name(s) to be serviced. 
If ALL is specified, all of the entries 
not deleted are serviced. Deleted 
entries have blank name fields. Refer to 
Figure 8 for the format of the RL directory. 




PRTHDR 



PRTHGS 




PRT 1 



READ BLOCKS FROM RL AND 
DETERMINE TYPE 



Chart YD 



Refer to Figure 61 for on example of a module in 
the relocatable library. If PUNCH or DSPCH is 
specified, a CATALR header is punched 
on SYSPCH. Each record from the RL is analyzed 
for an ESD, TXT, or RLD. The program branched 
to the punching routine for these records. Other 
records are punched without special handling. 
If DSPLY or DSPCH Is specified, a module header 
is printed on SYSLST. Each record from the RL 
is analyzed for an ESD, TXT, RLD, REP, SYM, or 
END. The program branches to the printing routine 
for these records. Link Editor control statements 
are printed without special handling. 



T 




NO 



ESDPRT 



ESD 



PRINT ESD REC, EXTERNAL 
SYMBOL DICTIONARY 



Chart YF 



Refer to Figure 62 for the fomat of 
ESD records in the relocotob/e formot. 



TXT, 
SYM 



TXTPRT SYMPRT 



PRINT TXT RCD, TEXT STATEMENTS 
AND SYM RCD, SYMBOLIC STATEMENTS 



Chart YG 



Refer to Figure 63 for the format of TXT records in the 
relocatable format. Symbolic statements (outotest output) 
ore printed in the some manner as TXT statements. 



RLDPRT 



RLD 



PRINT RLD RCD, RELOCATION 
DICTIONARY 



Chart YJ 



Refer to Figure 64 for the format of 
RLD records in the relocatable format. 



REPPRT 



REP 



PRINT REP RCD, REPLACE 
.STATEMENT 



Chart YJ 



Replace statements ore printed in 
cord imdge. 



CNVORG 



END 



PRINT END RCD, END 
STATEMENT 



Chart YJ 



End statement is printed in card 
image. The end statement is the lost 
card in a module and must be present. 




Chart 49. Relocatable Library Service Program (RSERV) 
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SOURCE STATEMENT LIBRARY SERVICE PROGRAM 
(SSERV) , CHART 50 



SSERV displays books from the source 
statement library on SYSLST^ or SYSPCH, or 
both. All punch output will be ejected 
into stacker two. If SYSRDR and SYSPCH are 
assigned to the same device, a /* statement 
will not be punched. The last SSERV 
control statement, which is a /* statement, 
will be ejected into stacker two. SSERV is 
a 1-phase program fetched when a //EXEC 
SSERV card is read by job control. Chart 
50 shows the program flow of SSERV. 

The control statements requesting 
services from the source statement library 
are read from SYSRDR. They may request the 
displaying of a book or an entire 
sublibrary. If the operand on the control 
statement is [,A. ALL] the entire sub- 
library is displayed. If the operand is 
[A. Bookname] , the book called for is 
displayed. The last operand on the control 



statement is [CMPRSD] , if the punched 
output is to be in compressed format. 

The first time a book is to be serviced, 
a B-transient $$BOPNLB is called to read 
the system directory and to find the 
location of the source statement library 
directory. $$BOPNLB is a B-transient 
because it is also used by the assembler 
and the COBOL compiler to locate the source 
statement library. (For additional 
information on this B-transient, refer to 
the DOS LIOCS PLM. ) 

Because the control statement may have 
multiple operands, each time a book is 
serviced, the control statement is checked 
to see if it contains another operand. If 
so, the operand is brought in and serviced. 
When the last operand on a control 
statement is serviced, the next control 
statement is read from SYSRDR. When an EOF 
(/*) condition is encountered on SYSRDR, 
the SSERV program is terminated and job 
control is fetched. 
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r SSERV ^j 



I© 



SSERV CONTROL CARD ANALYSIS 



Chort ZA 



SSERV is fetched when job confrot reads o // EXEC command. 

The read confroistafemenf subroutine Chart ZJ reads the 

control statements on SYSRDR. 

Switches are set for the type of output desired: 
PCHEM ON, PRTMSK OFF = Display only 
PRTMSK ON, PCHEM OFF = Punch only 
PCHEM OFF, PRTMSK OFF = Print and Punch 

All the operands on the control statement are brought in. If 

the last operand is CMPRSD, the iswltch CPRSW is turned off 

for compressed output . 




GETBKl 



SSERV CONTROL STATEMENT 
OPERAND ANALYSIS 



Chart ZB 



The operands on the control statement are evaluated. If 

the sub- library qualifier is a (period) and the operand is 

(ALL), the switch HIBKM is turned on and (ALLMSK) is 

turned off to display the entire sub-library . The find 

book subroutine (Chart ZG) Is used to process each new book in the 

source statement llbrory. On the initial entry into this 

subroutine, the $$BOPNLB B-transient routine (Chart ZH) is 

called to read the system directory, the location of the 

source statement library directory is fbund in the system 

directory. This location is passed to SSERV so that the 

location of the source staterrtent library is available to 

SSERV. The 16K assembler and COBOL compiler also use 

this transient to firld the location of the source statement library. 



YES 



MVBKN 




FILL OUTPUT BUFFERS 



Chart ZC 



The book is found in the sub- library. The header control subroutine 
(Chart ZF) is used td punch the CATALS and BKEND headers if 
punch output is requested and/or to print the BKEND header if print 
output is requested. 

—►The current book becomes the book to be serviced. The ex- 
panded cord image is built in the print buffer if display is requestedi 
or if punch is requested in expanded form, or if both are requested. 
If compressed output, each time the punch buffer is filled, CPRCH 
is called to punch the card. If not compressed output, EXPOUT is 
called to perform the required output in expanded fonm. The I/O 
input routine Is used to fill the input block every time it is empty. 



EXPOUT 
SSERV OUPUT 



Chart ZE 



Tests are made to determine the type of 
output desired by the user. Logical IOCS 
PUT macro is used to perform the desired 
I/O. The return is to CLRCO (Chart ZC) to 
get initialize for the next output or to 
I/O input control (Chart ZD) if the output 
was for a book end statement . 




EOBKT 



I/O INPUT CONTROL 



Chart ZD 



This routine fills the input block by 
reading a block from the book in the 
source statement library. When the end of 
book is encountered, any uncompleted output 
is finished. If there is compressed punch 
output, a BKEND card is punched. A BKEND 
card is printed if there is printed output. If there 
are more operands on the present control statement, 
the return is to TSTQUA to start processing 
the next operand. If this was the last 
operand on the control statement, the return 
is to CALLCS to read in another control statement. 




EXPOUT JL 



output/^ '"P"* °'' ^V INPUT 
Output 

Needed^ 



l^EOBKT 





Chart 50. Source Statement Library Service Program (SSERV) 



I 
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APPENDIX A. LABEL LIST 



SYSTEM CONTROL PROGRAMS (SECTION 4) 



Initial Program Load ($$A$IPL1^ $$A$IPLA^ 
and $$A$IPL2)^ Charts AA-AH 

Label Chart 

ADCLOP . AC 

BCHEST AF 

BEGIPL AB 

Starting label for the $$A$IPL2 program, 
BLDPUB AF 

CCWl AA 

Used to read in $$A$IPLA program. 
CCv^2 AA 

Used to seek the $$A$IPL2 program. 
CCW3 AA 

Used to search for the $$A$IPL2 program. 
CCi^4 AA 

A transfer in channel CCW used to see if 

the record being searched has been 

found. 
CCW5 AA 

Used to read in the $$A$IPL2 program. 
CHCLOP AF 

No devices on the channel yet. The FOCL 

for this channel must be built. 

CHCNT AF 

CHFIN AF 

CHGADR AB 

CHSRT AF 

CHURTN AH 

CLDLP2 AF 

CLDRTN AF 

CLEAR AB 

Label of the clear routine used to clear 

storage above the $$A$IPL2 program. 
CONTIN AB 

Return address after program check is 

forced at end of storage while clearing 

storage. 

DECRL AG 

DECRR AG 

DSKADR AH 

Subroutine to update disk addresses. 

ENFND AF 

ENDRD AC 

ENTER AD 

Label of the address that the program 
branches to after an I/O interrupt while 
trying to assign a communication device- 
A 1052 or unassigned card reader could 
cause this interrupt. 

ERR AB 

An error halt when IPL cannot continue. 

EXITl AH 

EXTRTN . . . • AD 

Label of the address that the program 
returns to if SYSRDR is assigned and the 



operator indicates he has add and/or 
delete cards in SYSRDR. The return is 
via an external interrupt. 

FOUND AB 

GO AD 

HALT AB 

Masks off interrupts and enters wait 
state on an error encountered during 
IPL. 
IJBIP210 AB 

IPLPRG 

Listing only : Starting label for 
execution of the $$A$IPL1 program. 

LASTRD AC 

LOGWRK AE 

LOKCID AB 

LOOKUP AB 

Searches the directories for the 

supervisor entry. 

LUBLOP AE 

LUBMVC AE 

LUBRTN AE 

LUBSET AD 

Branches to subroutine to assign a 

device. 

LUUEND AH 

LUUPLP AH 

LUURTN • . . . AH 

MAXKEY 

Listing only : Contains a value of 255. 
It is used to compare with the FOCL to 
see if any devices are on the channel. 

MVCEND , AC 

NOMVP AF 

ORGEST AE 

PSWGO AD 

PUBMKE . . - . . AE 

RDBLOK AC 

RDDIR2 AB 

RDRIPT AD 

READER AB 

REGNO AH 

RESIDL . . , AG 

RESIDR AG 

RESWRK . . , AE 

RIGHT AG 

RTRAK AB 

SCHSCH AF 

SCHTST AF 

SETBLK AC 

Initializes to read the supervisor into 

storage. 
SETKEY . . ,. , AD 
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Sets protection key for each 2K block of 
storage. 

SETLOG AD 

SETPROT AD 

Initializes to set protection keys. 

SHASTA AF 

SKADRl 

Listing only : Label of the address in 
which the disk address for the $$A$IPL2 
program is stored. 

SPRSW AF 

SW AB 

This switch is initially off (NOP) . It 
is used after the transient directory 
has been searched and the supervisor 
nucleus has been found to branch around 
the instructions used in searching for 
the supeirvisor nucleus. 

SWl AB 

NOP/BR switch that is turned on (BR) for 
reading the last block of the supeorvisor 
into main storage. 

SW2 AB 

NOP/BR switch that is turned on (BR) 
when first block of the supervisor is 
read. 

SYSMVC AG 

UPDAT AB 

WAIT AD 

The system is put into the wait state 
and the operator has an option of 
assigning the communication device. 



Initial Program Load ($IPLRT2) , Charts 
A J- AY 



Label 



Chart 



ABNCHK AP 

ADDRTN AN 

Starting address of the add a device 
routine. 

ADREST AQ 

Subroutine used to find the date fields 
in the SET control statement. 

ALCERR AY 

ALCRTN AY 

ALCRTl AY 

ALCRT2 AY 

ASNEND ,. . AX 

ASNLPl AX 

ASNLP2 AX 

ASNRTN AX 

Start of subroutine that resets the job 
control flags in the PUB with a logical 
OR to make certain they are set 
correctly. 

ASNSTP AX 

BCHEST AU 

BEGIN AJ 



Starting label for the $IPLRT2 program, 
BLDPUB AU 

Subroutine that, given the channel and 

desired position, inserts a PUB entry in 

the PUB table, 

BSTOFF «,., AR 

BSTOK AR 

CDSCH AK 

CHCLOP ....,•... AU 

CHCNT AU 

CHEXT AS 

CHFIN AU 

CHKCOM AL 

CHSLOP AS 

CHUPD AS 

CHURTN . AS 

Subroutine used to update the FOCL 
pointers after a PUB has been added or 
deleted. 

COMCHK AT 

Subroutine that checks a device against 
a list of allowable devices. Error 
return if no entry found, 

COMDOK AL 

COMMA 

Listing only : Label in the TRT 
delimiter table. It is a valid 
end-of-field character. When checking 
for a blank end-of-field character, it 
is changed to an invalid character. 

COMNFD ,. . . , AL 

CYLDP AL 

DATERT . . . , AQ 

Starting address of the date subroutine. 

DBLADD AN 

DBLSCN AN 

DDLUB .......... AS 

DECLP AT 

DECRTN . AT 

Subroutine that converts a field from 

hexadecimal to binary. 

DELEXT AP 

DELIM 

Listing only : Table used with a TRT 

instruction. It contains function 

values for finding the end of fields (OP 

code or operand) . 

DELLOP AP 

DELRTN ........ AP 

Starting address of the delete a PUB 

routine. 

DSDPl .., AV 

DSDP2 . . . . AV 

DSDP3 AV 

DSDRTN AV 

ENADR AN 

ENFND AU 

FDSRTN AR 

Subroutine used to locate the next 

control statement operand in the input 

area. 
FNDTYP AR 

Analyzes the device type specified in an 
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ADD Statement to obtain table 
information, 

HEXRTN AT 

Subroutine that converts a field from 
hexadecimal to binary, 

ILLCD AP 

lOHLD AW 

Starting address of subroutine to issue 
SVC for 1052 operations, 

I0HLD2 AW 

lOSTOP AP 

IPLEND AM 

KEYCHK AN 

LBLPED AS 

LOGRED AJ 

LOGSTR AJ 

LUBHLP AL 

LUBLPL AS 

LUDRTN AS 

LUURTN AS 

When given the PUB number of an added or 
deleted PUB entry, this subroutine 
modifies PUB pointers in the LUB table 
to reflect the added or deleted PUB, 

MLUUR AS 

MPXCHK AW 

MPXHLT AW 

MPXHLl AW 

MPXHL2 AW 

MPXLOP AW 

MPXMOV AW 

MPXRTN AW 

Subroutine used to reorder the LUBs and 

PUBS for multiplex devices, 
MSGRTN AW 

Starting address of the print message 

subroutine. 

NLPYR AQ 

NOMTEB AM 

NONBLK 

Listing only : Table used with TRT 
instruction to find first character of 
an OP code. 

NUMCVT AN 

OFFINT AM 

Starting label of the move I/O tables to 
low storage function. 

OPNEND AM 

OPNLOP AM 

OPNRTN AM 

Subroutine that unassigns any system I/O 
units (SYSRDR, SYSIPT, SYSPCH) that have 
a standard (generated) assignment to a 
tape, disk, or data cell file. 

OPNUSN AM 

OPRTN AK 

Starting label for the evaluate control 
statement routine, 

PBFEND AV 

PBFFIN AL 

PBFLOP . , AV 

PBFRTN AV 



Subroutine, given an IPL low storage PUB 
table entry, finds an equal system high 
storage PUB table entry, 

PUBCLC AJ 

PUBDEQ AP 

PUBEXD ,, AN 

PUBMKE AN 

RDRTST AL 

READGO AJ 

Label of the branch and link instruction 

to the read routine, 
READRT ,,,.„,,, AJ 

Starting address of the read card 

routine, 

REREAD AJ 

RESNFD AL 

RSTCHQ AW 

RSTLUB AS 

SCHLOP AR 

SCHSCH AU 

SCHSTA AU 

Switch used to branch around the SCHTST 

instruction. Initially set in NOP 

switch position, 
SCHTST AU 

Tests for next FOOL entry to see if it 

is in use, 

SCNEND AP 

SCNLOP AP 

SETFCL AS 

SETRTN AK 

Starting label of the set routine, 

SKPINC AQ 

SKPKEY AN 

SPRSW ,,,,,,,,, AU 
SSKLOP AY 

TAPE AR 

TEBCLC , , , , AJ 

TEBDEQ , AP 

TEBEST AR 

TEBEXT AR 

TEBLOP AP 

TIMCHK AK 

TIMERT ,,,,,„.,. AQ 

Starting address of the time subroutine, 

TRTBRC AV 

Subroutine used to test for the 
delimiter or end character of a field. 

UPLUB , , , AS 

UNSRES AL 

Starting address for the assign SYSRES 
and SYSLOG for system operation routine, 

YLPYR AQ 

Job Control ($JOBCTLA), Charts BA-BL 



Label 



Chart 



$ JOBCTLA BA 

Phase name of the job control root 
phase. The first executable instruction 
in this phase is at the label JOBCTL, 
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ACTRSP BB 

ARGUMT 

Listing only ; A 7 -byte field in the 
Branch table which contains the current 
job control statement operation field 
during the control statement table 
lookup. 

ATNCUU BL 

BASRGl 

Listing only ; Base register for job 
control root phase, $J0BCTLA. See 
BASVCT , 

BASRG2 

Listing only ; Base register for the 
$JOBCTLD, $JOBCTLG, $JOBCTLJ phases of 
job control. See OVRVCT . 

BASRG3 

Listing only ; Initialized by $JOBCTLA 
root phase, to equal BASRG2 + 4096. 
Serves as base register for $J0BCTLD, 
$J0BCTLG, $JOBCTLJ . 

BASRG4 

Listing only ; Contains the 
communication region address. 

BASVCT 

Listing only ; $J0BCTLA origin. It is 
the address contained in BASRGl. This 
address contains a branch to the common 
control statement read routine 
(CONTROL) . Any phase desiring to return 
to CONTROL, does so by branching on 
BASRGl . 

BTLOOP BC 

BUFFER 

Listing only ; 120 -byte I/O area that 
allows control statements to be read 
into the main storage area previously 
occupied by the job control 
initialization routine, JOBCTL. 

CHKASG BK 

Root phase subroutine to check the 
assignment of a logical unit. If the 
specified unit is unassigned the 
condition code 1 is set and control is 
returned to the calling sequence. If 
the unit is assigned, the PUB pointer is 
supplied to the calling sequence in 
WRKRG3 . 

CHKASG3 BK 

Equated to CHKASG+4. This is the entry 
into the CHKASG subroutine that is used 
when the LUB table address of the unit 
to be checked has already been loaded in 
WRKRG3. 

CHKCNL BL 

CHKCNT BE 

Subroutine used to check the area 
available for output records in the disk 
area allocated for SYSPCH or SYSLST. 
This subroutine is a part of $J0BCTLA 
and is overlaid when any other phase (D, 
G, or J) is loaded. 

CHKJIB BD 

CHKLST BD 

CHKOVR B J 

COMPJIG 



Listing only ; Abbreviation used for the 
communication region. Text reference to 
a field in the communication region is 
written as COMREG+X. Where X represents 
the decimal displacement of the field in 
the communication region • 

CONTROL BB 

CTRLSW BD 

DCUXTN BD 

DFB 

Listing only ; Data file block (Figure 
78). 



DFB OS 


cu — 












DFBCBL DS 
DFBCBA DS 


CL2 Symbolic unit oddr. 
CU CCW oddms 


-ca 






DS 
DFBCWA DS 
OFBCCU DS 


CU ASACCWoddrwt 
CL2 Chonnol ond unit 




ru/R 

-<TAPE 
lOASD 




DFBDVC DS 








DFBFLG DS 


CU Flog byto (Sm Noto) 






DFBCO/V DS 
DS 






\SD*** 




Not MM tor Ui 


CLB S«.k 


bs 


CIB S«irch 




DS 


CLB TIC 




DS 


CLB Writ* (oount, koy, ond doto) (cholned data) 




DS 


CL8 Writ* (doto) 


- DASD Only 


DS 


C18 S«irch 




DS 


CL8 TIC 




DS 


CLB Vorify (count flold) (cbolnMl doto) 




DS 
NOTE: 


CLB Vortly <datQ) 






DFBFLG - flog byf«bttO:1«OfMn bit 4:1 >ASA liiu|iport«J 

on this d«v. 
bit 1 :1 « Unit Exemption 

precMsIno bit 5 






bit 2 :l > Not U/R dov. bit 6,:1 « Attention rtn iw. 






bIt3t1-Ov«rlop bIt7:1-CCBhotboM 





Figure 78. DFB Format 



DFBCBA 

Listing only ; See DFB. 
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See 


DFB 


See 


DFB 


See 


DFB 


See 


DFB 


See 


DFB 


BH 





DFBCBL 

Listing only ; 

DFBCCW 

Listing only ; 

DFBCUU 

Listing only ; 

DFBFLG 

Listing only ; 

DFBDVC 

Listing only ; 

DSKIND 

DSKINT BD 

Subroutine to perforin Job Control 
initialization for DASD. If 
SYSLST/SYSPCH are assigned to disk the 
available record count is checked. All 
extent JIBs currently attached to 
programmer units are unassigned and 
placed on the free list. This 
subroutine is a part of $JOBCTLA and is 
overlaid when any other phase (D, G, or 
J) is loaded. 

EOFPRC B J 

ERRRTN BL 

Root phase subroutine that displays 
invalid control statements and 
associated error messages on SYSLOG and 
SYSLST. Register POINTl contains the 
address of a move instruction that is 
executed to move the desired error 
message to the output area, BUFFER. 

EXCECP B J 

EXCPRG BH 

Root phase subroutine to perform I/O on 
a specified logical unit. If the file 
has not been opened this routine 
initializes its DFB including the CCB 
before executing the I/O. 

EXPEXT BJ 

FINOPN BH 

IGNORE BG 

IJSYSLN 

Listing only ; File name specified in 
the SYSLNKDTF. 

ISSUIO BJ 

JBCSWO 

Listing only ; Displacement 56 in the 
communication region (COMREG + 56) . See 
Figure 15. 

JBCSWl 

Listing only ; Displacement 57 in the 
communication region (COMREG + 57) . See 
Figure 15. 

JBCSW2 

Listing only ; Displacement 58 in the 
communication region (COMREG + 58) . See 
Figure 15. 

JBCSW3 

Listing only ; Displacement 59 in the 
communication region (COMREG + 59) . See 
Figure 15. 

JBCSW4 

Listing only ; 

Bit 0; = Job control statement 
started with a // 
1 = Job control statement 



started without a // 
Bit 1; = Statement is to be logged on 
SYSLST in case of error. 
1 = Statement is not to be 

logged on SYSLST in case of 
an error. 
Bit 2 ; = Statement is to be logged on 
SYSLOG in case of error. 
1 = Statement is not to be 

logged on SYSLOG in case of 
error. 
Bit 3; = A label block is in the 
output area ready to be 
written on the SYSRES label 
cylinder. 
1 = No label block present. 
*Bit 4; 1 = Only a VOL statement may 

follow. 
♦Bit 5; 1 = Only an EXTENT or VOL 

statement may follow. 
Bit 6; 1 = Only an EXTENT statement may 

follow. 
Bit 7; 1 = Only a DLAB or TPLAB 
statement may follow. 
♦Bits 4, 5 are also used by the RSTRT 
routine to insure that label statements 
have been processed. 



JOBCTL BA 

Label of first executable instruction of 
Job Control. This initialization 
routine is overlaid by control 
statements read into the I/O area 
labeled BUFFER. 

LINCNT 

Listing only ; Maximum line count for 
SYSLST. Maintained in COMREG + 78. 

LNKINT BH 

LOGCHK BG 

Root phase subroutine used to set 
switches in JBCSWO (COMREG + 56) bits 6 
and 7 to indicate SYSLOG device type and 
assignment. 
Bit 6; = 1052 

1 = line printer 
Bit 7; = SYSLOG ^ SYSLST 
1 = SYSLOG = SYSLST 

LOGIN BG 

LOGOUT BE 

Root phase subroutine used to output a 
control statement or a message on 
SYSLOG. 

LOGPRT BG 

LSTOUT BE 

Root phase subroutine used to output a 
control statement or a message on 
SYSLST. 

MSGOUT BE 

Root phase entry into the LOGOUT 
subroutine. Sets switches to allow 
output on both SYSLST and SYSLOG. 

MTNCNT ... BK 

Root phase subroutine to set the system 
mask to X'FF^ (allow all interrupts) and 
to seize or release the system (SVC 22). 
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NDSCAN BF 

NODSYS BD 

NOEERR BL 

NOEERT BL 

NOTDKS BJ 

NTINJB BL 

NVSERR BL 

NXTJIB BD 

NXTLUB BD 

OERRTN BL 

Root phase subroutine that displays a 
specified message on SYSLOG. Register 
POINTl contains the address of a move 
instruction that is executed to move the 
desired message to the output area, 
BUFFER. 

OPNUMH 

Listing only ; A 1-byte field which is 
the data byte in a LOAD instruction. 
This byte is used to maintain a 
parameter count by the control statement 
processing routines. It is reset to 
zero following each successful control 
statement read operation. 

OVRLPl BJ 

OVRVCT 

Listing only ; Beginning address of the 
overlay area where $JOBCTLD» $JOBCTLG, 
and $JOBCTLJ are loaded. This address 
is within the $JOBCTLA root phase. 
$JOBCTLA initializes the base register, 
BASRG2, with this address each time it 
is loaded. 

RDRIN BG 

RDSTMT BG 

Root phase subroutine used to read a 
statement from SYSRDR or SYSLOG. The 
job control switch, JBCSWO CCOMREG +56) 
bit 0, is tested to determine if SYSRDR 
or SYSLOG is to be used. If SYSLOG is 
specified but it is not a 1052, the 
switch is changed to indicate SYSRDR and 
the subroutine is reentered via the 
control routine. 

RLINDT BG 

RLNCNT 

Listing only ; Save area for SYSLST 
current line count. 

RNAERR BL 

SCANRl BF 

Root phase subroutine used to scan a 
control statement and make a parameter 
available for processing. 

• A comma, blank, or equal sign ends 
the scan. 

• Register POINTl contains the address 
of the 1st character of the 
parameter. 

• Register P0INT2 contains the number 
of characters remaining to be 
scanned. 

• Register POINTS contains a count of 
the number of characters in the 
parameter. This character count is 1 
less than the actual character count 



and is used to control the character 
count in move and compare 
instructions . 

• Between entries into the subroutine, 
registers POINTl and P0INT2 are saved 
in an area labeled TMPARl. 

• The entry SCANRl is used when it is 
desired to scan for the operation 
field. 

• The entry SCANR2 scans for prime 
operands . 

• The entry SCANR3 is used to scan for 
the parameter of a prime operand. 
Example ; 



SET RCLST = 2000, LINCNT = 99,, 



1 indicates the operation field 

2 indicates the prime operands 

3 indicates the parameters of the 
prime operands. 

SCANR2 BF 

Entry into the SCANRl subroutine that is 
used to make a prime operand available 
for processing. See SCANRl. 

SCANR3 . BF 

Entry into the SCANRl subroutine that is 
used to make a parameter available for 
processing. See SCT^Rl. 

SCANRLl BF 

SCANRL2 BF 

SETWRT BJ 

SPCEXC . BJ 

SUPLOG . BC 

TAPINT BH 

TBLADR 

Listing only ; Label of the Phase- Vector 
Table contained in the root phase 
($JOBCTLA). This table is used to 
determine the correct phase and 
processing routine required to process a 
given control statement. 

The operation field of the control 
statement is compared to each entry in 
the table until an equal is found. The 
equal entry identifies the correct phase 
and the displacement within the phase of 
the branch instruction that directs the 
program to the correct processing 
routine. The entry also contains a one 
byte condition switch bank used to 
control processing for format 
verification, logging conventions, and 
cancel procedures for the statement. 
Figure 79 shows the format of an entry 
in the Phase-Vector Table. 
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Byte 



6 


7 


8 


9 


Operation 
Field 


Condition 
Switches 


Branch 
Vector 
Displacement 


Phase 

Identification 

Letter 



Figure 79. Phase-Vector Table Entry Format 



Operation Field ; EBCDIC 

representation of the operation 
field. 
Condition Switches ; 
Bit - reserved. 

1 - statement is to be processed 
even though a cancel condition 
exists . 
2, 3 - Both on; suppress logging. 
2 off^ 3 on; unconditional 
SYS LOG logging and 
conditional SYSLST logging. 
Both off; conditional logging 
on SYSLOG and SYSLST. 
^ - statement may start with //. 

5 - statement may start without //. 

6 - statement may start in column 1. 

7 - statement may start in other 

than column 1. 

Branch Vector 

Displacement ; Displacement within the 

phase that is added to the phase origin 

address to develop the address of a 

branch instruction which transfers 

control to the correct processing 

routine. 

Phase Identification Letter ; Contains 
the EBCDIC character A, D, G^ or J and 
identifies the job control phase 
containing the processing routine. 

Example of the JOB control statement entry ; 
DC CL7'J0B' 
DC X'7A' 
DC AL1(12) 
DC C'G' 

1. The JOB statement is to be processed 
even if a cancel is being executed. 

2. Logging on both SYSLOG and SYSLST is 
suppressed. 

3. The statement may not start without 
// and may not start in other than 
column one. 

U. The branch-vector table entry is 
located at a displacement of 12 
bytes from the beginning of the 
phase with suffix 'G' ($JOBCTLG) . 

TMPARl BA 

Initially a part of the initialization 
routine. It is overlaid after 



initialization is complete and becomes a 
save area in which registers POINTl and 
P0INT2 are saved between control 
statement scan operations. 
TSTYPE BC 

UNCLOG BC 

ZRMVDN BE 

ZRiMVLP BE 

Job Control ($JOBCTLD), Charts BM-CY 
ALTASW 

Listing only ; 

Bank 1, bit 1; if on, specifies ALT 

assignment. 

• Set ON; ASSGN statement processor 
(Chart CB) 

• Set OFF; INITL subroutine (Chart CR) 

• Controls processing in the ASSGN 
processor (Chart CB) 

ASSGN BY 

Initial entry into the ASSGN statement 
processor, scan and check 1st and 2nd 
operands . 

ASSGNB3 CA 

Initial entry into the verify and store 
routine for UA or IGN assignments. 

ASSGNB4 CB 

Entry into the scan routine, from the 
cross-assignment verification routine, 
to process the optional operands X'SS', 
ALT, or TEMP. 

ASSGNB5 . , CC 

Perform verification of a normal 
assignment (temporary or standard) . 

ASSGNB6 CD 

Make a normal standard assignment. 

ASSGNB6A CC 

ASSGNB6B CC 

ASSGNB6C CC 

ASSGNB6D CC 

ASSGNB7 ...•-.. CG 

Complete assignment and open files if 
assignment is for SYSRDR, SYSIPT, 
SYSPCH, or SYSLST. 

ASSGNB8 CF 

Make alternate assignment. 

ASSGNNT ....... BY 

ASSGNTS BY 

ASSGNO BY 

ASSGNIO .. . BZ 

ASSGNlOl BZ 

ASSGNll BZ 

ASSGN12 BZ 

ASSGN13 CA 

ASSGN14 ., CB 

ASSGN15 CB 

ASSGN16 , CB 

ASSGN17 CB 

ASSGN18 ... ... CB 

ASSGN19 *CB 

ASSGN19A ...... CB 

ASSGN20 ...... CB 

ASSGN21 CC 

ASSGN22 CE 

Make normal temporary assignment. 

ASSGN23 CD 
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ASSGN23A CD 

ASSGN23B CD 

ASSGN23C CD 

ASSGN23D CD 

ASSGN2a CD 

ASSGN25 CD 

ASSGN26 CE 

ASSGN27 CE 

ASSGN28 CE 

ASSGN29 CG 

ASSGN3 CY 

ASSGN30 CG 

ASSGN31 CG 

ASSGN32 CG 

ASSGN33 CG 

ASSGN34 CF 

ASSGN35 CF 

ASSGN36 CF 

ASSGN37 CF 

ASSGN4 BY 

ASSGN40 CG 

ASSGN402 CB 

Entry into the scan routine^ from the UA 

or IGN assignment routine, to process 

the optional operand ^ TEI4P, 

ASSGNa03 CB 

ASSGNa04 CB 

ASSGN41 CH 

ASSGN42 CH 

ASSGN43 CY 

ASSGN5 BY 

ASSGN6 BZ 

Initial entry into the cross-assignment 

verification routine, 

ASSGN7 BZ 

ASSGN8 BZ 

ASSGN9 BZ 

ASSGN901 CF 

BANKl 

Listing only ; 2-byte switch bank. 
Reset to zeros in the INITL subroutine. 

Byte 0, bit see CLOSESW 

1 see ALTASW 

2 see STDFDSW 

3 see RETSW 

4 see EOLSW 

5 see PROGSW 

6 see LIOSW 

7 see RESETSW 



Byte 1, 
1 
2 
3 
4 
5 
6 
7 



bit see DDSW 
see TRANSW 
not used 
not used 
not used 
see UNSW 
see TMPSW 
see MODSW 



CHKDIB CC 

CHKOPN CN 

Subroutine: Sets the open indicator off 
in the DFB if the CUU of the DFB does 
not equal the CUU of the assignment, 

CHKOPNl CN 

CHK0PN2 CN 

CHKRNG CR 



Subroutine: Checks the range of each 
character in a parameter. Upon entry: 

• Register POINTl contains the address 
of the first byte of the parameter. 

• Register P0INT3 contains the number 
of characters to be checked minus 1. 

The compare immediate instruction, 
RNGTOP, is modified by the calling 
sequence to compare for the maximum 
character (numeric = 9, hex = F) . 

CLOSE . . . , BN 

Initial entry point into the CLOSE 
statement processor. 

CLOSED .... BN 

CLOSESW 

Listing only ; 

BANKl, bit 0; If on specifies that a 

close is in process. 

• Set ON: CLOSE statement processor 
(Chart CR) 

o Set OFF: INITL subroutine (Chart CR) 
and CLOSEl subroutine (Chart CM) 

• Controls processing in: 

1. CLOSEl subroutine (Chart CM) 

2. ASSGN statement processor (Charts 
CC, CE) 

CLOSEl . ... CM 

Entry point to the subroutine that 
closes tape files. 

CLOSEIO CL 

CLOSEll CL 

CL0SE12 ...... CL 

CL0SE2 BN 

CL0SE3 , BN 

CL0SE7 BN 

CLOSES CL 

Entry to subroutine to close 
SYSIN/SYSOUT files (SYSRDR, IPT, PCH, or 
LST on SYSRES) . The DIB is updated and 
a file mark is written if required. 

CL0SE9 CL 

CNIOAG CY 

DDSW 

Listing only ; 

BANKl+1, bit 0; If on, specifies DVCDN 

in progress. 

• Set ON: DVCDW statement processor 
(Chart BU) 

• Set OFF: INITL subroutine (Chart CR) 

• Controls exit from the RESET 
statement processor (Chart CK) . 

DOWN BT 

Routine within the LISTIO statement 

processor used to process the operand 

DOWN. 
DVCDN BU 

Initial entry into the DVCDN statement 

processor. 

DVCDNL BU 

DVCDNS BU 

DVCDNl ....... CP 

DVCDNIO BW 

DVCDNll . .. BW 

DVCDN12 ...... BV 
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DVCDN13 

DVCDN14 

DVCDN15 

DVCDN2 

DVCDN3 

Subroutine 



BV 

BU 
BW 
BU 
CP 



EXCPR0G3 
EXCPR0G4 



CT 
CT 



Computes the number of 
classes in the LUB table. Batch only 
equals 2, MPS equals 4. v^RKRGl contains 
the value 2 or 4 when control is 
returned to the calling sequence. 



DVCDN4 
DVCDN5 
DVCDN7 
DVCDN8 
DVCDN9 
DVCUP 



BU 
BU 
BV 

BW 
BV 
BX 



Initial entry into the DVCUP statement 
processor. 

EOLSW 

Listing only ; 

BANKl^ bit U: If on, specifies that the 

end of a class in the LUB table has been 

reached. 

• Set ON: SCANLUB subroutine (Chart 
CN) 

• Set OFF: INITL subroutine (Chart CR) 
and SCANLUB subroutine (Chart CN) 

• Controls processing in: 

1. ASSGN statement processor (Chart 
BZ) 

2. DVCDN Statement processor (Chart 
BU) 

3. LISTIO statement processor (Chart 
BR, BQ) 

ERRRTN CY 

Entry into the common error routine. 
Releases the B-transient area if the 
switch, TRANSW is on ($$BLISTIO has been 
loaded) . Control is transferred to the 
common error routine ERRRTN (Chart BL) 
in the root phase. 

ERRRTNl CY 

ERRRTN2 CY 

EXCP CT 

Subroutine: performs I/O 

• CCW address is supplied in register 
0. 

• Symbolic unit address (class and 
order) is supplied in register 1. 

EXCPROG CT 

Subroutine: Used to perform I/O on tape 
when user tape density is to be used. 

• The symbolic unit address (class and 
order) is supplied in register 
POINTl. 

• The PUB address is supplied in 
register P0INT2. 

EXCPROGl CT 

Entry point to the EXCPROG subroutine 
when IBM standard tape density is to be 
used. 

• The symbolic unit address (class and 
order) is supplied in register 
POINTl. 

• The PUB address is supplied in 
register P0INT2. 

EXCPR0G2 CT 



FLOC 

Listing only : Label of a 2- byte 
location used to hold the "address of the 
first LUB of a class. Loaded by the 
GETLAN subroutine. 

FNIOAG CY 

GETJIB , CU 

Subroutine: Attaches a JIB to a LUB. 

GETJIBl CU 

GETJIB2 ...... CU 

GETLAN CR 

Subroutine: Determines the number of 
logical units in a class and the address 
of the first LUB of a class. The number 
of units in a class is returned in 
WRKRG3 and the locations NOC and SNICL. 
The address of the first LUB of a class 
is returned in WRKRG2 and the locations 
FLOC and SLADD. 

GETLAN2 CR 

HEXCON ...,.,... CM 

Subroutine: Converts EBCDIC 'CUU' to 
packed binary and makes result available 
in WRKRG3. 

ILUS CY 

INDVTP CY 

INITL CR 

Subroutine: Performs initialization for 
all statement processors in $JOBCTLD 
phase. 

IVDS CY 

JIBCHN 

Listing only : Label of a 2- byte 
location used as a 2-byte work area for 
LUBs and JIBs. 

LIOCUU BS 

Routine within the LISTIO statement 

processor used to process the operand 

CUU. 

LIOEOJ BP 

LIOEOJl BP 

LIOL BQ 

Routine within the LISTIO statement 

processor used to process the operands, 

SYS, PROG, Fl, F2, or ALL. 

LI0L2 BQ 

LIOLL201 BQ 

LI0LL3 BQ 

LIOLl . , BQ 

LIOL202 BQ 

LI0L4 BQ 

LIOSW 

Listing only : BANKl, bit 6: If ON 

specifies LIOTIO in progress. 

• Set ON: LISTIO statement processor 
(Charts BQ, BS) 

• Set OFF: UNPA subroutines (Chart CP) 

SFPPE subroutine (Chart CV) 
INITL subroutine (Chart CR) 

• Controls processing in the SFPPE 
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subroutine (Charts CV, CW) 

LIOSYX BS 

Routine within the LISTIO statement 
processor used to process the operand 
SYSXXX. 

LISTIO BP 

Initial entry into the LISTIO statement 
processor. 

LUBADD 

Listing only : Label of a 2- byte 
location used to hold the address of the 
LUB being assigned. Loaded by the 
subroutine, SYSXXX, 

LUB COM 

Listing only ; Label of a 2- byte 
location used for temporary storage of a 
LUB for comparison. Used by the SCNLUB 
subroutine, 

MODSW 

Listing only : 

BANKl+1, bit 7: If on, specifies that 

the mode must be set for this 

assignment, 

• Set ON: ASSGN Statement processor 
(Chart CB) 

• Set OFF: INITL subroutine (Chart CR) 

• Controls processing in the ASSGN 
statement processor (Charts CD, CE) 

NEWLUB 

Listing only : Label of a 2- byte work 
area in which a LUB is built for a new 
assignment. The subroutine TXCUU 
computes a PUB pointer and stores it in 
byte 0. 

NEWPUB 

Listing only : Label of a 2-byte 
location used to hold the address of the 
PUB to be assigned to the LUB that is 
being assigned. Loaded by the 
subroutine TXCUU. 

NOC 

Listing only ; Label of a 2-byte 
location used to hold the number of 
logical units of a class. Loaded by the 
GETLAN subroutine. 

NOEXC CL 

NOMRJB CY 

NUMCON CR 

Subroutine; Converts to EBCDIC numbers 
(0-9) to binary in WRKRG3. 

OLDPUB 

Listing only ; Label of a 2-byte 
location used to hold the address of the 
PUB currently assigned to the LUB that 
is being reassigned. Loaded by the 
subroutine SYSXXX. 

OUTPUT CQ 

Subroutine; Displays on SYSLST and/or 
SYSLOG . 

OUTPUTS CQ 

Subroutine; Displays a line and skips a 
line on SYSLST and/or SYSLOG. Clears 
I/O buffer and work areas to blanks. 

OUTPUTl CQ 



Subroutine: Displays a line on SYSLST 
and/or SYSLOG, Clears I/O buffer and 
work areas to blanks. 
0UTPUT2 CQ 



PROGSW 

Listing only ; 

BANKl, bit 5: If ON, specifies that the 

programmer LUBs are to be scanned. 

• Set ON: LISTIO statement processor 
(Chart BS) , ASSGN statement processor 
(Chart BZ), RESET statement processor 
(Chart CJ) 

• Set OFF: INITL subroutine (Chart CR) 
ASSGN statement processor (Chart BZ) 

• Controls processing in: 

1. LISTIO statement processor (Chart 
BQ) 

2. ASSGN statement processor (Chart BZ) 
PUBMSK , CV 

RESET . . . , CJ 

Initial entry into the RESET statement 
processor. 
RESETSW 

Listing only : 

BANKl, bit 7: If ON, specifies RESET in 

progress. 

• Set ON: RESET statement processor 
(Chart CJ) 

• Set OFF: INITL subroutine (Chart CR) 

• Controls exit from the RSTSTD 
subroutine (Chart CU) 

RESETOl CJ 

RESETl C J 

RESETll CK 

Routine in the RESET statement processor 

used to reset all LUBs to standard. 

This routine is also entered as a 

subroutine from the DVCDN statement 

processor. 

RESET2 CK 

RESET3 CK 

RESET4 CK 

RESETS CK 

RESETS CK 

RETADD BP 

RETSW 

Listing only : 

BANKl, bit 3; 

« Set ON: SFPPE subroutine (Chart CV) 
ASSGN statement processor (Chart CE) 

• Set OFF: ASSGN statement processor 
(Charts CB, CE, CF) 

DVCDN Statement processor (Chart BU) 
INITL subroutine (Chart CR) 

• Controls processing in the SFPPE 
subroutine (Charts CV, CW) 

• Controls processing in the GETJIB 
subroutine (Chart CU) 

RSTSTD CU 

Subroutine; Restores a LUB to its 
standard I/O assignment or unassigns a 
non-standard assignment. 

RSTSTDl CU 

RSTSTD3 CU 

RSTSTD4 CU 
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SCNJIB CN 

Subroutine: Computes address of a JIB 
in register POINTS. The stored LUB of 
the JIB is moved to the loca:tion JIBCHN. 

SCNLUB CN 

Subroutine: Makes all LUBs of a class 
available one at a time. The current 
LUB is made available in the location 
JIBCHN, The address of the next LUB is 
saved in the location SLADD. The 
residual number of LUBs (in a class) is 
saved in the location SNICL. 

SFNC CY 

SFPPE CV 

Subroutine: Scans the LUBs for equal 
PUB pointers. LINKR4 is used to 
re-enter the subroutine from the calling 
sequence. 

SFPPEOl CV 

SFPPE02 CV 

SFPPE03 CP 

SFPPEl CV 

SFPPEIO CW 

SFPPE12 CW 

SFPPE13 CX 

SFPPE14 CW 

SFPPE15 CX 

SFPPE16 CX 

SFPPE17 CX 

SFPPE18 CX 

SFPPE19 CW 

SFPPE2 CV 

SFPPE201 CW 

SFPPE3 CP 

SFPPEa CV 

SFPPE5 CV 

SFPPE6 CV 

SFPPE7 CV 

SFPPE8 CW 

SFPPE8A CW 

SFPPE9 CW 

SKIPLN CQ 

Subroutine: Prints a blank line on 
SYSLST and/or SYSLOG to simulate a line 
skip. 

SLADD 

Listinq only : Label of a 2-byte 
location used to hold the address of the 
first LUB of a class. Loaded by the 
GETLAN subroutine. 

SNICL 

Listinq only : Label of a 2-byte 
location used to hold the number of 
logical units of a class. Loaded by the 
GETLAN subroutine. 

STDFDSW 

Listinq only : 

BANKl, bit 2: If ON, specifies that a 

stored standard assignment has been 

found. 

• Set ON: SFPPE subroutine (Chart CW) 

• Set OFF: SFPPE subroutine (Chart CW) 
INITL subroutine (Chart CR) 

• Controls processing in the SFPPE 
subroutine (Chart CW) 



SVCBTRNS CT 

Subroutine: Fetches the B-transient 
$$BLSTIO. The register LINKR2 is used 
to return control to the calling 
sequence from the B-transient. 

SYSXXX CS 

Subroutine: Converts a logical unit, 
designated as SYSXXX, into: 

1. Symbolic unit address (class and 
order) in the location CLOARD. 

2. LUB address in the location LUBAD. 

3. PUB pointer of the PUB currently 
assigned to this logical unit in the 
location OLDPUB. 

4. The internal representation of 
device type in location NEWTYP. 

SYSXXXOl CS 

SYSXXXl CS 

SYSXXX2 CS 

SYSXXX3 • CS 

SYSXXX4 CS 

SYSXXX5 CS 

SYSXXX6 CS 

TESTl BT 

TEST2 BT 

TIAERR ... CY 

TMPSW 

Listinq only : 

BANKl+1, bit 6: If ON, specifies that 

the assignment is temporary. 

• Set ON: ASSGN statement processor 
(Chart CB) 

• Set OFF: INITL subroutine (Chart CR) 

• Controls processing in the ASSGN 
statement processor (Charts CC, CD, 
CF) 

TNVSERR ...... BP 

TRANSW 

Listinq only : 

BANKl+1, bit 1: If ON, specifies that 
the Job Control transient, $$BLISTIO, 
has been loaded in the B-transient area. 

• Set ON: SVCBTRNS subroutine (Chart 
CT) 

• Set OFF: LISTIO statement processor 
(Chart BP) 

INITL subroutine (Chart CR) 

• Controls processing in: 

1. SFPPE subroutine (Chart CV, CW) 

2. ERRRTN common error routine 
(Chart CY) 

TXCUU CM 

Subroutine: 

1. Converts X'CUU' to binary 

2. Searches PUB table for equal CUU 

3. Saves device type from PUB in 
location DEVTYPE 

4f Saves PUB address in location NEWPUB 

5. Computes PUB pointer and saves it in 
location NEWLUB (byte 0) . 

TXCUU2 CM 

TXCUU3 CM 

Entry point into the TXCUU subroutine 
that is used to compute PUB pointers 
only. The PUB pointer is returned in 
location NEWLUB (byte 0). 
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UA BT 

Routine within the LISTIO statement 

processor used to process the operand 

UA. 

UADNl BT 

UADN2 BT 

UADN3 BT 

UADNU BT 

UADN5 BT 

UADN6 BT 

UNA BM 

Initial entry point into the UNA 

statement processor. 
UNAENT CP 

Entry into the SFPPE subroutine to 

unassign Foreground program LUBs. 

1. LUB address is contained in LUBAD S 
WRKRG3 

2. The LUB has been saved in LUBCOM 

3. Number of LUBs in class is contained 
in WRKRGl 

This entry is used by the UNA 
statement processor. 

UNAl BM 

UNA2 BM 

UNAE BM 

UNCU BR 

UNITS . . , BR 

Routine within the LISTIO statement 

processor used to process the operand 

UNITS. 

UNITS2 BR 

UNITS3 BR 

UNITS 401 BR 

UNITS402 BR 

UNITS5 BR 

UNITS 501 BR 

UNITS6 BR 

UNITS? BR 

UNITS8 BR 

UNITS9 BR 

UNPA CP 

Entry into the SFPPE subroutine to 

unassign a standard assignment. This 

entry is used by the ASSGN routine and 

the RSTSTD subroutine. 
UNPAl CP 

Entry into the SFPPE subroutine to 

unassign a specific LUB. This entry is 

used by the DVCDN routine. 

UNPA3 CP 

UNSW 

Listing only : 

BANKl+l, bit 5: If ON, specifies a 

single unit is to be listed. 

• Set ON: LISTIO statement processor 
when performing a LIOCUU function 
(Chart BS) 

• Set OFF: INITL subroutine (Chart CR) 

• Controls processing in the LISTIO 
statement processor (Chart BR) 



Job Control ($JOBCTLG), Charts DA~DY 

ALLOC DM 

Entry point in the ALLOC statement 
processor. 



BTLOOP DJ 

Routine within the OPTION statement 
processor used to transfer control to 
the correct processor for each operand 
of the OPTION statement. 

BLNKLD DX 

CANCEL DA 

Entry point in the CANCEL statement 

processor. 
CATAL . . . , DL 

Processor for the CATAL operand of the 

OPTION statement. 
CHGSTT ....... DX 

Subroutine: Changes system status from 

problem program state to supervisor 

state and from supervisor state to 

problem program state. Used by the 

ALLOC statement processor. 

CHKCND DE 

CHKLNK ........ DS 

Subroutine: Checks SYSLNK assignment 

and device type. 

CHKPRN DM 

CHKRNG DN 

CIDEND DF 

CKNDAR . • DP 

CKSCST DM 

CLRDOA DF 

Portion of the EXEC statement processor 

used as a subroutine to clear the output 

area to blanks. Register POINTl is 

reset to the beginning address of the 

area. 

CLRRTN DG 

CMNWLM DN 

CNVBCD -...,... DX 

Subroutine: Converts data to EBCDIC for 

output . 

COPYSW . DE 

CRJBSQ ........ DR 

CRTBLD DM 

C48 DK 

Processor for the U8C operand of the 

OPTION statement. 
C60 DK 

Processor for the 6 DC operand of the 

OPTION statement. 

DECK DK 

Processor for the DECK operand of the 
OPTION statement. 

DUMP DL 

Processor for the DUMP operand of the 
OPTION statement. 

EDTEST ........ DD 

EOJ ,. .. DB 

Entry point in the EOJ statement 

processor. 

EO JOFF DR 

Exvivo .••••••i... JjJ\ 

Processor for the ERRS operand of the 

OPTION statement. 

EXCEDT DD 

EXCUSR DD 

EXEC DD 
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Entry point in the EXEC statement 
processor. 

FETCHR DG 

FINIS2 DG 

GETIME DV 

Subroutine: Computes elapsed time and 
converts it to EBCDIC. 

GETPUB DT 

Subroutine: Computes the address of a 
given PUB entry and stores it in 
register POINTS. 

GOCAT DL 

GTMXHN DS 

Subroutine: Computes the upper head 
limit for the background program area of 
the VOL cylinder. Value equals 9 if no 
MPS. Value equals 3 if MPS. 

GTNAME DE 

GTNXNT DE 

GTNXOP DM 

INNXEN DM 

lOROUT DS 

Subroutine: Performs I/O and waits for 

traffic bit to be posted. 

JBINPR DB 

JIBPTR DU 

JIBSCN DT 

Subroutine: Scans the JIB table and 

makes the next JIB in a chain available 

for processing. 
JOB DQ 

Entry point in the JOB statement 

processor. 

LAXERR DY 

LBLOUT DW 

Subroutine: //rites label information in 

the VOL area of SYSRES from the job 

control label area. 
LINK DL 

Processor for the LINK operand of the 

OPTION statement. 
LIST DK 

Processor for the LIST operand of the 

OPTION statement. 
LISTX DK 

Processor for the LISTX operand of the 

OPTION statement. 

LNAERR DY 

LNKNOP DE 

LOG DH 

Entry point in the LOG statement 

processor. 
LUBSCN DT 

Subroutine: Makes the address of the 

next LUB entry of a class available in 

register POINTl. 

MAP DP 

Entry point in the MAP statement 

processor. 

MOVLOP DG 

MVKIND DX 

MVMVRT • . DF 



NDTERR DY 

NLISTX DK 

Processor for the NOLISTX operand of the 

OPTION statement. 

NOCATL DB 

NODECK DK 

Processor for the NODECK operand of the 

OPTION statement. 
NODUMP DL 

Processor for the NODUMP operand of the 

OPTION statement. 
NOERRS DK 

Processor for the NOERRS operand of the 

OPTION statement. 

NOIPT DB 

NOLINK DL 

Processor for the NOLINK operand of the 

OPTION statement. 
NOLIST DK 

Processor for the NOLIST operand of the 

OPTION statement. 
NOLOG DH 

Entry point in the NOLOG statement 

processor. 

NOMPSS DE 

NOPHDB DF 

NOSYM DK 

Processor for the NOSYM operand of the 

OPTION statement. 

NOTNOS DJ 

NOXREF DK 

Processor for the NOXREF operand of the 

OPTION statement. 

NVAERR DY 

NXPBNT DP 

ONOLOG . . . . DH 

OPAUSE DH 

OPLBNF DW 

OPLOG DH 

OPNLNK DS 

Subroutine: Opens SYSLNK DFB. 
OPTION DJ 

Entry point to the OPTION statement 

processor. 
OPTLOG ........ DL 

Processor for the LOG operand of the 

OPTION statement.- 
OPTNLG DK 

Processor for the NOLOG operand of the 

OPTION statement. 
OTSERR DY 

PAUSE DH 

Entry point in the PAUSE statement 

processor. 
PNPERR ........ DY 

RANXJB DT 

RASCAN DT 

Subroutine: Scans BG program LUBs and 

sets BG assignment flags in assigned 

PUBs. 

RASSGN DT 

RDCID ........ DE 

RESFCH DD 

RSPASG DV 

Subroutine: Entry into the RSTASG 
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subroutine used by the JOB statement 
processor to restore BG programmer class 
assignments. 

RSPPEA DP 

RSRMCP DW 

RSSASG DR 

RSTASG DV 

Subroutine: Restores System and BG 
programmer assignments to standard. 

RSTCOM DR 

RSTLAD DS 

Subroutine: Used by the OPTION 
statement processor to restore VOL area 
track capacity to 3625 and disk address 
record numbers to 0. 

RSTSW4 DQ 

SCNINT ... DU 

Subroutine: Performs initialization for 

LUB table scan. Used by the RSTASG and 

RSPASG subroutines. 

SETLOD DD 

SIMEND DQ 

SIMRET DR 

STDUBL DL 

Processor for the STDLABEL operand of 

the OPTION statement. 

STLLMT DN 

STLNKA DE 

STOP DA 

Entry point in the STOP statement 

processor. 

STSRWR DF 

STUCRL DX 

Subroutine: v^rites a line from the I/O 

area labeled BUFFER and initializes for 

the next line. 
STUFIU DX 

Subroutine: Converts the upper limit to 

EBCDIC and stores it in the correct 

field of a print line for the MAP 

processor. 
STUSPC DX 

Subroutine: Builds that portion of a 

MAP print line indicating program prefix 

and upper limit. 
SYM DK 

Processor for the SYM operand of the 

OPTION statement. 

TBNHDR DC 

TBNXPB DC 

TBPBLP . , DC 

TEBHDR DC 

TEBLOP DC 

TIMOUT DV 

Subroutine: Used by the JOB and EOJ 
statement processors to log the time of 
day. 

UANXJB DU 

UASCAN DU 

Subroutine: Restores BG program LUBs to 
standard assignments. Detaches BG 
program JIBs and places them in free 
list. Resets BG program ownership flags 
in PUBS. 

UNASGN DU 



USRLBL DL 

Processor for the USRLABEL operand of 
the OPTION statement. 



WRTPHD •... DF 

Subroutine: HJsed by the EXEC statement 
processor to write the phase directory. 

XREF .. DK 

Processor for the XREF operand of the 
OPTION statement. 



Job Control ($JOBCTLJ) Charts EA~ET 

ACTION ED 

Entry to the ACTION statement processor. 

BINCON ES 

Subroutine: Converts DATE and CLOCK 
parameters of the SET statement to 
binary in registers POINTl, P0INT2, and 
POINTS . 

BTOFRT EM 

BTONRT EM 

CHKNXC EUA 

CHKPGU EQ 

CHKPUN EJ 

CHKRNG EUA 

CHKRNGl EUA 

CHKTIM EL 

CKSTDM EG 

CNUNCO ...,••.. EQ 

SuiDroutine: Converts the operand SYSXXX 

to system and unit class in the location 

UNCLOR. 

• UNCLORr byte = System class. 

= Syst, 1 = programmer 
byte 1 = Unit class = LUB 
pointer 
CONCAT EP 

Subroutine: Combines the operand fields 

of two control statements, the first 

control statement contains a 

continuation punch. 
COPYLP ED 

Routine in the INCLUDE statement 

processor used to copy SYSIPT to SYSLNK. 

DATE EK 

Entry into the DATE statement processor. 

DIBRC EL 

DLAB EG 

Entry into the DLAB statement processor. 
DNEERR ET 

D0P3U ES 

Subroutine: Converts creation date and 
expiration date to binary and stores in 
label output area. 

DSEQMSK EG 

ENDING ED 

FDKTDAT EUB 

FDKTDATl .... EUB 

FDKTDAT2 ..... EUB 

FDKTID EUB 
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FDKTV EUA 

FDKTVNM EUA 

FDKTV2 EUA 

FDSYSU EQ 

FETINSRT EK 

FETINSRO EK 

FETINSRl EK 

FSCAN EUA 

FSC?JS[1 EUA 

FTEND EK 

GTMXHN ER 

Subroutine: Sets upper head limit for 
BG program portion of the SYSRES volume 
area. 

• HH=3 if MPS 

• HH=9 if no MPS 

HEXCON EQ 

Subroutine: Converts the operand X'CUU' 

to binary and saves it in the location 

lORGSA- 
HOLD EA 

Entry point into the HOLD statement 

processor. 

HOLDl EA 

H0LD2 EA 

INAERR ET 

INCLUDE ED 

Entry to the INCLUDE statement 

processor. 

INDSEQ EH 

ISCKSQ EH 

ISTYP4 EH 

LAXERR ET 

LBLOUT EP 

Subroutine: /Jrites label and extent 
information in the SYSRES volume area. 

LBLTYP EF 

Entry into the LBLTYP statement 
processor. 

LBTOUT EF 

LNKOUT ER 

Subroutine: Controls block count and 
byte count for writing on SYSLNK. 

LOADRS EN 

MTC EE 

Entry point to the MTC statement 

processor. 

MTCl EE 

MTC2 EE 

MTC3 EE 

MTCa EE 

MTC5 EE 

NDSCAN EUB 

NDSCANl EUB 

NDSERR ET 

NDTERR ET 

NEWXT-N E J 

NLSERR ET 

NLUERR ET 

NODCUX E J 

NOTSEQ EH 



NULCHK EB 

NUMCON ER 

Subroutine: Converts EBCDIC character 

0-9 to binary in WRKRGl. 
NXTBIT EM 

OPLBNF EP 

OTSERR ET 

OUTLBL E J 

PACKCG • . , E J 

PNPERR ET 

PRGUNT , EQ 

RELEASE EA 

Entry point into the RELSE statement 

processor. 
RLSENT EA 

Entry point to the coding that is common 

for both the RELSE and HOLD statements. 

Register POINTS contains the address of 

an instruction to set the PIB flag on or 

off (Bit 8 of PIB+12). 

• If processing the RELSE statement, 
set the bit off. 

• If processing the HOLD statement, set 
the bit on. 

RNGTOP ...... EUA 

RSRMCP EP 

RSTRT EN 

Entry into the RSTRT statement 

processor. 

SgNRL2 EUB 

SET EL 

Entry into the SET statement processor. 

SETEXT EL 

SLINCT EL 

SXTPOK EH 

SYSDATE EL 

SYSUPI , EL 

SYSUPIl EM 

TFILL . . . EF 

TLBL EK 

TPLAB EF 

Entry into the TPLAB statement 

processor. 

TPLEND EF 

TXCUU EQ 

Subroutine: Converts the operand X'CUU" 

from hex to binary. 

• PUB address is. saved in register 
POINTU. 

• PUB pointer is computed in register 
WRKRG3. 

• Device type (from the PUB) is saved 
in the location DVCTYP. 

TXCUUl EQ 

TXCUU2 EQ 

UCS EB 

Entry point to the UCS statement 

processor. 

UCSDN EC 

UCSSCN . ... EC 

UCSl EB 

UCS2 EB 

UCS3 EC 
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UCS4 EC 

UNBLKD ED 

UNTFND EQ 

UPDOPT ED 

UPDSAV ER 

Subroutine: Moves data from input 
buffer to SYSLNK output area. Maintains 
a block count that is used for blocking 
records. 

UPSI EM 

Entry into the UPSI statement processor. 

UPSICH EM 

VOL EF 

Entry into the VOL statement processor. 

XTENT EH 

Entry into the XTENT statement 

processor. 
XT0P12 ES 

Subroutine: Checks, converts, and 

stores extent type and sequence number 

in label output area. 

XT0P3 EH 

XT0P34 ES 

Subroutine: Checks, converts, and 

stores lower and upper extent limits in 

the label output area. 

XT0P5 E J 

XTOUT E J 

XTUNIT E J 



Job Control ($$BLSTIO)^ Charts EV~EZ 

$$BLSTIO 

Fifth job control phase. Loaded as a 
B- transient by the LISTIO and DVCDN 
statement processors in the $J0BCTLD 
phase. Contains subroutines used by 
these processors. 

EXIT EX 

FNDARG EX 

Subroutine: Used by the LISTIO 
statement processor to determine the 
operand of the LISTIO statement. 

FNDARGl EX 

FNDARG5 EX 

KEYl EX 

KEY2 EX 

KEY3 EX 

LHRTN EY 

Subroutine: Used by the LISTIO 
statement processor to move the correct 
header to the output area BUFFER. 

PSHRTN EY 

Subroutine: Used by the LISTIO 
statement processor to build a header 
Printline. 

CHNL UNIT OWNER — I/O UNIT MODE 

PUIF EW 

Subroutine: Used by the LISTIO and 
DVCDN statement processors. Extracts 



information from the PUB preparatory to 

building a print line. 

PUIFT3 .•.. EW 

PUIFl . , EW 

PUIF4 EW 

PUIF5 EW 

SEUOB . , EZ 

Subroutine: Used by the LISTIO 
statement processor to build a print line 
in the output area labeled BUFFER. 

SULB EZ 

Subroutine: Used by the LISTIO 
statement processor to build the LUNIT, 
LCMNT, LCHNL, LPUNIT, and LMODE fields 
of a print line. 

SULBl EZ 

SULB2 EZ 



Supervisor ($$A$SUP1)^ Charts FA-GY 



A2321 .-. FL 

ABTRANS GA 

ABTRANS GD 

AFTTIO FY 

ALLBND FD 

ATNCNL GN 

ATNRTN GX 

BRSFLG FK 

BSTTST , FT 

CALFET GM 

CEDETST FP 

CHEND FP 

CHFAIL FY 

CHNDRT FR 

CHNTST FQ 

CLCEX GA 

CLCEX GD 

CLCINS FL 

CLRTEB ............... FP 

CNCL FD 

CNLSVE FB 

CORCHN . . , , FN 

CORPUB . . . FN 

CQDSP ,. , FS 

CSWCHK FY 

CYLEND GW 

DASD2321 FL 

DATAADDR GC 

DATAADDR GF 

DEALSO FR 

DECHQ FQ 

DEQUE GM 

DEQUER FX 

DEQUERl FX 

DISWHY . . FN 

DSKTST GV 

EDTIC GW 

EDTICl GW 

EDRDAl GW 
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ENTEXT , FE 

ENTEXT GS 

ENTIO FE 

ENTPCK FB 

ENTPCK GQ 

ENTPCK GR 

ENTSVC GH 

ERDRAA GW 

ERRGO FC 

ERROVL FU 

ERRPRT , FW 

ERRSEN FU 

ERRSET FC 

ERRSETO FC 

ERRSIO FY 

ERRSI02 FY 

EXCANl GN 

EXCP2 , FF 

EXCP3 FH 

EXCP4 FF 

EXCP5 FG 

EXCP6 FG 

EXCP7 FG 

EXCPIO FG 

EXCPIGN FG 

EXIGN FW 

EXPAND GB 

EXPAND GF 

EXRTY FW 

EXTOl FD 

EXT02 FD 

EXT03 FD 

EXTl GS 

EXT2 GS 

EXTEOJ FD 

EXTRAN FV 

EXTRTl GQ 

EXTRTl GU 

EXWHY FW 

FCH3 GM 

FCHOVL FV 

FCHRTl GA 

FCHRTl GD 

FCHRT2 GA 

FCHRT2 GD 

FGP GA 

FNDQUE FH 

FREDEV FQ 

FREDEVl FQ 

GENl FE 

GEN2 FE 

GENENT FE 

GETCHQ FN 

GETENTRY GB, GF 

GETJIB FL 

GETPIB FS 

GETPIBl FS 

GETSEN FU 

GIOADR FJ 

GIOAJ)R , FK 

HALT FH 

HARDWT FV 

INDIB FM 

INHWRITE FL 



INITCHNL , ••• FQ 

INITRG FQ 

INITSIO FQ 

INTPUBSC FN 

INTRTN FN 

lONOP FT 

lOPSET GM 

ITBRC GX 

JIBTYP . • FM 

LDREGS FN 

LGD , FL 

liGDl FL 

LGDD . . , FL 

LMERA FD 

LOGPRC FM 

LOGPRCl FM 

LOOKUP GB 

LOOKUP GF 

LTA ,, ....... GY 

LTABSY GK 

MACHEK FY 

MVZEX . FU 

NOCCBl ... FT 

NOLOADAD . , GB 

NOLOADAD GF 

NOPINS FL 

NOPINSTR . - FL 

NOQUIS FZ 

NORCD GV 

NOTBSY . . , FP 

NOTIC FL 

NOUTCK FU 

.ONEBL .. GC 

ONEBLOCK . GC 

OPCLOSE GA 

OPCLOSE ..... GD 

OPTRTl . . , GT 

0PTRT2 . . . • , GT 

OURSIO . . . . , FY 

PCHDIB FM 

PCHKSW FB 

PCHKSW GQ 

PCHKSW . GR 

PCITRT , . GT 

POSTCE FR 

PREFERED GA 

PREFERED GD 

PROTECT FL 

PRTPRG FU 

PSTEOF FR 

PUBDEQ GM 

PURGE FP 

QISRTl FZ 

QISRT2 FZ 

QISRT3 . . , FZ 

QUISIO FZ 

QUISI02 , FZ 

QUISI03 FZ 

RCVERR . FV 
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RDDIR2 GB 

RDDIR2 GF 

RDHA9 GV 

RDTXT GC 

RDTXT GF 

READUPDT ,. GG 

RECNO-4 GG 

RESCHK . , FU 

RESERR , GV 

RESVC GK 

RSETWAIT FP 

RSTPUB GG 

RSTREG FX 

RTYl o GV 

RTY9 GV 

SEEKTEST FL 

SEKCHK GV 

SEKCHKl GV 

SELBMX FQ 

SELECT FQ 

SETLTl GK 

SETLT2 FC 

SETLT2 GK 

SETLT2A GK 

SETOPl GQ 

SETOPl GU 

SETOP2 GQ 

SET0P2 GU 

SETSVAR GC 

SETSVAR GF 

SIO FK 

STDEXT FV 

STMODE FK 

STRTIO FJ 

STRTIO FK 

STRTIOl FJ 

STRTIOl , FK 

STRTED FJ 

STRTED , FK 

SUPCNL FV 

SUPEXP FF 

SUPEXT FD 

SVCOO FF 

SVCOl GJ 

SVCOIA GJ 

SVC02 GK 

SVC02 GL 

SVC02A GK 

SVC03 GM 

SVC04 GM 

SVC05 GJ 

SVC07 , GM 

SVC08 GN 

SVC09 GN 

SVCIO GN 

SVCIOA , GN 

SVCll GK 

SVCll GL 

SVCllA GL 

SVC12 GJ 

SVC13 GJ 

SVC15 FF 

SVC18 , GU 

SVC19 GU 

SVC2BND GK 

SVC22 GP 

SVC22A GP 



SVC23 GP 

SVC24 GP 

SVC26 ...., GP 

SVCRTNl , GH 

SVEREG GX 

SXTRTl GQ 

SXTRTl GU 

SYSFILE . • . , FM 

SYSFILEl FM 

SYSFILE2 , FM 

SYSFILE3 ..,...., FR 

SYSIN , FM 

SYSINOUT . ,. , , FK 

TESTSVC , - . . GB 

TMEKEY GN 

TMEKEYl GN 

TMERTl •.,.,. . . • GS 

TPBUSY FH 

TPBUSYl FH 

TPBUSY2 FH 

TRKCHK GW 

TRKEOC GW 

TRNOFF FP 

TRYNXT FL 

TSTATTN . FP 

TSTBMX FR 

TSTDEV , FH 

TSTEO J F J 

TSTEOJ . . ,. , FK 

TSTERF FP 

TSTNXT FM 

TSTQEF FQ 

TSTSVC . . GB 

TSTUCK . . .. FN 

UNCOMMON . . , F J 

UNTCKl FT 

UNTCK2 FT 

USREXT , FT 

USRUCK • , FT 

VALLOAD GF 

VALLOAD .., GC 

VLDADRl ,. .. GX 

VLDADR2 GX 

VLDADR3 GX 

WAITLOOP GG 

ZROREG FS 



Phase $$ANERRA, Charts HA-HB 



BUSOUT HB 

CHECK HA 

CHKDISK , HA 

COMBIN , HA 

EQUIP HA 

EXITA HA,HB 

EXITB HA,HB 

EXITC .. HB 
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INTVEN HB 

NORCFND HB 

PROTCHK HA 

PTERP HA 

SEKCH HB 

SKCHK HB 

UNRCERP HA 

Phase $$ANERRB, Charts HC-HD 

CHAINCH HC 

CHKAM HC 

COMRE J HC 

DATACHK HC 

DTCH HD 

EXITA . . , HC 

EXITB HC 

FILEPR HC 

INSERT HD 

MESG HD 

OVERUN HC 

SKSLI HD 

TSTSSL HD 

UNKN HC 

VERIF , . . HD 

Phase $$ANERRD, Charts HE-HF 

CNTREX HF 

CNTRTN HF 

DOSVC . . ,. . ..,•...,... HF 

EREV HF 

ERG , HF 

ERR HF 

EXIT , HF 

FETCH3 . , HF 

FTCH2 HE 

FTCH3 HF 

MAINRT HE 

RCHAN HF 

RCNSC HF 

RETOFF HF 



SSELER HE 

TSTCLN HF 

TSTRCT HE 

TSTRD HF 

WRYT HF 

Phase $$ANERRE^ Charts HG-HJ 

BSOT , HG 

CHDATCH HG 

CHKIS HJ 

CHKRT , HG 

CONTX HG 

DOSVC •..., HH,HG 

ERR , HH,HJ 

EXITA . , ... HH 

FTMON H J 

FTMSW . . . , HG 

GOBCK HJ 

MAINRT ,. . . HG 

MSGWTR HH 

NOCOMP • ..... HJ 

OPRFL HG 

OVRN HG 

RCHAN HH, HJ 

RCNSC HH 

REPBCK HG 

REPFRW HG 

RETOFF HG 

SETSVC * H J 

TEBVER HG 

TSTRD H J 

UC , H J 

UNKN . . H J 

Phase $$ANERRF, Charts HK-HM 

BTOFWS . HL 

BTOTCL , . . . . .... HL 

CHECK • , HK 

CRC HL 

DOSVC ........ HM 

EREV . . , HM 

ERGRET ...••.. . . . . HK 

ERR HM 



Appendix A. Label List 209 



RCHAN ....•....•,.•.. HM 

READBK HL 

REDFOR HL 

RETOFF HK 

RETRY HK 

RSCH HM 

SNS HL 

TEBVER •■ HK 

TSTCLN ,. HL 

UCHK HL 

WRITE ■ HK 

WRREP HK 

Phase $$ANERRG, Charts HN~HQ 

AOl , HN 

A02 HN 

BOl HN 

B02 HN 

COl HP.HQ 

FOl HP 

FOlO HP 

F02 HP 

F03 HP 

GOl HP 

HOI HP 

KOI HP 

LOl HQ 

MOl HQ 

MSGWTR HN,HP,HQ 

NOl HQ 

PHASEH HQ 

PHASEI HP 

PHASE J HN 

QOl HQ 

ROl HN^HP 

TOl HP 

Phase $$ANERRH, Chart HR 

COl HR 

COl+a HR 

lOERR , HR 



MSGWTR HR 

RSTFLG HR 

T03 HR 

T06 ..„. HR 

Phase $$ANERRI, Chart HS 

B050 HS 

E050 ...••..... HS 

E051 HS 

E06 Hs 

E062 HS 

lOERR HS 

lORTN HS 

LOl HS 

MOl HS 

MSGWTR HS 

ROl HS 

RSTFLG HS 

RSTQPT ..•.. HS 

Phase $$ANERRJ. Charts HT-HU 

A03 HT 

A05 ••., HT 

A051 HT 

A06 HT 

COl HT 

lOERR HU 

lORTN HU 

MSGWTR+4 . HT 

NOl HT 

RSTFLG HU 

RSTQPT HU 

SOI HT 

Phase $$ANERRK, Chart HV 

MSGWTR HV 

RDVER HV 
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Phase $$AN£RRM^ Chart JA 

CCBSTR JA 

MSG2 JA 

MSG3 , JA 

MSGU JA 

PHASEl JA 

Phase $$ANERRN^ Charts JB~JC 

ATYPE JC 

CALPHS3 JB 

CCBUNAV JB 

EXIT JC 

MPTST JB 

NOLOG JC 

OPFLAG JC 

RESET JC 

SVCALL JC 

TSTCCB JB 

TSTRTY , JB 

Phase $$ANERRO^ Chart JD 

CALPH4 JD 

CUU JD 

LACSW JD 

NOCCB JD 

PHASE3-«-8 JD 

SWITCH JD 

SYCLAS JD 

UNPCH JD 

Phase $$ANERRP, Chart JE 

AACTION JE 

ACTIONA JE 

CALPH5 JE 

COUNTRG JE 

ERRTYP JE 



INST , JE 

lODONE JE 

lOERR JE 

LOGENT 4 JE 

NOLOG JE 

PHASES JE 

PHASEU + 8 . . , JE 

RELOC JE 

RSTFLG JE 

RSTQPT , JE 

RTYRTN JE 

Phase $$ANERRQ. Charts JF-JG 

COUNTRG JF 

DECCTR JG 

EXCONT • . • . . JG 

lOCOMP • JG 

KANEXT JG 

KRETRY JG 

LOGENT JF 

MPSTST JF 

NOLOG JG 

NOPBR JF 

PHASES JG 

PHASR JG 

REPERR JG 

RSTFLG JF 

RSTQPT JF 

SSMASK JF 

Phase $$ANERRR, Chart JH 

EXINTR JH 

lOINTR JH 

KEYINT JH 

LOADPSW JH 

LDPSW JH 

PHASES JH 

RESPNS JH 

RETRY . , JH 

TSTATD JH 

TSTCAN JH 
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Phases $$ANERRS, Chart JJ 

CANEXT ••.•^ JJ 

CANTRN - <> JJ 

CLRCCB JJ 

EXIT JJ 

IGEXIT JJ 

KRTY JJ 

MSGPRT JJ 

SETCODE JJ 

TSTTRG JJ 

ZERTEB JJ 

Phase $$ANERRU. Charts JK~JL 

AACT JL 

CMDRE J JL 

CNCL JK 

EQPCHK JL 

ERRUR+8 JK 

FTHMSGW JK 

IGON JK 

INTREQ JL 

LOGERP JL 

LOGTST JL 

NOSENSE JK 

RSTFLG JL 

RSTQPT JL 

RTYONE JK 

UNUSENS JK 

Phase $$ANERRV^ Charts JM-JN 

ATYPE JN 

BUSOUT JM 

BUSl JM 

BUS2 JM 

CMDRE J JN 

CMDSEQ JN 

CONT JN 

COIOO JM 

C02 JM 

DATCHK JN 



EQPCHK JM 

ERRUR+8 . JM 

GETMSG JN 

HOI • . JM 

INTREQ JM 

MSGWTR JN 

MVMSG JN 

OVRUN JN 

RETRY . . . . . • . JN 

RTY . . . , o • • JN 

RTYCT ,. ., JM 

SELERR JM 

UCPBAR JN 

UCSTST JN 

Phase $$ANERRX^ Charts JP-JQ 

BUS JQ 

CALLMW JP 

CHDTCK JP 

COMR JP 

DAT JP 

MODCCW JQ 

RETRY JQ 

SETFLG JP 

Phase $$ANERR9, Charts JR-JRB 

ANNUL ,. . JRA 

BUSOUT JRA 

CDATACK . JR 

CMNDRE J JRA 

CONTINUE JRB 

EQPCHK JR 

EQUIPXIT . , JR 

FETMSGW JR 

INTERV JRA 

NONREC JRA 

ONERTRY JR 

OVERRUN JRA 

RETRY JRB 
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UNSUPTD 



JR 



Phase $$ANERRQ> Charts JW-JX 



Phase $$ANERRY> Charts JS-JT 

CALLSEC3 JT 

CANTLP JS 

CHQOVFLW JS 

CNCLMSK JT 

CNCLSW JT 

HOLDQUE JS 

IJBPAR2+8 JS 

INVAL JT 

LOGRTN JS 

LOGTST JS 

LOGWAIT JS 

LOGl , JS 

L0G2 , JS 

POSTCAN JT 

RSTCHQ JS 

SETARON JT 

TCAN2 , , , JT 

WAIT JS 



END JX 

EXITl JX 

EXIT2 JX 

PARUO ,. .. JW 

PARUl JW 

PAR42 JW 

PAR43 JW 

PARU4 JW 

PAR45 JW 

PTRXCH JX 

WAITl JW 



$$ANERR1^ Chart JY 



ERR 



JY 



B-Transient Initiator and Nonresident 
Attention Routines (Section U) 



The first section of this label list 
contains the labels that are found in the 
listing only. Although these labels do not 
appear on any flowchart, an understanding 
of them is important. 



Listing Only Labels 



Phase $$ANERRZ, Charts JU~JV 

BYCNL JV 

CALLSEC2 JU 

CNCLLOOP JV 

ENDPUBSl JU 

ENDPUBS3 JV 

EXIT JU 

FINDPUBl JU 

IJBPARl+8 ,. .. JU 

LTKHLD JV 

PUBSCN JV 

PUBSCN3 JV 

QIDCKl JV 

QUEID JV 

SECTIONl JU 

SECTI0N3 JV 

SETPOSTL JV 

STEPLOOP JV 



ATABLE 

Listing only : Defines a set of internal 
allocation tables built by the ALLOC 
processor. Because of this label's 
physical placement, it also defines the 
internal allocation table for background 
programs. The ALLOC processor uses 
existing limit information, found in the 
PIB, and allocation information acquired 
from the ALLOC statement to establish 
the table. After the allocation data 
has been validity checked, and posted to 
the allocation table, it is used to 
update the appropriate PIB entry. The 
table expansion is : 

1. A half word of padding for proper 
alignment. (This field can contain 
a constant. ) 

2. A half word containing the current 
number of 2K blocks. 

3. A fullword containing the save area 
address. 

4. A fullword containing the lower 
limit address. 
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5. A fullword containing the upper 
limit address - 

BUFFER 

Listing only ; Defines a 72-byte I/O 
area used by either the nonresident 
attention routine or the foreground 
initiator. 



Defines a byte of program 



FLGBYO 

Listing only ; 

switches ; 

Bit 0=1; Input is from SYSFGI. 

=1; A read has been issued, 

= Not used. 



Bit 
Bit 
Bit 



= 0: 



Bit 4 



Bit 5=1 



Bit 6=1 



Bit 7 



A label block in main 

storage is to be written on 

the label cylinder of 

SYSRES . 

Only a VOL statement can 

follow. 

Only an EXTENT, or VOL label 

statement can follow. 

Only an EXTENT label 

statement can follow. 

Only a DLAB or TPLAB label 

statement can follow. 



FWRKFL 

Listing only ; Contains the load address 
for the foreground program being 
initiated. Used by the EXEC processor. 

FITBEN 

Listing only ; An internal allocation 
table for Foreground 1 programs. (See 
AT ABLE in the listing only section.) 

F2TBEN 

Listing only ; An internal allocation 
table for Foreground 2 programs. (See 
ATABLE in the listing only section.) 

JBSLUB 

Listincf only ; A half word work area 
primarily used with the scan JIB or scan 
LUB subroutines. When used with the 
scan JIB subroutine, this area contains 
the LUB image information (PUB pointer 
and JIB pointer) found within a JIB 
entry. When used with the scan LUB 
subroutine, this area contains a true 
LUB entry used within the unassign 
routine for comparisons. 

LBLADR 

Listing only ; Defines an area that 
contains the address of the temporary 
label storage area (Foreground origin 
plus 1728) . 

LBLSTR 

Listing only ; Defines an area that 
contains the address of the label 
storage area. This address follows the 
register save area. 

LBS LUB 



Listing only ; Defines an area that 
contains the LUB entry found by a scan 
of the LUB table. This label can be 
described as a parameter passing area. 



MTRSVD 

Listing only ; A one-byte switch used 

when the file type has been found to be 

sequential disk (SD) . 

Bit 0=1; The logical units, or volume 
serial numbers, or the bin 
numbers are different 
between this extent and the 
previous extent. 

Bit 1 = Not used. 

Bit 2=1; This is the last extent. 

Bit 3=1; The bin numbers are 

different but the unit 
numbers are the same between 
this extent and the previous 
extent . 

Bits 4-7 = Not used. 



PHSNAM 

Listing only ; Defines a seven- byte area 
containing the first seven characters of 
the phase name of the B-transient to be 
loaded. 

PHSNUM 

Listing only ; Defines a one-byte field 
containing the last character of the 
phase name. 



RGSVAR 

Listing only ; 
area. 



Defines the register save 



RG2SVA 

Listing only ; Defines an area within 
the register save area that contains the 
contents of register 2. 

SCNSTP 

Listing only ; Defines a one-byte area 
that contains the character that caused 
the general scan routine to stop 
scanning. (Contains the scan delimiter) 

SYSTBL 

Listing only ; Contains the table 
arguments for a translate operation 
searching for a system class unit. 

TABLE 

Listing only ; Defines the branch vector 
table used to load and execute 
B-transients required by either the 
nonresident attention routine or the 
foreground initiator. If a START 
statement has been processed indicating 
the B-transients are functioning as a 
foreground initiator, the branch vector 
table is expanded to handle this 
function by adding the table entries 
starting at location INTABL. Each table 
entry consists of; 
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Operation field of the control 
statement. 

Phase identifier (an alphabetic 
character) . 

Branch vector index factor used to 
get the first executable instruction 
of the processing phase. 



Phase $$BATTNA Root, Charts KA-KD 



SCNRLl KD 

SCNRL2 .., KD 

TMPARl KA 

Defines a doubleword save area used in 
conjunction with the general scan 
routine (Chart KD) . The first word is 
loaded from register POINTl with the 
address of a statement field (operation 
code or operand) . The second word is 
loaded from register P0INT2 with the 
remaining I/O area (see label BUFFER) . 
Also used as an entry point during 
B-transient initialization. 



BTLOOP KB 

Beginning of a table lookup in the 
branch vector table to find the 
appropriate B-transient required for 
further processing. 

CHKSTT KB 

CONTROL , KB 

Entry point for the routine to obtain 
the input statement, 

DTCHAT KA 

Entry point to the coding that detaches 
the attention routine from the task 
selection operation within the 
supervisor program. 

DTCHSZ KA 

Test to determine if the task is to be 
detached. 

DTINUN , KC 

Entry point to the read subroutine 
(RDSTMT) when continuation information 
is expected. 

ERRRTN KC 

Entry point for error processing. 
EXCPRG . , KC 

Entry point to the subroutine used to 
issue a SVC 0. 

NDSCAN KD 

NVSERR KC 

Entry point to the subroutine used to 
send appropriate error messages. 

RDSTMT KC 

Entry point to the subroutine used to 
read input from SYSLOG or SYSFGI. 

SCANRl KD 

Entry point to the general scan routine 
when the operation code field of a 
control statement is required by the 
calling routine. 

SCANR2 KD 

Entry point to the general scan routine 
when the first operand field of a 
control statement is required by the 
calling routine. 

SCANR3 KD 

Entry point to the general scan routine, 
when other operands are required by the 
calling routine. 



Phase $$BATTNB Message Processor, Charts 
KE-KF 



CKEF1F2 KE 

Entry point to a subroutine used to 
return the key of the area referenced as 
either Fl or F2 in the operand of a MSG 
statement. 

EXTINT KE 

MSG ,. i KE 

Entry point to the MSG statement 
processor. 

SETEXT KF 

STEXCD KF 

Entry point to a routine used to check 
and set the external interrupt exit 
table for linkage to a program that is 
identified by the key specified. 



Phase $$BATTNC CANCEL, LOG, NOLOG, and 
PAUSE Processor., Charts KG-KH 



ANAERR . KG 

Entry point for error processing. 

CANCEL KG 

Entry point to the CANCEL statement 

processor. 
CANCLB , KG 

Start of CANCEL statement processing for 

a batch only system. 
CKBF12 KG 

Entry point to a subroutine used to: 

1. Identify the operand. 

2. Return the corresponding key to the 
calling routine. 

CNCLIN ,. . KG 

CNCLME KG 

Cancel processing steps when it has been 
determined that the B-transient now 
being executed is now being canceled. 
CNLRTN KG 
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Entry point to the subroutine used to 
set the cancel code in the PIB. 



Phase $$BATTNE ALLOC Statement Processor,, 
Charts KN-KP 



LOG KH 

Entry point to the LOG statement 
processor. 

NOLOG KH 

Entry point to the NOLOG statement 
processor. 

OPRSNT KG 

PAUSE KH 

Entry point to the PAUSE statement 
processor. 



Phase $$BATTND MAP Statement Processor^ 
Charts KJ-KM 



ALLOC KN 

Entry point to the ALLOC statement 
processor. (See Phase $$BATTNF, label 
STARTF+2.) 

CHKPRN , KN 

Test for a duplicate operand in an ALLOC 

statement. 
CHKRNG KP 

Validity check of the main storage 

allocation value specified by the ALLOC 

statement. 
CKSCST KN 

Valid delimiter check. 
CRTBLD KN 

GTNXOP . . . , KN 

Start of a repetitive sequence of code 
used to get the operands of an ALLOC 
statement. 

INNXEN , KN 

Start of a repetitive sequence of code 
to build internal allocation tables. 
(See Listing-only Section, 
labels: ATABLE, FITBEN, or F2TBEN. ) 



BLNKLD 



KN 



CNVBCD KM 

Entry point to a subroutine used to 
convert a specified binary number to 
EBCDIC and remove leading zeros. 

MAP K J 

Entry point to the MAP statement 
processor. 

OUTPUT KM 

Entry point to the Output subroutine. 

RVRSCN KM 

Start of a reverse scan of the I/O area, 
BUFFER. 

SKPLIN KM 

Entry point to the Output subroutine 
when a line is to be skipped. 

STUBGL KL 

Entry point to the Output subroutine 
used to establish a background line for 
the MAP processor. 

STUCRL KL 

Entry point to the Output subroutine 
used when a line of data in the I/O 
area, BUFFER, is written on SYSLOG and 
the next line is initialized. 

STUFIU KL 

Entry point to the Output subroutine 
used to establish a foreground line for 
the MAP processor. 

STUSPC KL 

Entry point to a routine to put the 
upper limit address in a line for 
output . 



Phase $$BATTNF ALLOC Processor, Charts 
KQ-KR 



CHGSTT KR 

Entry point to the subroutine used to 
enter and exit from the supervisory 
state. The supervisory state is entered 
so that the B-transient program can 
issue a privileged instruction. 

CKNDAR KR 

Start of a repetitive sequence of code 
used to set storage protection keys. 

CMNWLM KQ 

Start of a repetitive sequence of code 
used to update the internal allocation 
table (see Listing-only Section, 
labels: ATABLE, FITBEN, or F2TBEN) with 
new limit information. 

NVAERR KQ 

Error exit. 
NXPBNT KR 

Start of a repetitive sequence of code 
to update the PIB table with values from 
the internal allocation table. 

RSPPEA , KR 

STARTF+2 KQ 

Start of the second phase of ALLOC 
processing. Allocation is performed 
using three basic steps: 

1. Get limit information from the PIB. 
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3. 



Get allocation information from the 
ALLOC Stat emen t . 

Update the PIB information with the 
ALLOC statement information. 



STLLMT 



KQ 



Phase $$BATTNG START Statement Processor^ 
Chart KS 



OPLGT KS 

START+2 KS 

Entry point to the first phase of the 
START processor. 
STARTBG KS 

TERM71 KS 



Phase $$BATTNH START Statement Processor^ 
Charts KT-KU 



ADDRLP KT 

Start of a repetitive sequence of code 
used to relocate the CCW string into the 
root phase, $$BATTNA. 

CHKFGA KU 

LOGGER KU 

Entry point to the subroutine used to 
print the exact number of significant 
characters (nonblank) found in the I/O 
area, BUFFER, on the logical unit 
SYSLOG. 

MOVTBL KT 

Entry point to the second phase of the 
START processor. 

REVSCN KU 

Start of a repetitive sequence of code 
used to perform a reverse scan of the 
I/O area called BUFFER. The scan 
searches for a nonblank character to 
signify an output. 

WFMRES KU 

Entry point to a subroutine used to set 
up the label area. The subroutine 
writes a filemark on the label cylinder. 



Phase $$BATTNI, Charts KV~KZ; LA-LG; MJ-ML 



ALT KW 

Start of a routine to make an alternate 

assignment. 

ASGCHG MK 

ASGPUB KW 



ASSGN KV 

Entry point to the ASSGN statement 
processor. 

CASERR LG 

Error exit. 

CHKFUA ML 

CHKJIB LD 

JBSLUB is replaced with LBSLUB. (See 
Listing-only Section of this label 
list. ) This routine finds any JIBs 
assigned to a LUB that has been 
unassigned prior to making an 
assignment. 

CHKMOD , KV 

Start of a repetitive sequence of code 
used to check the mode value in the 
ASSGN statement against the valid mode 
values in a table. 

CHKNXC LF 

CHKOWN ,. . KX 

CHKPUB KZ 

Start of a table look-up to find the 
channel and unit, specified in the ASSGN 
statement, in the PUB table. 

CHKRNG LF 

Entry point to a subroutine used to 
check a field of characters, one by one, 
for valid limits. 

CKNDCH KW 

Begins a search for an unchained JIB 
entry . 

CKNXJB , LD 

Exit point to the scan JIB subroutine^ 
SCNJIB. (See label list for this 
phase.) The subroutine is entered to 
reset JBSLUB (see Listing-only Section 
of the label list) according to any JIB 
chained to the logical unit. 

CMPBPT LA 

Test for identical PUB pointers. When 
the PUB pointers are equal, it means 
that another LUB is assigned to the 
physical unit pointed to by the LUB just 
unassigned. (See UNPA this label list.) 
If no other LUB with a matching PUB 
pointer is found, the ownership flag of 
the PUB pointed to by the LUB in LBSLUB 
is reset to indicate that PUB is not 
assigned to any LUB. 

DNEERR ,. . LG 

Error exit. 
GETKEY ,. . ML 

GTNX JB LA 

Continues search for LUBs with a PUB 
pointer that matches the pointer in 
LBSLUB. However, the search is within 
the JIB table. 

GTNXLB • . LA 

Start of a repetitive sequence of code 
to get each LUB of a given class and 
compare its PUB pointer with the PUB 
pointer of the LUB in LBSLUB. 

HEXCON LE 

Entry point to a subroutine used to 
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convert a variable length field of a 
hexadecimal number in the form 

X'nn ' to binary. 

HOLD MK 

Entry point to the HOLD processor. This 
routine is used to set a switch in the 
appropriate PIB assign flag. This 
switch can be interrogated later by the 
Job Control program. 



IDSERR 

Error exit. 



LG 



MKASGN KW 

Entry point to a routine used to make 
the actual assignment during ASSGN 
processing. The assignment is made by: 

1. Establishing the PUB pointer in the 
LUB. 

2. Setting the ownership byte in the 
PUB. 

3. Setting the mode byte in the PUB. 
(For tape devices only.) 

MODRST . , KV 

Test of the mode value. The instruction 
at this label is modified so that the 
immediate field contains the set mode 
command. 

NASERR , LG 

Error exit. 
NDCHFD KW 

Entry point to a routine used to chain a 

JIB entry to the JIB table. 
NDTERR LG 

Error exit. 
N JPERR LG 

Error exit. 
NLUERR LG 

Error exit. 
NUMCON LE 

Entry point to a subroutine used to 

convert a variable length field of the 

form nnn....n to binary. 
NWPBPT KW 

OWNRSH KV 

Test to determine if a device has 
already been assigned to a different 
area. 

READ KX 

Entry point to the read processor. 
RELSE MK 

Entry point to the RELSE processor. 

This routine turns off a switch in the 

appropriate PIB assign flag. This 

switch can be interrogated later by the 

Job Control program. 
RETURN , KW 

Exit to the root phase, $$BATTNA. 

RNGTOP LF 

RSTOWN , LA 

SCNJIB LC 

Entry point to a subroutine used to: 
• Initialize JBSLUB (see Listing-only 
Section) with the first and last 



bytes of the JIB chained to the 
current pseudo-LUB entry of JBSLUB. 

• Return immediately to the calling 
sequence when an end-of-JIB-chain 
condition is found. 

SCNLBS , LA 

Entry point to a subroutine used to: 

• Return, sequentially, each LUB entry 
in a given class to the calling 
routine. 

• Return immediately to the calling 
routine when there are no more 
entries in a given class. 

SCNLUB , LB 

SNGCHG MK 

SNGUNA MJ 

SYSXN2 KY 

Entry point to the subroutine described 
below (SYSXXX) when it is entered as a 
result of UNA statement processing. 

SYSXXX KY 

Entry point to a subroutine used to 
check and convert a field in the form 
SYSnnn to an address pointer to a LUB 
entry and PUB entry associated with the 
logical unit. 

TMFAVP ,. . LD 

Save area for the old JIB pointer. This 
pointer is stored by the scan JIB 
subroutine, SCNJIB. 

Entry point to a subroutine used to 
check and convert a field in the form 
X'cuu' to a PlJB entry address, a PUB 
pointer, device type, and mode reset 
byte. 



UCUERR LG 

Error exit. 
UNA , MJ 

Entry point to the UNA ( Unas sign) 
processor. This routine is used to 
selectively unassign all the programmer 
class units of the area specified by the 
operand of the UNA statement. 

UNALOP .r . ML 

UNARTN ,. . ML 

UNPA LA 

Entry point to a routine to unassign 
currently assigned logical units. The 
subroutine saves the LUB entry of the 
LUB to be unassigned in location LBSLUB. 
It then unassigns the LUB in the LUB 
table. It checks the LUB table and JIB 
table for other LUBs that point to the 
physical unit pointed to by the LUB just 
unassigned. It resets the ownership 
flag in the PUB if no other LUBs point 
to that physical unit. Any stored 
alternate assignments found in the JIB 
table are treated as LUBs (unassigned 
followed by a search for matching PUB 
pointers) . 

UNPAN2 LA 

Entry point to the unassign subroutine 
for the UNA statement processor. 



( 
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Phase $$BATTNJ LISTIO Statement Processor, 
Charts LH-LM 



ASGLST ., , LK 

Entry point to the subroutine for 
listing I/O assignments when all 
preliminary setup steps have been 
completed. 

CHKFl LH 

Test for an Fl operand. 
CHKF2 LH 

Test for an F2 operand. 
CHKUA LH 

Test for a UA operand. If UA is found, 
the header 'UNASSIGNED' is put into the 
I/O area, BUFFER. 

CKPBUA LH 

Start of a repetitive sequence of code 
to test the status of the devices in the 
PUB table, searching for an unassigned 
device that is not down. 

CUAPNX LH 

Check the next PUB entry. 

LANXJB LK 

Entry point to the routine used to get a 
chained JIB entry and inspect its 
status . 

LISTIO LH 

Entry point to the LISTIO processor. 

LSTASG ,. LM 

Entry point to the subroutine used to 
calculate address of the PUB, convert 
the channel and unit information to 
hexadecimal E3CDIC, set up IGN and UNA 
headers as required, and call the 
subroutine to output the I/O area. 

LSTAUN LK 

Entry point to the subroutine used to 
list the assignments for either Fl or F2 
programmer class units.. The subroutine 
sets up primary and secondary headers, 
calls the LUB scanning subroutine and 
the JIB scanning subroutine, and calls 
the final output subroutine. 

LSTBG LJ 

Entry point to the subroutine used to 
list BG units. When this routine is 
used the System Class units are also 
listed preceding the BG units. 

LSTBUN ...' LK 

Entry point to the subroutine used to 
list assignments for BG programmer class 
units or System Class units. 

LSTFl LJ 

Entry point to the subroutine used to 
list Fl units. 

LSTF2 LJ 

Entry point to the routine used to list 
F2 units. 

LSTPRG LL 

Spaces one line and resets program 
switch SYSSWH causing the listing of 
System Class units to stop (Chart LK) . 

LSTSTD LL 

Reset switch STDSWH causing the listing 



of standard assignments to stop (Chart 
LK). 
LSTUA LN 

Program switch set to NOP (Chart LH) 
when a UA operand is found. The switch 
is reset to branch when the header, 
• UNASSIGNED • has been printed, 

NDSCAN LL 

NOTASG , '. LM 

Sets IGN in the I/O area, BUFFER. 
NOUNIT LL 

Entry point to output a 'NONE' header if 
no units were listed as unassigned. 
NXTLUB ,. • . LK 

Start of a repetitive sequence of code 
used to get each LUB entry in a given 
class. 

OUTPUT LM 

Entry point to the subroutine used to 
output and clear the I/O area, 

SAVLUS LK 

Save the logical unit specification. 
SPACE LL 

Entry point to a subroutine used to 
clear the I/O area, BUFFER, so that a 
blank line will be logged. 

STDSWH ^ . . LK 

Program switch set to branch when stored 
standard assignments are to be logged. 
The branch is taken at the end of the 
JIB table scan. The scan finds any 
stored standard assignments. The switch 
is reset at location LSTSTD, Chart LL. 

SYSSWH LK 

Program switch set to branch when system 
units are to be logged. The switch is 
set to branch by the list BG routine. 
Chart LJ. The switch is reset to NOP 
after the System Class units have all 
been logged (Chart LL) . 

SYSUNT LK 

UALNOT LN 

UAPSWH LH 

Program switch set to branch after unit 
assignments have been listed. This 
switch is initialized in the NOP state. 
It is set to branch just before the 
•UNASSIGNED' header is logged. 



Phase $$BATTNK VOL Statement Processor, 
Charts LP-LW 



CNUNCO LS 

Entry point to a subroutine used to 
check and convert a field of the form 
SYSnnn, when n equals any number in the 
range 0-9, to a logical unit class. 

CONCAT LR 

Entry point to a subroutine used to: 

1. Read the second half of a statement. 
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2. Join the first and second parts of a 
statement forming a single 
statement. (This operation is 
called concatenation.) 

3. Reset the address of the operand in 
the I/O area named BUFFER, 

4. Reset the length of the operand. 

DLAB LT 

Entry point to the disk label (DLAB) 
processor. A DLAB statement must be 
preceded by a VOL statement and followed 
by one or more EXTENT statements. Label 
information is written on the SYSRES 
label cylinder for use by the LIOCS open 
routines. 

DLBOUT LT 

DOP34 , LU 

Entry point to the subroutine used to 
get the third and fourth operands of a 
DLAB statement. After obtaining the 
operand y the subroutine checks its 
validity and converts EBCDIC information 
to binary. 

LAXERR LV 

Error exit. 
LBLOUT LW 

Entry point to the subroutine used to 
output the label information that has 
been accumulated in the I/O area, 
BUFFER. The subroutine: 

1. Sets length information in the write 
and verify CCWs. 

2. Determines if space is available on the 
label track within SYSRES. 

3. Updates the disk address if necessary. 

4. Checks to ensure label area extents on 
SYSRES are not exceeded. 

5. Sets up the seek address and CCB. 

6 . Branches to the I/O subroutine (EXCPRG) 
to write and verify the label 
information on SYSRES. 

NLSERR LV 

Error exit. 
NLUERR LV 

Error exit. 

OTSERR LV 

Error exit. 

RSRMCP LW 

TPLAB LQ 

Entry point to the tape label (TPLAB) 
processor. This statement must be 
preceded by a VOL statement. Label 
information is written on the SYSRES 
label cylinder for use by the LIOCS open 



routines. 

TPLEND LQ 

TSHORT LQ 

VOL . . , LP 

Entry point to the volume label (VOL) 
processor. This statement must precede 
DLAB or TPLAB statements. The volume 
label processor: 

1. Tests for proper statement sequence. 

2. Outputs any label information 
previously accumulated in the I/O 
area, BUFFER. 

3. Checks the volume information and 
stores it in the I/O area. 



Phase $$BATTNL XTENT Statement Processor, 
Charts LX-LZ; MA-MB 



INDSEQ LY 

Start of extent type, and sequence 

number checking for an indexed 

sequential file type. 

ISCKSQ LY 

ISTYP4 LY 

Start of sequence number checking for a 

type 4 extent. 

NEWXTN . . . . , MB 

Exit from XTENT processor. This 

sequence of code re- initializes the 

extent processor for subsequent XTENT 

statements . 
NODCUX , MB 

Sets program switch, MTRSVD, for LIOCS. 

(See Listing-only Label List.) 
NOTSEQ LX 

Test for direct access file type. 

OUTLBL MB 

Calling sequence for the subroutine used 
to output label information from the I/O 
area into the label cylinder of SYSRES. 

PACKCG ,. . MB 

SXTPOK , LX 

Calling sequence for the subroutine used 
to get the extent sequence number 
(XT0P12). The sequence number is 
validity checked to determine if it is 
in ascending sequence. 

XTENT , LX 

Entry point to the extent (XTENT) 
processor. The XTENT statement must 
follow either a DLAB statement or 
another XTENT statement to be valid. 

XT0P3 LZ 

Entry point to routine used to: 

1. Get the extent limit information. 

2. Validity check the extent limits. 
This routine is generalized so that it 
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can be used for both lower limit and 
upper limit extents. 
XT0P5 LZ 

Entry point to the routine used to: 



1. 



2. 



3. 



Get and check the serial number and 
store it in the label area DSECT 
(I/O area) . 

Convert the SYSXXX field of the 
extent to class and displacement. 



Get the B2 field of an extent, 
convert it to binary, and store it 
in the label area, DSECT (I/O area). 

XTOPl 2 MA 

Entry point to a subroutine used to 
extract and validity-check the first two 
operands (type and sequence number) of 
an XTENT statement. It converts the 
operand to binary, and stores it in the 
label area, DSECT (I/O area). 

XT0P3 4 MA 

Entry point to a subroutine used to 
extract limit information from the XTENT 
statement, perform initial validity 
checks, convert the numeric EBCDIC limit 
data to binary, and put the limits iiito 
the label area, DSECT (I/O area). 

XTOUT MB 

XTUNIT , MB 



temporary label storage area to the 
label storage area. 

2. Clear the remainder of main storage 
to initialize it for the foreground 
program being initiated- 

MVCLRT MF 

NOLBPR ME 

PNPERR MC 

Exit to the subroutine used to send 
error messages (ERRRTN) . The subroutine 
eventually exits to CONTROL (Chart KB) . 

RSRMCP MD 

UCS MG 

UCSDN MG 

UCSSCN MG 

UCSl MG 

UCS2 MG 

UCS3 MG 

UCS4 MG 



Phase $$BATTNN Timer Statement Processor, 
Chart MH 



Phase $$BATTNM EXEC and UCS Statement 
Processor, Charts MC-MF 



EXEC MC 

Entry point to the execute (EXEC) 
processor. This phase is the last 
processing phase of the foreground 
initiator. The foreground program will 
be loaded when this phase has finished 
executing and the foreground program has 
been chosen by the task selection 
mechanism of the supervisor. 

FINISH MF 

INITL MG 

MOVLOP MF 

Start of a repetitive sequence of code 
to move the last two routines of the 
EXEC processor to the main storage area 
occupied by the root phase, $$BATTNA. 
The root phase resides in the logical 
transient area of main storage. The two 
routines are moved 256 bytes at a time. 
The last time the move is executed, some 
remaining number of bytes (less than 
256) are moved to the logical transient 
area. 

MOVRTN MF 

Entry point to the subroutine used to: 

1- Move any label information from the 



CHKOWN MH 

Test for timer ownership. 

TIMER MH 

Entry point to the TIMER processor. 
TIMLNK MH 

Entry point to a subroutine used to 
assign the system timer to the program 
specified in the TIMER statement. 

TNAERR MH 

Error exit. 



Phase $$BEOJ (Supervisor B~transient) , 
Charts NA~NC 



ARCANCEL NA 

B-transient $$BTERM is fetched to 
perform functions of an Attention 
Routine cancel.. 

CNCLTEST .., ,. ... NA 

Routine which determines cause of cancel 
and selects appropriate subsequent 
program to be fetched. 

DKTYPE ,. . NC 

If output device to receive dump is 
disk, the extents for disk device 
assigned to SYSLST (recorded in DIB 
table) are checked to see if extents 
filled. If they are, the dump is 
bypassed and the next program in the 
terminating sequence is fetched. 
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ENTl NB 

Entry point for subroutine which tests 
for user Program Check and/or Operator 
Communication Option table entries - if 
there are any, they are reset to zeroes. 

ENT2 NB 

Same as ENTl for Interval Timer Option. 

ENT3 NB 

EOJSTEP NB 

Routine if BG program is canceled due to 
reaching normal end-of-job. 

FGJOB NC 

FGLST NC 

IJBEJ20+8 NA 

INTERR , NA 

LOGLIST NC 

Entry to subroutine to output message 
regarding canceled program. 

MVZ NC 

Identification is made of physical 
device associated with SYSLST or SYSOOO. 

OCTEST NA 

Test is made for existence of Operator 

Communication Option. 
ONLIST NC 

Determination is made whether message 

should be outputted on SYSLST or SYSOOO. 
OTHERS . , NA 

POTEST NA 

Test is made for existence of Program 
Check Option entry indicating user 
routine will handle program check 
errors . 

PROGCHK NA 

PUT NB 

Entry to subroutine which uses PIOCS to 
output message. 

RLCCB NC 

Depending upon device to be used for 
output, the appropriate CCW address is 
placed in a common CCB. 

SETLOGUN NC 

Routine which sets logical unit address 
for either SYSLST or SYSOOO in CCB after 
determination has been made as to \^ich 
symbolic device will be used for message 
output . 

SUPPRIO NB 

This routine is entered if an abnormal 
end-of-job condition exists and the 
B-transient $$BTERM is executing. 
Should an I/O unrecoverable error occur 
which would then cause a cancel of 
$$BTERM itself, an unending loop would 
result. Therefore I/O operation is 
bypassed and $$BTERM is recalled. 

SVCERR NA 

SVCO NB 

Entry point to subroutine which uses 
PIOCS to output message. 

SVC2 NA 



TPTYPE . . . . , NC 

TPTYPEl . . • NC 

UNNORM NA 

Routine entered when abnormal end-of-job 
condition exists. Investigation will be 
made as to cause of cancel and type of 
program executing to determine which 
B-transient of the terminating phases to 
call next. 



Phase $$BE0J3 Supervisor B-Transient, Chart 
ND 



CLI , ND 

GARY •...., ND 

GO ND 

HALTIO . . . , ND 

ITERATE , ND 

LASTPUB ND 

PUT ND 

QUEUE ND 

TM ND 



Phase $$BTERM Supervisor B-transient, 
Charts NE-NH 



ADDLST NF 

The pointer from FAVP byte which was 
pointing to the first available JIB 
before this terminating phase began is 
put in the chain byte of the 
last- dequeued JIB (using register 8 as 
an intermediate storage) . The second 
byte of the LUB has a pointer to the 
first JIB associated with that LUB; this 
pointer is now put in the FAVP byte. 

CHAIN NF 

Routine which zeroes additional JIB 

entries if a LUB has more than one JIB. 
CONTSCAN NG 

Program ownership' (Fl, F2, or BG) of 

devices is determined. 

DEQUEUE ..,.,... NF 

The JIB pointer from the LUB is 
temporarily stored at label FRLSTBEG. 
The JIB pointed at by the LUB is 
addressed and its first 3 bytes are 
zeroed. The chain byte (4th byte) of 
the JIB is checked for additional JIBs 
in the chain; if there are any, they too 
have their first 3 bytes zeroed until 
the end of the chain is reached. 



( 
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DEQUEUED NF 

The LUB being unassigned is made 
X'FFFF', The next ^.UB is then addressed 
and tested for associated JIBs, This 
continues iintil all the LUBs have been 
checked, 

DONE NE 

Registers are prepared to do a PUB table 
scan. 

ENDPUB NE 

Test is made to determine if end of PUB 
table has been reached, 

FGl NG 

GETBYTE NG 

Tape Error Block (TEB) data is retrieved 
and prepared for logging; the first 3 
bytes of the TEB entry are zeroed and 
the statistics are logged. 

GETNXT NG 

Entry point to subroutine for actual 
printing of TEB statistics on SYSLOG. 

LOG NH 

MOD NE 

PUB Job Control flags are reset for the 
devices which are owned by the program 
being terminated. 

MTAPE NG 

The device type from the PUB table entry 
for the device is examined. If the 
device is not a tape drive, the PUB scan 
proceeds to the next entry in the table; 
if it is a tape drive, the Tape Error 
Block (TEB) for that particular drive is 
addressed and checked for any record of 
tape errors. Should this tape drive 
have experienced no errors, the PUB scan 
resumes and the next device in the PUB 
table is investigated. 

MVI NE 

A detach flag is posted in the PIB for 
the terminated program; the portion of 
core occupied by this program is now 
available for overlay. An End-of- 
Termination switch is set in the 
PIBPUBAS flag byte, an SVC 22 releases 
control of the system from this program 
and an SVC 11 returns the system to the 
Task Selection routine of the 
supervisor . 

NOP NG 

Switch to enter or bypass the routine 
which prints headings prior to logging 
the Tape Error Block (TEB) statistics. 
Since only one set of headings is 
needed, this routine will be used only 
for the first TEB statistics logged; 
after being entered once, this routine 
is subsequently bypassed by making this 
switch an unconditional branch. 

OUTAR . NE 

Entry point to this program phase after 
it is fetched. The output area address 



is loaded into a CCW; register 13 is 
loaded as a link register to the 
unassign routine • The terminated 
program is identified as being an F2 job 
or otherwise; if F2, the ownership flags 
will be reset in the PUB "entries of 
devices owned by this program. 

If the program is not an F2 program, 
it is therefore an Fl because the 
$$BTERM phase is called to terminate 
foreground programs. The PIB assign 
flag byte is checked to see if the 
cancel switch is on which indicates 
cancel occurred while in a terminator 
phase due to an I/O malfunction. To 
prevent a repetitive 

cancel-within-cancel loop, a branch is 
set in the switch at label LOG to 
suppress further I/O operations. 

PHYSEIZE NE 

Further I/O operations are disabled and 
an SVC 22 is issued which disables 
multiprogramming and gives this program 
control over the system to complete its 
desired functions until another SVC 22 
is issued to release control. 

PRCOMPL NE 

Routine which gets the job name from the 
foreground save area, to identify the 
job and writes a message "PROGRAM 
COMPLETED." 

SETUP . , NE 

If it is not a normal end- of -job step 
and is not the Attention Routine which 
is being canceled, the Tape Error Block 
(TEB) statistics are obtained and 
logged. 

SKIPHDR NG 

Routine prepares to print channel and 
unit number of the device, the permanent 
read error count, and the number of 
times the read error routine is entered; 
this data is obtained from the Tape 
Error Block (TEB) for the tape drive. 

TEB NG 

Entry point to the subroutine which 
scans the PUB table for tape devices and 
logs the tape error statistics. 

TEST NF 

LUB entries are checked to see if they 
have any associated JIBs. 

UNASSGN NE 

Check is made if symbolic device 
assignments should be reset. 

UNASSGN+8 .... NF 

The LUBNDX from the PIB of this program 
(Fl or F2) is inserted in register 5. 
In the case of Fl, for example, LUBNDX 
is equal to the sum of the LUBs assigned 
to devices owned by the system programs, 
the background program, and the 
Foreground 2 program. This index is 
doubled because there are 2 bytes per 
LUB entry. The result is the 



Appendix A. Label List 223 



displacement, from the LUB table 
starting address, where this foreground 
program's LUBs begin. By adding this 
displacement to the LUB table starting 
address, the actual address for the 
first LUB is obtained in register 5. 

The number of LUBs assigned to this 
type of foreground program is obtained 
from the NICL (Number-in-Class) ; this 
value is adjusted and doubled. 



Phase $$BE0J1 Supervisor B-transient, 
Charts NJ-NK 



Label 



Chart 



BALR14 NK 

Exit and return to PRINT subroutine for 
output message when cancel of program 
occurs during execution of a logical 
B- trans lent phase. 



CAUSEl 



NJ 



DKTYPE NK 

Routine which checks the extents of 
SYSLST from the SYSLST disk information 
block (DIB) once the I/O device is 
identified as a disk. CCWs and a CCB 
are prepared for disk use. 

FGJOB N J 

Canceled program has been identified as 
a foreground program so message output 
will be on SYSOOO. The SYSOOO LUB is 
located and tested to see if it is 
assigned. If yes, register 4 is set to 
use the SYSLST LUB when reference is 
made to SYSOOO so that the output 
message actually occurs on the device 
assigned to SYSLST. 

FGLST NK 

LOGGER NJ 

Routine which prepares to output message 
on SYSLOG device, providing that the 
device is present, assigned, and not the 
same physical device as SYSLST. If they 
are the same, SYSLST is used. 

NAr4ED N J 

This label indicates task of moving job 
name to output area has been 
accomplished; now the cause of program 
cancellation is to be investigated. 

ONLIST NJ 

Determination has been made that the 
output message will occur on SYSLST. 

PRINT . . , NK 

Entry to subroutine which uses PIOCS to 
write the output message. 

PROG N J 

When a program check has been found as 
the cause of cancellation, the 



appropriate message code and message are 
placed in the output area, and the total 
length of the output message is stored 
in the CCW byte count field. 

SETLOGUN NK 

The logical unit number is stored in the 

CCB, and the PUB entry for the output 

device is located. 

STH NK 

TERM NK 

A supervisor call is issued to fetch the 

$$BPSW program. 

TPTYPE NK 

TPTYPEl NK 

Routine which investigates the physical 

I/O output device. 



Phase $$BE0J2 Supervisor B~Transient, 
Charts NL-NM 



Label 



Chart 



A , NL 

Cancel code from PIB of canceled program 
is compared with codes entered in a 
look-up table until the code is 
identified, or the last entry is reached 
which covers unrecognized codes. 

B NL 

Routine which uses pointer from lookup 
table to displace into an actual message 
code table to obtain code for output 
message. Name of background job is 
retrieved from communications region and 
moved to message output area. 

C NL 

Name of foreground job is retrieved from 
save area and moved to message output 
area. 

CAUSEl NL 

Entry point to start of $$BE0J 
B-transient. 

D NL 

Routine which obtains address of desired 
message and moves actual message to 
output area after having first cleared 
storage where previously used 
instructions resided for use as output 
area. Also sets count value in count 
field of CCW to be used. 

DKTYPE . . , NM 

Routine which checks DIB for SYSLST to 
see if extents are full; sets current 
address from DIB into CCW for outputting 
message. 

FGJOB NM 

FGLST NM 

LOGGER NM 

Entry point to subroutine which outputs 
message on SYSLOG, SYSLST or SYSOOO. If 
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these symbolic devices are unassigned no 

message is written. The next 

B- transient terminating program is 

fetched. 

MVC NL 

ONLIST NM 

PRINT NM 

Entry point to subroutine which uses 
PIOCS to output message. 

RLCCB NM 

Address of CCW for the output device is 
placed in the CCB. 

SETLOGUN NM 

Logical unit address is placed in CCB. 

TPTYPE NM 

TPTYPEl NM 



Phase $$BILSVC Supervisor B-Transient^ 
Charts NN-NQ 



Note: Labels used in this program which 
have the same function as those of $$BE0J1 
are discussed in the label list of program 
phase $$BE0J1. Only those labels which are 
significantly different or are unique to 
this program phase are discussed here. 

Label Chart 

DKTYPE NP 

FGJOB NN 

FGLST NP 

FGTAPE NP 

L NN 

The address of the instruction issuing 
the illegal supeirvisor call is obtained 
and translated to hex; the illegal SVC 
code is also translated to hex and both 
become part of the output message. 

LA NP 

MVC NP 

NOP NP 

ONLIST . , NN 

OVLAY NN 

Job name taken from foreground save area 
will be overlaid by the job name from 
the communication region if the program 
is found to be a background type. 

PNFORSVC NN 

Determination is made whether the cause 
of program cancel was due to an illegal 
SVC or a phase-not-found condition. 

PRINT NQ 

RELOC NN 

RLCCB NP 



SETLOGUN 



NN 



TERM NP 

TPTYPE NP 

TPTYPEl NP 



Phase $$BPSW Supervisor B-Transient, Charts 
NR-NS 



Note: Labels for this program are 
identical to those of $$BE0J1. Please 
refer to discussion of labels on $$BE0J1 
label list. 



Label 



Chart 



BALR14 NS 

DKTYPE NS 

FGJOB NR 

FGLST NS 

LOGGER NR 

ONLIST NR 

PRINT NR 

SETLOGUN NR 

STH NS 

TERM NS 

TPTYPE NS 

TPTYPEl . ,. NS 



Phase §$BPCHK Supervisor B- Transient, 
Charts NT-NU 



Label 



Chart 



DKTYPE NT 

Routine which locates disk information 
block owned by SYSLST^ checks the SYSLST 
extents for room remaining, and stores 
the current address in the seek CCW, 

FGJOB NT 

Indicates program canceled was a 
foreground program, and symbolic device 
SYS 000 must be checked for assignment. 

FGLST NU 

Canceled program has been identified as 
foreground. 

LA , NU 

Data address for disk output area is 
placed in write count, key and data CCW. 

MVC NU 

CCWs are prepared for disk use. 
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NOP NU 

After first line of message is output 
this switch is set to branch and the 
second line of the message will be 
output to the disk; the branch condition 
causes the B-transient $$BDUMP to be 
fetched. 

NOTBG NT 

Routine which recovers the address of 
the instruction which caused the program 
check so it can be identified in the 
output message. 



SYSOOO. The type of device determines 
which B~transient dump program will be 
fetched to perform the actua/1 dump. 

PRINTER NV 

PUT NW 

SETCODE NV 

SYSTST NV 

Routine similar to the NOCHNG routine. 
Identifies the physical device assigned 
to SYSLST for a background program dump. 



ONLIST NT 

Message will be output on SYSLST rather 
than SYSLOG. 

PRINT NU 

Subroutine which uses PIOCS to output 
message. 

RLCCB NT 

SETLOGUN NT 

SYSLST logical unit number is set in CCB 

and PUB entry address for the device is 

obtained. 
START NT 

Entry point to this program to start 

execution. 

TERM NT 

Exit from this program is a supervisor 

call to fetch $$BDUMP. 

TPTYPE NT 

TPTYPEl NT 

SYSLST is identified as a tape drive, 

and the CCWs and CCB are prepared for 

tape output. 



Phase $$BDUMP Supervisor B- Transients 
Charts NV-NW 



BALI NW 

DSKRT NV 

FETCH NW 

FGJOB NW 

The upper storage limit of the program 
to be dumped is calculated by: 
obtaining from the PIB of the canceled 
program the number of 2K blocks of 
storage the program occupies, 
multiplying it by 2048, adding the 
result to the address of the end of the 
supervisor area (= BG save area 
address), and subtracting one byte. 
Register 8 will communicate this value 
to the dump program fetched. 

NOCHNG NW 

Routine used when a foreground program 
is to be dumped, to identify the 
physical I/O device associated with 



TAPEl NW 

When SYSOOO is found to be a tape drive, 
the CCB and CCW are modified accordingly 
to perform a sense operation for a 
file-protect condition. Register 12 
signals the fetched dump program that a 
tape drive receives the storage dump. 

TERM NW 

TPTYPE .... NW 



Phase $$BDUMPF Supervisor B-Transient 
Charts NX-PA 



Label 



Chart 



ALTER NZ 

Switch to enter or bypass SPECIAL 
routine that blanks printing of the 
first two storage data words. To 
illustrate the use of this SPECIAL 
routine, consider the example where the 
beginning address of a problem program 
or parameter dump falls between 3F8 and 
3FF. To begin print of the dump at the 
nearest lower double-word boundary, it 
is necessary to blank out data from 3F0 
through 3F7. 

In the case of a parameter dump, an 
additional calculation is made to 
determine the number of additional 
blanks needed, should the desired 
starting address be 3FC; this number is 
put in register 2 by the $$BPDUMP 
monitor phase and passed to the phase 
actually performing the dump. This 
switch will therefore be a NOP only once 
(if needed) at the outset of the problem 
program portion of a dump, or a 
parameter dump and will normally be set 
to a branch. 

ALTERl .. NZ 

Routine that puts an extra 2 spaces 
between groups of 4 words, making a 
total of 3 spaces,. This makes the dump 
easier to read since storage locations 
such as IBO, ICO, IDO, etc., stand out 
clearly. The word counter, register 0, 
used for this grouping function is reset 
to 4. 

ALTER2 NZ 

This routine increments register 6 that 
points to locations along the print line 
where data information is being 
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assembled. It is incremented by 9 for 
each new word to be printed; one for the 
space between words and 8 for the print 
positions of each unpacked word- 

ALTERS NZ 

Switch to enter or bypass instructions 
that create 2 blank spaces between the 
location counter and first word of 
storage data. Switch will be set to 
branch except when preparing the first 
word of each new print line. 



BLNK2 NZ 

Sublabel of routine discussed under 
ALTERS . 

BTSTCR PA 

Branch and link to TSTCOR subroutine is 
followed by comparing characters of the 
next line to be printed with those of 
the line just printed. If the next line 
is identical, a switch is set to branch 
to the CLRLIN routine that will suspend 
printing the identical line and 
prints SAME instead. 

CLRLIN PA 

See discussion of label BTSTCR. 

CMPCOR PA 

Register 5 contains the highest storage 
location that prints for any single 
line. Register 5 is compared to 
register 8 (which contains the upper 
storage limit of the dump) to see if 
limit of dump will be exceeded should 
the entire line be printed. If register 
5 is higher than register 8, the value 
in register 8 is then loaded into 
register 5 and the printing ceases at 
the dump limit. 

CORE NX 

Register 1 , containing the beginning 
storage address of the problem program 
area, is tested for proper boundary 
alignment. If it is not on a boundary 
that is a multiple of 16, it is adjusted 
to a boundary such as IBO, ICO, IDO, 
etc. , and the switch at ALTER is set to 
NOP. See label ALTER. 

COREl NX 

Preparation of problem program 
identification . 

C0RE2 NX 

Problem program portion of main storage 
is dumped up to limit address contained 
in register 8. 

CORE3 NX 

Routine that obtains and prints 
information about the length of the 
label area of main storage. 

ENDLIN PA 

See discussion of ENDLINl label. 

ENDLINl PA 

Instructions at ENDLIN and ENDLINl are 
used to index the location counter, 
register 7, and identify the storage 
limits to be printed as the last line of 



the dump when printing of identical 
portions of storage had been suspended. 

FPSW NX 

Switch used to bypass routine for 
printing floating-point registers if 
this feature is not present on the 
system. 

LST NZ 

Switch used to return from REGPNT 
subroutine, when last word of a 
Printline has been unpacked and printed, 
to prepare the next line- For register 
printing and user's communication region 
printing it will be a NOP; this permits 
entry to a routine which blanks out 
unneeded high order positions of the 
Printline.. 

LSTLN PA 

The location counter, register 7, is set 
and translated to identify the storage 
locations being printed on each line of 
the dump. This label is also used to 
enter the PRNTLN subroutine on a last 
line condition, thereby bypassing the 
TSTCOR subroutine. 

NOTEST NX 

An area of storage used for phase 
initialization instructions is blanked 
out to be used as an output area for the 
dump. If needed, a branch will be taken 
past the end of the cleared area to the 
next instruction. 

OUT PA 

Switch made a NOP when supervisor 
portion of dump is completed. During 
the problem program portion of the dump, 
the switch permits exit from dump phase 
by fetching $$BEOJ when the dump limit 
is reached. 

OUTl PA 

Switch set to branch if SYSOOO is a tape 
drive, to write a tape mark following 
the record of the last line of the diimp. 

0UT2 .. PA 

Exit from foreground program dump 
$$BDUMPF by fetching B-transient phase 
$$BTERM. 

PAGHED NY 

Entry to subroutine that prepares and 

prints page headings. 
PRINT . NY 

Routine that uses PIOCS to perform I/O 

operations . 
PRINTL . . , NZ 

Entry to subroutine that loads address 

of CCB into register 1 and goes to PRINT 

label discussed previously. 
PRNTLN PA 

Entry to subroutine that defines an area 

of storage to be printed on a line, 

obtains, edits, and prints the data. 



REGPNT 



NZ 
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Entry to subroutine that obtains ^ edits, 
arranges and prints: register data, 
user's portion of the communication 
region information and label length 
information. 

REGPNTl NZ 

REGPNT5 NZ 

Entry to subroutine REGPNT which 
bypasses the blanking of the I/O area, 

RELOCF NX 

If output device is not a tape drive, 
the CCB is supplied with the CCW address 
of the alternate device.. 

SPECIAL NZ 

See discussion of this label under 
ALTER. 

START NX 

Entry point to the program phase fetched 
into the logical-transient area. 

STARTl NX 

SUPV NX 

Beginning of routine that dumps 
supervisor program portion of main 
storage. 

SUPVl NX 

Return to program mainline after 
supervisor program has been dumped. 

TAPNOP NY 

Switch set to branch if SYSOOO is a tape 
drive. 

TAPRTN . , NX 

Data address is stored in the tape CCW 
and CCB is furnished with the CCW 
address. Switches at OUTl and TAPNOP 
are set to branch to perform functions 
necessary for output on tape drive. 

TAPSYS NY 

TAPSYSl NY 

Switch to a NOP if an end- of -volume 
condition is detected on the tape drive 
receiving the dump. 

TPMARK PA 

Routine for writing a tape mark 
following last record of dump. 

TSTCOR PA 

Entry to subroutine that tests whether 
storage area to be printed on a line is 
in dump limits and whether the next line 
will be the last line. Register 3 is a 
pointer to the storage address of the 
first byte of a line to be printed and 
register 5 points to the last byte of 
the line. See CMPCOR label discussion 
which is part of this subroutine. 

TSTLST PA 

The storage address of the last byte of 
the next intended print line is tested 
to determine if it is the last line of 
the dump. If it is, the program enters 
routines to end the dump. 

TSTLSTl PA 

Switch that is set to a branch on last 
line of dump. If a portion of core is 
found that is identical to the previous 
line, this switch is set to a NOP and 
the identical data is shown by printing 



a line with — SAME — . 

TSTPRT PA 

Switch that determines if data will be 
edited and printed as a normal line, or 
if — SAME — will be substituted for 
consecutive identical lines. 

UNPK NZ 

An entry point into the subroutine 
REGPNT discussed previously. 
UNPKl NZ 



Phase $$BDUMPB Supervisor B~transient, 
Charts PB-PF 



Note: The labels for this program that are 
identical to those of the $$BDUMPF program 
are discussed in the label list of 
$$BDUMPF. Only those labels which differ 
significantly or are unique to this program 
are expanded here. 

Label Chart 

ALTER PE 

ALTERl PE 

ALTER2 PE 

ALTERS PE 

BALI PB 

Routine that blanks out initializing 
instructions of this phase so this 
portion of storage can be used as an I/O 
output area. 

BLANKS PE 

Blanks are used to blank out the 
unneeded high-order positions of the 
Printline area when the registers and 
user's part of the communication region 
are printed. 

BLNKST . , PE 

Switch that determines if BLANKS 
instruction will be used; switch will be 
set to branch except for conditions 
given under BLANKS label. 

BLNK2 PE 

BTSTCR PF 

CLRLIN PF 

CMPCOR PF 

COMM PC 

Routine for preparing user's portion of 
communication region data for printing. 

CORE PC 

COREl PC 

C0RE2 PC 

C0RE3 PC 

ENDLIN PF 

ENDLINl PF 

FPSW . PC 

LST PE 

LSTLN PF 
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NOTEST PB 

OUT PF 

PAGHED PD 

PRINT PD 

PRNTL PE 

PRNTLN PF 

REGPNT PE 

REGPNTl PE 

REGPNT5 PE 

RELOC PB 

Same as RELOCF label in $$BDUMPF 

program. 

SPECIAL PE 

START PB 

SUPV PC 

SUPVl PC 

TPRTN PB 

CCWs and CCB are prepared for use with 
tape drive as output device to receive 
dump- 

TRANS PE 

Data is translated into printable 
characters for dump print-out. 
Translate operation is defined in the 
IBM System/360 Principles of Operation 
manual. 

TSTCOR PF 

TSTLST PF 

TSTLSTl PF 

TSTPRT PF 

UNPK PE 

UNPKl PE 



Phase $$BDUMPD Supervisor B-Transient, 
Charts PG-PK 



Note: The labels for this program that are 
identical to those of the $$BDUMPF program 
are discussed in the label list of 
$$BDUMPF. Only those labels that differ 
significantly or are unique to this program 
are expanded here . 

Label Chart 

ALTER P J 

ALTERl P J 

ALTER2 P J 

ALTER3 P J 

BALI PG 

Routine that blanks out initializing 
instructions of this phase so this 
portion of storage can be used as an I/O 
output area. 

BLANKS P J 

Blanks are used to blank out the 
unneeded high- order positions of the 
print line area when the registers and 
user's part of the communication region 



are printed. 

BLANKST PJ 

Switch that determines if BLANKS 
instruction will be used; switch will be 
set to a NOP except for conditions given 
under BLANKS label. 

BLNK2 P J 

BTSTCR PK 

CLRLIN PK 

CMPCOR PK 

COMM PG 

Routine for preparing user's portion of 
communication region data for printing. 

COREl PG 

CORES PG 

DUMP PG 

ENDLIN PK 

ENDLINl PK 

LOAD PH 

The data address for the output area is 
loaded into the disk CCWs, and the 
address of the first CCW of the chain is 
put in the CCB. 
LST PJ 

LSTLN PK 

MOVE PH 

Current address taken from the Disk 
Information Block (DIB) for the 
appropriate symbolic disk device is put 
in output area to serve as the count ID 
information when count, key and data are 
written. The current address record 
number is then reduced by 1 and put in 
the search CCW for writing the first 
dump record. 

MVBLNK PJ 

Sublabel of SPECIAL routine. Refer to 
label SPECIAL in $$BDUMPF label list. 

NOTEST PG 

OUT PK 

OUTl PK 

PAGHED PH 

PDUMP2 PG 

Switch set to branch if it is a 
parameter dump; will bypass printout of 
all parts of core except the area 
specified in the parameter limits. 

PRINT PH 

PRINTl PH 

Routine that uses PIOCS to seek, search 
ID equal, write count, key and data, 
verify,, and wait, for completion of the 
I/O operation. 

PRNTL PJ 

PRNTLN PK 

REGPNT P J 

REGPNT5 PJ 
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SPECIAL P J 

SUPVl PG 

TSTCOR PK 

TSTLST PK 

TSTLSTl .. PK 

TSTPRT PK 

UNPK P J 

UNPKl P J 



PRINT PL 

Entry to subroutine that uses PIOCS to 
test for a tape file-protect condition 
in the event a foreground program dump 
is taken and SYSOOO is a tape drive,. 
PROCED PL 

START PL 

Entry point to B- transient $$BPDUMP. 



Phase $$BPDUMP Supervisor B-Transient^ 
Chart PL 



Phase $$BPDUM1 Supervisor B-transient, 
Charts PM-PQ 



Label 



Chart 



BALI PL 

Sense data is tested for file-protect 
condition if SYSOOO is a tape drive; if 
it is protected, the dump cannot be 
taken and this program phase returns to 
supervisor for selection of next task. 
If not protected, B-transient $$BPDUM1 
is fetched to perform the actual 
parameter dump. 

DISKRT ., PL 

Register 3 is loaded with a 1 prior to 
fetching B-transient $$BDUMPD to signal 
that this is a parameter dump. 

EXIT PL 

FGJOB PL 

Routine that identifies SYSOOO device 

type. 
FIX7 ' PL 

See discussion of next label. 

MAINl PL 

The starting address for the parameter 
dump, entered in register 6, is shifted 
right double logical U positions so that 
any value not a multiple of 16 will now 
be in register 7. If value in register 
7 is now zero, it indicates that the 
starting value in register 6 is on a 
double-word boundary. Register 6 is 
then restored by shifting left to the 
next lower double- word boundary nearest 
the value specified by the dump 
parameter (label FIXT) . If register 7 
was not zero when tested, the value now 
in it is used to calculate the number of 
blank print positions needed so printout 
starts at desired starting byte. 

MAIN2 PL 

The upper parameter address is 
incremented by a word length and tested 
against system's main storage capacity 
to see if requested dump is a valid 
address within core. If not, the upper 
storage limit is put in register 8 to 
impose a valid dump end limit. 



OUT 



PL 



Note: The labels for this program that are 
identical to those of the $$BDUiyiPF program 
are discussed in the label list of 
$$BDUMPF. Only those labels that differ 
significantly or are unique to this program 
are expanded here. 

Label Chart 

ALTER ... PP 

ALTERl PQ 

ALTER2 PQ 

BAL .......... PM 

Routine that blanks out initializing 
instructions of this program phase so 
this portion of storage can be used as 
an I/O output area. 
BTSTCR PN 

CLRLIN PN 

CMPCOR PP 

DATE PP 

ENDLIN PN 

ENDLINl ...... PN 

EOVFG PQ 

End-of-volume has been detected and the 
program decides whether a foreground or 
background program is being dumped. 
Foreground programs dump on symbolic 
device SYSOOO while background programs 
use SYSLST. 

EOVFGN PQ 

End-of-volume has occurred on the tape 
drive receiving a foreground program 
dump (symbolic device SYSOOO). The 
class and unit number for SYSOOO is 
retrieved and stored in register to 
communicate this information to the 
end-of-volume routine $$BCMT07. 

EOVMV PQ 

An end-of-volume switch in the 
communications region is turned on and 
used by the phase $$BCMT07 to indicate 
its function. 

FGHED PP 

FGNAME ......... PP 

FGTST ......... PM 

The logical transient key (LTK) is 
compared with the LTK for a background 
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program, to determine if the program to 
be dumped is a background or foreground 
program, 
FXX •••••••••• PQ 

When word counter reaches zero, 2 extra 
blanks are inserted between words so 
that locations such as IBO, ICO, IDO, 
etc, will stand out, thus making the 
dump easier to read, 

LST PQ 

LSTLN PN 

LSTl PQ 

MVBLNK PQ 

PAGHED PP 

PDUMP PM 

Register 14 is tested to see if it was 
loaded by $$BPDUMP phase to indicate a 
tape drive will receive the parameter 
dump. If register 14 is zero, the 
physical I/O device is a printer. 

PDUjyiPl PM 

Routine that prepares the CCWs and the 
CCB for a printer operation rather than 
tape operation. 

PRINT PQ 

PRINTL PQ 

PRNTLN PN 

PRNTLNl PN 

REGPNT PQ 

REGPNTl PQ 

REGPNT5 PQ 

REGPNT6 PQ 

RELOC PM 

SPECIAL PQ 

SPECIALl PQ 

START PM 

TPRTN PM 

TSTCOR PP 

TSTLST PN 

TSTLSTl PN 

TSTPRT PN 

UNPK PP 

UNPKl PP 



LINKAGE EDITOR PROGRAM (SECTION 5) 



Linkage Editor Program ($LNK£DT. $LNKEDTO , 
$LNKEDT2. $LNKEDT4, $LNKEDT6, $LNKEDT8, 
$LNKEDTA, $LNK£DTC) , Charts QA-SW 



The first portion of the linkage editor 
label list contains labels that can be 
referred to by more than one phase. These 
labels do not appear in any flowchart. 
However, the explanation of these labels 
describes critical areas of the listing. 



L/E Common Labels 



ESDNOO 

Listing Only ; Contains the disk address 
of the first ESD card image if this card 
image is on SYSOOl, 

ESDOOO 

Listing Only ; Contains the disk address 
of the first ESD card image if this card 
image is on SYSLNK. 

FCHPHS 

Listing Only ; Contains the phase number 
of the linkage editor phase to be 
fetched next. 

NMELST 

Listing Only ; A list of control 
sections that have been specified by the 
name list operand of an INCLUDE card. 
The list is blank except when a named 
submodular is still being processed, 

NMSBSW 

Listing Only ; Supplies the information 
in byte 4 of location PERIDA during 
INCLUDE card processing in the $LNKEDT6 
phase. Resets to zero during the 
execution of the control card scan in 
the $LNKEDT4 phase. Bit 6 is set to one 
during initial INCLUDE card processing 
and bit 1 is set during phase post 
processing (autolink mode) . 

NOBLOK 

Listing Only ; Third subfield of the 
28-byte phase header built in the 
$LNKEDT6 phase. Contains the number of 
blocks required for the specified phase, 

NOBYTE 

Listing Only ; Fourth subfield of the 
28-byte phase header built in the 
$LNKEDT6 phase. Contains the number of 
bytes in the last block, 

NXPHRG 

Listing Only ; Seventh and last subfield 
of the 28-byte phase header built in the 
$LNKEDT6 phase. Contains the next 
available load address. This is a 
function of phase length. 

ONSOOO 

Listing Only ; Contains the address of 
the next card to be processed. 

ORPHDA 

Listing Only ; Fifth subfield of the 
28-byte phase header built in the 
$LNKEDT6 phase. Contains the disk 
address of the first block of the phase 
specified in PHEADR (see label list this 
section) . 

ORPHRG 

Listing Only ; Sixth subfield of the 
28-byte phase header built in the 
$LNKEDT6 phase.. Contains the load 
address of this phase. 
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PERIDA 



Listing Only ; The location labeled 
PERIDA is a 30 -byte input control area 
used by the linkage editor program to: 

• Obtain the address of the next card 
image to be processed after the END 
card. 

• Determine the point at which 
processing is finished for an object 
module. 



the include card processor (Chart KN) • 
Figure 80 illustrates the physical 
structure of PERIDA and Figure 81 
illustrates how this location functions 
as a last in - first out list. 

Note: If all five levels of include are 
used, the last 5-byte segment of 
PERIDA contains the address of 
the card image following the 
first include statement. 



• Maintain control over the nesting of 
include statements by functioning as 
last in- first out list to establish 
processing priorities. 

Location PERIDA is used in conjunction 
with either location ESDOOO or ESDNOO 
(see label list, this section) depending 
on the input device being used at this 
time. ESDOOO or ESDNOO is loaded with 
the disk address of the first ESD card 
image of the object module. PERIDA is 
loaded with the disk address of card 
image that follows the control card 
image. The linkage editor program 
compares the disk address in location 
PERIDA with the address in either ESDOOO 
or ESDNOO. Input control is based on 
the result of the comparison that is 
made at END card time. Possible results 
and corresponding input control actions 
are: 

• The address in PERIDA is equal to or 
higher than the address in ESDOOO. 
Process the card image sequentially 
following the END card. 

• The address in PERIDA is lower than 
the address in ESDOOO. Get the 
address of next card image to be 
processed from PERIDA. 

• The address in PERIDA is lower than 
the address in ESDNOO. Get the 
address of the next card image to be 
processed from PERIDA. 

• The address in PERIDA is equal to or 
higher than the address in ESDNOO. 
Effectively shift PERIDA left five 
bytes. Get the address of the next 
card image to be processed from the 
updated PERIDA. 

Before the comparison is made and the 
appropriate actions are taken at END 
card time, the linkage editor program 
ensures a value is available for PERIDA 
(see RECFOO, phase 1 section of the 
label list). 

Location PERIDA establishes 
processing priority by functioning as a 
last in - first out list for up to five 
levels of include (nest depth) . The 
list is built during the execution of 
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Figure 80. PERIDA Iiayout 
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Figure 81. Last In - First Out List (LIFO) 

PHEADR 

Listing Only ; First subfield of the 
2 8- byte phase header built in the 
$LNKEDT6 phase. Contains the 8-byte 
phase name. This is the beginning of a 
special purpose I/O area used when phase 
information is reinitialized. 
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ROOTNO 

Listing Only ; This location contains a 
zero when the first phase is not 
specified root and a one when it is a 
root. The value in ROOTNO is either 
added to or subtracted from the control 
dictionary number. 

• Subtracted - When the control 
dictionary number is being used to 
obtain a control dictionary entry 
address. 

(C/D NO - ROOTNO) X 16 = DISPLACEMENT 
CDENTl + DISPLACEMENT = ENTRY ADDRESS 

• Added - When control dictionary 
entries are built, an adjustment of 
one is necessary for each entry when a 
root phase has been specified. 

SBMDST 

Listing Only ; A program switch that 
indicates when NMELST should be cleared. 
SBMDST is turned on when a named 
submodular [INCLUDE NAME, (CSECT)] is 
found. At the same time, a bit switch 
in location PERIDA (see label list this 
section) is turned on. The apparent 
duplication of switches is necessairy 
because the first 5-byte segment of 
PERIDA is a variable, depending on 
nested levels of include. At END card 
time, a test is made of the bit switch 
in location PERIDA. 

If bit 6 of byte 4 is on, turn SBMDST 
off. The switch in PERIDA can then be 
tested. 

If bit 6 of byte 4 is off, do not 
change the status of SBMDST. The bit 
switch has already been moved to some 
other 5-byte segment of PERIDA. 
The linkage editor program can then test 
SBMDST to determine if the END card 
being processed is part of the module 
named in the include statement (SBMDST - 
OFF) . The name list (NMELST) is always 
cleared at END card time, except when a 
named submodular is still being 
processed. 

TRFRAD 

Listing Only : Second subfield of the 
2 8- byte phase header built in the 
$LNKEDT6 phase. Contains a transfer 
address. 



Phase 1 ($LNKEDT), Charts QA-QU 



Label 



Chart 



ABTERR QM 

Loads $LNKEDTA SO that abort error 



processing can continue. Entered when 
non-recoverable errors are found. 

ACTCAN QU 

ACTCLR QU 

Tests for CLEAR operand. 

ACTERR QC 

Program switch. It is set to load 
address (LA) if an error was found on an 
action card and the main storage 
available is 14K or more. If the switch 
is NOP, there is no error and normal 
processing continues. If the switch has 
been modified to LA by the action 
processor (Chart QU) , an error handling 
subroutine is executed after the 
$LNKEDTO phase is loaded. 

ACTLOP , QU 

Zeros a core image record. 

ACTNMP QU 

Tests for NOMAP operand. 

ACTNPR QU 

Beginning of the action card processor 
routine. 

ACTNTO , QU 

Tests for NOAUTO operand. 

ACTRET QC 

Entry point from the action processor 
(Chart QU) . 

ACTR16 QC 

Program switch. It is set to branch 
when an error is found on an action card 
and the main storage available is less 
than 14K. If 14K or more main storage 
is available, or if no error has been 
found, testing continues. The switch is 
modified by the action processor (Chart 
QU) . 

ADIDSK QK 

Starting label of the update address 
subroutine. 

ALNKCD QQ 

Tests for more ER's left to process. 

ALNKGT QQ 

Entry point to the autolink routine when 
autolink is NOT to be done. Provides an 
exit to load $LNKEDT6. 

ALNKOF QP 

Entry point to the read input stream 
subroutine from the autolink processor 
(Chart QQ). 

ALNKPR ... QQ 

Starting address of the autolink 
processor, which is entered whenever a 
phase has finished processing and 
autolink has been requested. 

ALNKSC QQ 

Tests for end of control dictionary. 

ALNKVL QQ 

Initially, loads register 6 with the 
first control dictionary address. 
Subsequently, ensures the lowest ER in 
the collating sequence is in register 6. 

CDSIZE ...... QN 

Starting label of a subroutine to check 
for control dictionary-linkage table 
overlap. 

CHKSYM QP 
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CLRLOP QU 

Loop established to clear the core image 

library. 
CNVAHX QH 

Tests for iiKDre characters to convert, 
CNVHEX . . QH 

Label at the beginning of a subroutine 

used to convert hexadecimal to binary 

notation. 
CNVHSW QH 

Tests for a hexadecimal numJDer in the 

range A - F. 
CNVSHF QH 

Converts hexadecimal to binary notation. 
CTLSKP QP 

Submodular structure causes skip of 

cards except an entry card. 

DECONT QJ 

Instruction that can be modified within 
the print subroutine. Set to BCTR to 
decrease the lines -remaining- count by 1 
extra line. 

DERCAL QT 

DERDAD QT 

Beginning of subroutine to build core 
image blocks. Basically^ this 
subroutine: 

1. Ensures the text is within the 
limits of the phase. 

2. Finds the core image block the text 
belongs in. 

3. Reads the core image block required 
by the text into the I/O area. 

DERDOK QT 

DERDSW QT 

Program switch used to force continued 
processing when a zero length control 
section is found by the ESD processor 
(Chart RJ) . 

DERITE QT 

DERLOP QT 

Loop to find correct core image block 
fdr the text being processed. 

DERSWl ...... QT 

DISKIO QM 

Entry point to the read/write subroutine 
when the operation code is already set 
to the desired operation, the disk 
search address is set up, and both the 
CCW and the CCB are already correctly 
set. 

DMPHSW QP 

Program switch initialized as a MVC 
instruction. Modified to an effective 
NOP by the ESD processor (Chart RA) when 
a dummy phase card is to be built. By 
the NOP modification, the disk address 
of the ESD card not yet processed is 
retained in location COMNRF for use 
after the phase processing is finished. 
(Dummy phase cards are treated as actual 
phase cards.) 

ERRACT QU 

Common error exit from the action 



processor. Error messages are 
initialized in the action processor, but 
are actually issued during the execution 
of another initialization routine (see 
Chart QC). 

ERRO QA 

ERROR QR 

Beginning of the error handling 
subroutine. 

ERR002 QH 

ERR035 QU 

ERR036 QU 

ERR044 QN 

ERR0a4 QE 

ERR04i*A QE 

ERROaac QN 

ERR050 QT 

ERR070 ...... QE 

ERR091B QA 

ERR093 QT 

ERR094 QM 

ERR112 QU 

EXLOAD QP 

1. Entry point from the autolink 
routine (Chart CQ> when the control 
card processing phase is to be 
loaded. 

2. Entry point from the ESD processor 
when a dummy phase card has been 
built and a control card processing 
phase is to be loaded. 

3. Entry point from the initialize 
$LNKEDT2 routine when the ESD 
processing phase is to be loaded. 

FNDENT QP 

FNDOP . , QU 

Loop control label - 
FNDVRB QC 

Finds the operation field of the card 

image in the input stream. 

HDGCAN QC 

HDGMAP QC 

HDGMSW QC 

HDGOVR QC 

HDGSW2 QC 

HDNGSP QJ 

Tests to determine if a heading line was 
just printed. If a heading line was 
just printed, spaces one extra line, 

IJBINL QA 

INLEXT QC 

Program switch. When 14K or more main 
storage is available, it is set to NOP 
by part one of the initialization 
routine. 

INSOOO QD 

Entry point when the read SYSLNK 
subroutine tests for the presence of a 
record. Also used internally by the 
RDSOOO subroutine. 

INTPTl QB 

Begins part one of initialization. 
Executed after part two. 

INTPT2 QA 
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Begins part two of initialization. 
Executed before part one. 
INTSOl QA 

LOADSW QP 

Program switch used to cancel individual 
phas^e loading. It is set to NOP by the 
initialization routine (Chart QB) when 
all phases are in main storage. 

LOGPRT QA 

LSETB QE 

LTCDAD QE 

Entry point to the control dictionary 

search subroutine from the extract phase 

subroutine (Chart QL) . Computes address 

of the control dictionary. 

(Control dictionary number - ROOT 

number) x 16 = Control dictionary 

displacement. 

CDENTl + displacement = desired entry 

address 

This entry point is used when the 

calling routine already has a usable 

control dictionary number. 

LTCDNO QE 

Entry point to the control dictionary 
search subroutine when a test for 
control dictionary number assignment is 
required by the calling routine. The 
control dictionary number was available 
but because its status was undetermined, 
entry is made to this subroutine. 

LTCDRF QE 

Finds the relocation factor (sign 
controlled) . Also used as an entry 
point from the phase processor (Chart 
SO. 

LTESID QE 

Label at the beginning of the subroutine 
that finds control dictionary number, 
control dictionary address, or 
relocation factor using the language 
translator supplied ESID number and the 
linkage editor constructed linkage 
table. Entry point when the ESID number 
is supplied. 

NDESLP QR 

NOLNPG QB 

NOTACT QC 

Entry point from the action processor 
when an error has occurred in the action 
card operand. Also the normal exit when 
no action card is found. 

NOTCTL QR 

NTESLP QR 

OPEN QA 

Opens both SYSLNK and SYSOOl. 

OVFHDG QJ 

OVFLOW QJ 

Resets lines per page count to 56. Also 
used as an entry point to the print 
subroutine. If used as entry point and 
the first part of the print/carriage 
control subroutine has been overlaid by 
the overlay subroutine, exit is provided 
by the first instruction of the overlay 



subroutine. 

Note: Only the first part of the 

print/carriage control subroutine 
is overlaid. 

OVRLAY QS 

Beginning of the subroutine that 
overlays the print/ carriage control 
subroutine (Chart QJ) , when a NOMAP 
option is found. OVRLAY types error 
messages on SYSLOG. 

PRERR QR 

PRINT QJ 

Beginning of the print/carriage control 
subroutine. If the NOMAP option is 
selected on an action control card, the 
overlay subroutine (Chart QS) begins to 
overlay the print subroutine at this 
point. 

PRLCNT QJ 

Instructions at PRLCNT adjust the 
remaining line count. 

PRNEOF Q J 

Clears the print line area. 

PRTLOG QJ 

Entry point from the error processor. 

PRTLST • . QJ 

Sets up the print area for map. 

RDEXEC • . QP 

Entry point to the read input stream 
subroutine from the initialize routine 
(Chart QC) . 

RDNEXT QP 

Starting label of the read input stream 
subroutine. Normal entry point for this 
subroutine. 

RDPHAS QP 

Sets up fetch of desired linkage editor 
processing phase. 

RDSOOO QD 

Beginning of read input subroutine. 

RDUNIT ....... QP 

RDWRMV QM 

READ QM 

Beginning of the read/write subroutine 
if a read operation is to be performed. 

RECFOO QD 

Program switch set to branch and reset 
to NOP by either the ESD processor 
(Chart RA) or the END card processor 
(Chart RQ) . The ESD processor ensures 
the correct disk address is in location 
PERIDA (see L/E Common Label section, 
PERIDA) by branching to the read SYSLNK 
subroutine at location INSOOO after the 
CCW has been set to NOP. The disk 
address of the next card image is 
located by updating the disk until a 
record is found. Register 2 supplies 
the correct disk address for location 
PERIDA. The END card processor used the 
same technique to locate the disk 
address of the next card to be processed 
(put into location NDSOOO) . RECFOO is 
set to branch to prevent updating beyond 
the proper disk address. 

RELBSW QP 

Program switch that tests for input from 
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the relocatable library. Sets (branch) 
in the include processor and resets 
(NOP) in the END card processor. 

SPACEl QJ 

Entry point to the print subroutine when 

an extra space is required. 
SRCKCD QF 

Label at the beginning of a subroutine 

used to find the last duplicate label in 

the control dictionary. 
SRLABL QF 

Tests for a duplicate label. 
SRPCOD QF 

Tests for end of control dictionary. 

Entry point for the label search 

subroutine. 

TAPEOl QA 

If SYSOOl is a tape^ the DTF table is 
saved by: 

1. Writing the DTF table as the first 
record on SYSOOl. 

2. Writing a tapemark after the DTF 
table on SYSOOl. 

At retrieval time (closing of SYSLNK and 
SYSOOl) , the DTF table is found by first 
backspacing the file (if RLD's on 
SYSOOl) and then backspacing the record. 

TISESD QR 

TSTMAP QJ 

Tests for the MAP option by testing 
MAPSW. 

TYPEVB QQ 

VALDVE QM 

Tests for a valid symbolic unit (SYSLNK 
~ SYSOOl) . 

WRITE QM 

Beginning of the read/write subroutine 
if a write operation is to be performed. 

XTPHGT QL 

Builds an 11-bit phase number in a 

register. 
XTPHNO QL 

Starting label of a subroutine that 

extracts the phase number from the 

control dictionary. 



Phase 2 $LNKEDTO^ Charts RA-RJ 



Label 



Chart 



CHKNPH RA 

Beginning of the ESD processor phase, 
$LNKEDTO. (See Appendix E for a 
detailed description of this phase.) 

CNCALK RC 

The instructions starting at this label 
cancel autolink by moving a hexadecimal 
•FF' into the variable field of the card 



image. This indicates that no autolink 
should be attempted on this ER either 
because autolink has already been tried 
or because autolink should never be 
performed. 

EISDPC RC 

ELBCER RD 

ELBCM RD 

Beginning of CM (common) processing. 
Whenever both the ESD item in the card 
image and the control dictionary entry 
are commons with matching labels, puts 
the common with the longest length in 
the control dictionary. If commons with 
different labels are found, posts the 
new common in the control dictionary. 
The map processor of the linkage editor 
calculates a total length of commons. 
This total, or cumulative, length is 
used to adjust the phase origin. 

ELBDSD RF 

ELBELR RE 

ELBER . , RE 

Beginning of terminal ER processing. 

ELBGSD RF 

ELBINT RH 

ELBLD RG 

Beginning of terminal LD/LR processing. 

ELBLDR ...... RG 

ELBNAS RG 

ELBNCD • . . RH 

ELBNLR RG 

ELBPC . , RD 

ELBSD RF 

Beginning of terminal SD processing. 

ENDLD RB 

EPHLOP RJ 

Tests the control dictionary entry to 
determine if it is an unassigned LD/LR. 

EPHSCD RJ 

EPHSCN RJ 

Loop control label. 

EPHULD RJ 

ERROaO RB 

ERR040 RD 

ERROm RH 

ERR0a2 RB 

ERR043 RF 

ERR043 RG 

ERR045 RC 

ERR046 RD 

ESCNCD RJ 

Sets up for control dictionary scan. 
Whenever a new ESD entry is posted, the 
ESD processor tries to assign any 
unassigned LD/LRs in the control 
dictionary. It sets up a loop to search 
for the unassigned LD/LRs., If the ESID 
has been processed, the ESD processor 
flags the LD/LR as assigned. 

ESDNXT RA 

ESDRET RB 

Common entry point when the processing 
of an ESD item is finished. 
Instructions starting at this label 
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determine if any more ESD items are in 
the variable field of the card image. 

ESDSBM RC 

Loop control label for SD label/name 
list test. 

ESDIST RA 

Tests for the first ESD/SYM record. 

ESLBCD RD 

Beginning at this label, the ESD 
processor searches the control 
dictionary for a label that corresponds 
to the label of the ESD item from the 
variable field of the card image. See 
Appendix E. 

EUPDCN RH 

Stores the control dictionary numiDer in 
the linkage table, thereby completing 
the update procedure. 

EUPDLT RH 

Linkage table update begins at this 
label. Entry point whenever the ESD 
processor requires the update only. 

EUPDOK RH 

Moves the type field from the card image 
into the type field of the linkage 
table. 

EUPDSW RH 

Tests for a non- process SD. 

EUPDXT RJ 

Tests for control dictionary/linkage 
table overlap (see label ELBNCD) . 

EUPTRY RH 

Sets up for exit to a subroutine. Goes 
to LTESID to get the control dictionary 
number. 

PRSDPC RC 

Beginning of SD/PC processing within the 
ESD processor. 



Phase 3 $LNKEDT2, Charts RK-RS 



Label 



Chart 



ACSLTH RR 

Some compilers supply control section 
length in the END card. This routine 
processes the control section length for 
this special case. 

CLREXT RS 

EISCSL RR 

At this location a length was found in 
the END card. The next possible phase 
origin can now be calculated. 

EISXFR RQ 

ENCRLT RR 

Beginning of a loop to clear the linkage 
table. The table is first built during 
initialization. Whenever a module is 
finished processing (signaled by an END 
card) , the linkage table is cleared and 



the starting address becomes the next 
available table address. 

ENDPRC RQ 

Beginning of the end card processor. 

ENDRTN RQ 

Tests SBMDST to determine if the name 
list should be cleared. (See SBMDST in 
label list. ) 

ENDSBM RR 

Program switch providing an exit from 
the END card processor. The switch is 
assembled in the NOP state, initialized 
to branch by the END card processor, and 
reset to NOP by the END card processor 
if the module being processed has been 
autolinked. 

ENDSCD RR 

Searches control dictionary for 
unassigned LD/LRs and ensures the 
control dictionary number for such items 
is negative, 

ENDTOO RQ 

ENDXFR RQ 

ENOXFR RQ 

ENUNAS RR 

ERROOO RK 

ERR013A RM 

ERR051 RM 

ERR055 RN 

ERR058 RR 

ERR091 RS 

ERR091A RS 

IJBOTH RK 

Beginning of $LNKEDT2 phase. This phase 
processes TXT, REP, RLD, and END cards. 

MOVPER RQ 

OTHINC RK 

OTHTYP RK 

Loop control label. 

REPROC RM 

Beginning of the REP card processor. 

REPTXT RM 

Loop control label. 

RLBYWR RP 

RLCONS RN 

RLDPRC RN 

Beginning of RLD pass 1 processing. 

RLRET . • . RN 

RLSTP RN 

RLSWl RN 

Program switch set and reset within 
$LNKEDT2 phase. Setting (NOP or branch) 
determines if the R and P pointers are 
to be processed. Several RLD items can 
have the same R and P pointers. Only 
the first set of identical R and P 
pointers are processed. 

RLWRIT RP 

Program switch set to NOP in the pass 1 
RLD processor when the RLD is to be 
processed in the pass 2 RLD processor. 
If the switch is set to branch (initial 
condition) , the RLD is ignored. 
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TSTESD RQ 

Reference for execute instruction. 
TXTALL RL 

Moves test to the work area and provides 

an exit for the text processor. 
TXTGET RL 

Loop control label. 
TXTPRC RL 

Beginning of the text processor. 

WRSTOl RS 

Label of the instructions that perform 

I/O on SYS 001 when SYSOOl is a tape 

unit. 
WRSOOl RS 

Beginning of the write SYSOOl 

subroutine. 



Phase 4 $LNKEDT4, Charts RT-RZ 



Label 



Chart 



CHKRP RU 

CHKRPN RY 

CMDEL RZ 

Beginning of a subroutine that checks 

for a comma. 
CRDEND RY 

DECDSP RX 

Beginning of decimal displacement 

processing for the operand of a phase 

card. 

DELEXT RW 

DSPRTN RW 

Beginning of displacement operand 

processing. 

ENTALK . , RY 

Provides an exit from the $LNKEDT4 phase 
of the linkage editor when a blank ENTRY 
card is found. 

ENTCRD RV 

Beginning of the entry card processor. 
Note ; At this time^ a blank operand 

field would have*iDeen detected in 
the skip blanks subroutine. (See 
SKIPB and ENTALK in the label 
list. ) 

ENTPRT RV 

ERRNML RT 

Program switch initialized to branch. 
However, if an error occurs on an 
include card and the include card has 
created a name list, ERRNML is set to 
NOP. This allows the name list to be 
cleared prior to card error processing. 

ERROIO RT 

ERR012 ...... RZ 

ERR013 RZ 

ERROIU RU 

ERR015 RY 

ERR025 RW 



ERR033 RU 

EXTRCT •..,.•. RZ 

Beginning of the extract subroutine. 

Used to put the operands into a work 

area. 



FINDEL RZ 

Beginning of a loop to find the 

delimiter that is adjacent to an 

operand. 

FINDND RU 

FNDDEL RY 

Tests for a qualifier in the operand. 
FONDEL RZ 

GETVRB RT 

IJBSCN RT 

Beginning of the $LNKEDT4 phase, the 
first control card processing phase. 

INCCRD RU 

Beginning of the include card processor. 

LABST RU 

Builds the name list of control sections 
from the operand field of an include 
card. These control sections are 
subsequently used to build a phase (see 
NMELST) . 

LKQUO RW 

NAUTO RY 

Tests for a NOAUTO option. 
NTABS ....... RY 

PHCRD RW 

Beginning of the phase processor in the 
$LNKEDT4 phase. This part of the phase 
processor performs two basic functions: 

1. Determines which optional operand 
has been used. 

2. Validity checks the phase card 
image. 

QUAPRO RY 

Beginning of qualifier processing for 
the operand of a phase card. 

RESET RZ 

RUNNING RW 

SAVCTL RV 

Provides exit to the autolink processor 
(Chart QQ) . Saves the disk address of 
the control card before exiting. (See 
$LNKEDT label list entry ALNKPR.) 

SEEBLK RT 

SETMDS RU 

SKIPB RZ 

Beginning of the skip blanks subroutine. 

ST0RR5 RX 

SUBMOD ...... RU 

TSTLIM RX 

TSTNEG RX 

UPDATE ... RZ 
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Beginning of a subroutine to point to 
the next character in the input stream. 



Phase 5 $LNKEDT6, Charts SA-SG 



Label 



Chart 



ALKERR SG 

ALKFND SG 

CHEKQU SC 

CHQUAL SC 

CIMBLK SE 

Phase size check. 

CINOBL SE 

Number of core image blocks required by 
this phase is equal to number of bytes 
loaded divided by block size. Add one 
block for any remainder. 

ERR020 SB 

ERR021 SB 

ERR022 SC 

ERR023 SA 

ERR024 SD 

ERR025 SB 

ERR031 SG 

ERR081 SA 

ERR08 2 SB^ 

ERR092 SE 

IJBCTL SA 

Beginning of $LNKEDT6 phase (control 

card terminal processing) . 

INCERR SG 

INCFND SG 

INCGET SG 

Entry point to the terminal include card 

processor when an autolink is in 

progress. 
INCLOP SG 

Beginning of the relocatable directory 

scan used for autolink, include, and 

terminal processing. The scan looks for 

a module with a name that matches the 

card image name field. 
INCLPR SG 

Beginning of include card terminal 

processing. 

INCRED SG 

ISDISP SD 

Processing when the phase card operand 

is a displacement. 
ISROOT SD 

Processing when the phase card operand 

is ROOT. 

LABINV SA 



NEWPHS SF 

Beginning of processing for the first 

phase card. 
NOTIST ...... SB 

NODUPL ....... SC 

NTROOT SC 

PHSPRC SB 

Phase name processing, 
PHXADD SA 

SCNSYM SC 

SCSYMl SC 

SETPHS SA 

WRPHCD , SA 

WRTHDR SA 

WRTRFR SA 

Saves the transfer address. 



Phase 6 $LNKEDT8^ Charts SH-SL 



This phase is the linkage editor MAP 
processor. Figure 82 is a sample MAP 
printout. 



Label 



Chart 



ADMDSW SH 

Program switch to indicate first time 
through the MAP processor. 

CLRCMN SH 

CNVBIN SL 

Beginning of subroutine to convert 
binary to hexadecimal. 

CNVLOP SL 

COMCHK SH 

Beginning of common (CM) processing in 
the MAP processor. The cumulative 
length of discretely named commons is 
calculated at this point in the program. 

CSCAN SJ 

End of control dictionary test. 

DUPLAB SK 

Tests for duplicate label. 

ERR085 SK 

ESIXTA SH 

ESIXTY SH 

Sets a switch when a transfer label is 

found. 
EXECWR SK 

I/O for error. 

EXTNLP SK 

EXTNSW SK 

EXTSCN SK 

End of control dictionary test. 

FCHRLD SK 

Entry point when NOMAP option is found. 

IJBMAP SH 
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Beginning of the $LNKEDT8 phase of the 
MAP processor, 

LDRGO S J 

LDRSCN SJ 

End of control dictionary scan. 
LDRTSD SJ 

MAPCST SJ 

Sets up for a scan of the control 

dictionary^ searching for control 

sections belonging to the phase 

previously identified in this routine. 
MAPHAS SJ 

Beginning of a control dictionary scan 

searching for phase entries. 
MAPHNM SJ 

Sets up MAP print area with the proper 

phase name. 
MAPLDR SJ 

Sets up for scan of control dictionary 

searching for LD/LRs. 
MPLDSW SJ 

NOTRFR SH 

OVRLSW SK 

Tests for overlay of root phase - 



PHADMD SJ 

Adjusts load address of the phase by the 

cumulative length of the discretely 

named commons. 
PHSCAN S J 

End of control dictionary test. 
PHSTOR SH 

Reinitializes the phase information in 

location PHEADR (see common label 

section) . 

PREXTN SK 

PRTMAP SH 

SCNCMN ...... SH 

End of control dictionary test. 
SETJCS SL 

Sets Job Control flag to show good 

linkage editor output. 



TERSXY , SK 

TRYROT S J 

Tests for root phase prior to setting up 
root message in MAP print area. 

UNRSPC SK 



2^0 DOS System Control 



JOB BURHANS 03/02/66 DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



ACTION TAKEN MAP 

LIST PHASE SLNKEDTtSfNOAUTO 

LIST INCLUDE tSIJBLNKIO »IJBINL10n 

LIST PHASE SLNKEDTO, IJBINL, NOAUTO 

LIST INCLUDE ,SlJBESD10n 

LIST PHASE $LNKEDT2,IJBINLtN0AUT0 

LIST INCLUDE .SIJBOTHIOn 

LIST PHASE $LNKEDT1|, IJBINL, NOAUTO 

LIST INCLUDE ,$IJBSCN10n 

LIST PHASE $LNKEDT6, IJBINL, NOAUTO 

LIST INCLUDE ,«IJBCTL10n 

LIST PHASE $LNKEDT8, IJBLOV, NOAUTO 

LIST INCLUDE ,XIJBMAP10n 

LIST PHASE SLNKEDTA, IJBLOV, NOAUTO 

LIST INCLUDE ,SIJBRLD10a 

LIST ENTRY 



OVERHEAD/INITIALIZATION 
ESD/SYM 

TXT/REP/RLO/ENO 
CONTROL CARD SCANNER 



OHD 0003 
OHD 0005 
OHD 0007 
OHD 0009 
OHD 0011 
OHD 0013 
OHD 0015 
OHD 0017 

PHASE/INCLUDE POST PROCESSOOHD 0019 

OHD 0021 

NAP OHD 0023 

OHD 0025 

PASS 2 - RLD RESOLUTION OHD 0027 

OHD 0029 



03/02/66 PHASE 


XFR-AD 


LOCORE 


HICORE 


DSK-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 




SLNKEDT 


002170 


001800 


002867 


22 1 


2 


CSECT 

• ENTRY 

• ENTRY 

CSECT 

• ENTRY 
ENTRY 
ENTRY 


IJBLNK10 

IJBLNK 

IJBLOV 

IJBINL10 
IJBINL 
IJJCPD3 
IJJCPD1 


001800 
001800 
001F20 

002170 
002170 
0028U8 
0028U8 


-000100 
-000100 




$LNKEDTO 


002170 


002170 


0025CF 


22 3 


1 


CSECT 

• ENTRY 

• ENTRY 


IJBESD10 

IJBESD 

IJBESDND 


002170 
002170 
0025D0 


-0007F8 




$LNKEDT2 


002170 


002170 


002667 


22 3 


2 


CSECT 

• ENTRY 

• ENTRY 


IJB0TH10 

IJBOTH 

IJBOTHND 


002170 
002170 
002668 


-000C58 




SLNKEDTU 


002170 


002170 


00266F 


22 U 


1 


CSECT 

• ENTRY 

• ENTRY 


IJBSCN10 

IJ6SCN 

IJBSCNND 


002170 
002170 
002670 


-001150 




SLNKEDT6 


002170 


002170 


002U97 


22 U 


2 


CSECT 

• ENTRY 

• ENTRY 


IJBCTL10 

IJBCTL 

IJBCTLND 


002170 
002170 
002U98 


-001650 




$LNKEDT8 


001F20 


001F20 


002557 


22 5 


1 


CSECT 

♦ ENTRY 

♦ ENTRY 


IJBHAP10 

IJBHAP 

IJBHAPND 


001F20 
001F20 
002558 


-001BC8 




SLNKEDTA 


001F20 


001F20 


002UEF 


22 5 


2 


CSECT 

♦ ENTRY 

♦ ENTRY 


IJBRLDIO 

IJBRLD 

IJBRLOND 


001F20 
001F20 
002UF0 


-002200 





Figure 82. Linkage Editor Map 
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Phase 7 $LNKEDTA, Charts SM~ST 



Label 



Chart 



ABORT SQ 

Beginning of non-recoverable error 
handling subroutine. 

BLKHDR SR 

Beginning of a routine to build 20 -byte 
core image directory headers. 

BLKLOP SR 

Beginning of a loop to read 2 8- byte 
phase headers from the system work area, 
and to build 2 0-byte core image 
directory headers. 

CANCLE SQ 

CLOSE ST 

Beginning of a subroutine to close 
SYSLNK. To perform a close operation, 
the DTF information is required. The 
DTP table was stored during 
initialization as the first record on 
SYSOOl. If SYSOOl is a disk, the DTF 
information can be directly accessed. 
If SYSOOl is a tape, the close 
subroutine must backspace to the first 
tapemark, and then backspace to the 
beginning of the first record in order 
to get the DTF information. Backspace 
file - backspace record - read DTF - 
close SYSLNK is the I/O sequence for 
tape. 

EXCPOl ST 

Backspace either file or record 
subroutine. 

IJBRLD SM 

Beginning of the $LNKEDTA phase, pass 2 

RLD processor. 
ISCLOS ST 

Issues close to SYSLNK. 

RADD4 SM 

RDOKOl ST 

RDSOOl ST 

Beginning of the read from SYSOOl 

subroutine. Used primarily to get the 

pass 1 RLD information. 

RDTPOl ST 

RECFOl ST 

Updates the disk address after the I/O 

operation if SYSOOl is a disk device. 
REPOOl ST 

Beginning of a subroutine to reposition 

SYSOOl. 

RESDCN SP 

RLADCN SP 

RLCTER SN 

Counts the number of unresolved ADCONS. 
RLDCON SP 

Beginning of pass 2 RLD constant 

processor. 



RLDOP SM 

RLDOR SN 

RLDRAG ....... SM 

Reads RLD information supplied by pass 1 
from SYSOOl. 

RLDRET SM 

Common entry point used during pass 2 
whenever an RLD item has finished 
processing. A test is made for more RLD 
items on the card image followed by a 
test for more RLDs on SYSOOl. 

RLDSWl SM 

Program switch set to branch within this 
phase, whenever pointer processing is 
finished. 

RLDSW2 SN 

Program switch initialized to branch, 
calculates load address (assembled 
origin of control dictionary entry plus 
relocation factor) when set to NOP in 
this phase. 

RLDSW3 SP 

Initialized to NOP. Set to branch 
within this phase whenever R and P 
pointers point to wrong phase, 

RLDSW4 SP 

Program switch initialized to NOP 
indicating the ADCON is to be extracted 
from the core image block. If the 
switch is set to branch, the ADCON is to 
be replaced in the core image block. 

RNXTRN SN 

Tests for unresolved ADCON. 

ROTSID SP 

Counts ADCONS outside the phase limits. 

TPREAD ST 

TSTCNT SQ 

Tests to determine if any error 
diagnostic information is available. If 
error diagnostic information is found, 
it is converted to unpacked decimal and 
printed on the MAP. 

TSTSID SQ 

Sets up I^P information (number of 
ADCONS outside the phase limits) in a 
test register. If the register is 
zeroed, there is no MAP information • If 
the content is nonzero, MAP information 
will be printed. 

TSTUNR SQ 



VERLOP SR 

Beginning of a loop to read and verify 
all core image blocks written by linkage 
editor. All verification occurs at this 
point rather than after each individual 
write operation. 



WRTLOP SR 

Beginning of a loop to write the 20-byte 
core image directory headers in the 
directory. 
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Phase 8 $LNKEDTC, Charts SU-SW 



Label 



Chart 



BEGINN SU 

CATSUP SV 

CHKSUP SV 

CHKTAG SW 

CHKWA SU 

CHKWAR SU 

CHLENT SV 

CNCFiSS SU 

COSTRT SV 

Program switch. Branch equal 
instruction until the last phase entry 
in the system work area is detected (* 
in the 1st byte) . At this time, it is 
changed to a NOP. 

DIRSCN SV 

EOBWA SW 

GOONL SW 

INCRWR SW 



KWITT SW 

LCANCL SU 

L3TPH SU 

MODLR SV 

MVEWA SW 

MVEWB SV 

NBLOCK SV 

NEXCID SU 

NODRUP SV 

NOMTCH SV 

OUTWA SU 

PHNMSS SU 

READWA SV 

REPLRE ;....•.. SV 

RSYSDR SW 

SETADDR SU 

START SU 

WCIDRC SW 

WRTSYD SW 
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LIBRARIAN MAINTENANCE PROGRAMS (SECTION 6) 



Common Library Maintenance Program (MAINT) , 
Charts TA-TH 



Label 



Chart 



AALLOC TB 

ACATAL TB 

ACONDS TB 

ADELET TB 

AEND TA 

ANALEN TD 

ANSWER TF 

ARENAM TB 

AUTOEN TA 

BCONDS TC 

BEGINN TA 

Initial entry to MAINT when MAINT is 

fetched J3y job control. 
BLOPER TD 

Error message 3M21I INVALID OPERAND. 

CALL TH 

CANCEL TF 

CANCLl TF 

COUNT TG 

CPEND TG 

CRDBYT TB 

Refer to note *J1 on Chart TB. 

DMSG TF 

EMAINS TB 

ENTMAI TA 

ERRINV TB 

Error message 3M10D INVALID OPERATION. 

ERRREG TA 

Register containing the address of the 
error message routine , ERRRTN. When 
branching to the error message routine, 
ERRREG is loaded by a BALR instruction 
with the address of the error message 
information. Before leaving the error 
message routine, ERRREB is restored to 
the address of ERRRTN. 

ERRRTN TF 

Error message subroutine common to MAINT 
and all of its phases. 

EXEC TG 

FMAICL TB 

FOUND TH 

FRSTCH TE 

Subroutine to get position and length of 
the first operand in a control 
statement. 

GET TG 

GETIO TH 

IJJMOV TH 

IJJNOSK TH 



IJJPWT TH 

IJJSWAP ..... TG 
IMSG TF 

INITAl TE 

Subroutine to get position and length of 
operation field in a control statement. 

INITIAL TH 

INSTRT TA 

LAPOVR TG 

LGCARD TF 

LGMSG TF 

LOAD 

Listing Only ; Instruction contained in 
DTFs for files that are double buffered 
(two I/O areas are specified). This 
instruction loads the address from 
register 14 in the user's I/O register 
as specified in the DTF. 



MODCON TA 

MOD IF TF 

NEWRD TA 

NOFOND TE 

NOREAD . . . TD 

NOPl TF 

N0P2 . TF 

NORMAL TA 

NXTOPR TE 

Subroutine to get position and length of 
all but the first operand in a control 
statement . 



OPERCL TC 

OPERRL TC 

OPERSL TC 

PUTLST ....... TA 

RDIPT TB 

RETLST TF 

RETURl TG 

SCANFS TD 

SCANRl TE 

SCANR2 TE 

SIXTHC TC 

Compares sixth character of operation 
field to determine the library 
concerned. 

SKIPIT TF 

SLOW TG 

TESBYT TC 

Refer to note *A4 on Chart TC 

TPIPT TB 

TSTLCH ....... TB 
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Core Image Library Maintenance Program 
(MAINTC2),, Charts TJ~TK 



AREA2 

Refer to Figure 65. 



ESID save area,. 



Label 



Chart 



DELETE TJ 

ERRMES TK 

Program switch. Set to NOP if no match 
to a program (first four characters of 
operand) is found in the CI directory. 
Set to branch if a match is found. ' 

ERRMEl TK 

Program switch. Set to NOP if operation 
is delete. Set to branch if operation 
is rename and a scan for the new name is 
performed. 

ERRPHS TK 

Program switch. Set to NOP if operation 
is delete. Set to branch egual if 
operation is rename and a scan for the 
new name is performed. 

ERRPRS TJ 

GONCOM TK 

INCR TK 

Entry to subroutine to continue scanning 
the CI directory from the point where a 
match has been found. 

MREOPM TJ 

MREOPN TJ 

NERRl TJ 

NINLIB TK 

OPALL TJ 

RNXTBL TJ 

SCNALL TJ 

SCNCID TK 

SCNCIN TK 

SKPOND TK 



Relocatable Library Maintenance Program 
(MMNTR2) , Charts TL-TX 



Label 



Chart 



ACATAR TL 

ADELER TL 

AINIT TL 

AINITC TL 

AINITO TL 

AINITP TL 

AINITT TL 

AREAl 

Refer to Figure 65. 



ARE A3 

Refer to Figure 65. ESID saVe area. 
AREA4 

Refer to Figure 65. ESID save area. 



ARENAR 



TL 



ESID save area. 



BUFCCD 

Listing Only : Input area for records 
from SYSIPT (160 bytes). 

BUFFER 

Listing Only ; Output area for physical 
blocks to be written in the relocatable 
library on SYSRES (322 bytes). 

BUFREC 

Listing Only : Area where one ESD, TXT, 
or RLD logical record for the 
relocatable library is assembled (160 
bytes) . 

CANCEL , TL, TM, TX 

CATALR ........ TM 

CATNEW TM 

CATNMD . TM 

CATPFD . . .... .. . TM 

CATREP TW 

CATRIP TM 

CATRIQ TM 

CATRLB TN 

CATSER . . . TN 

CATSIC TN 

CATSYE TM 

Error message 3M52I: RELOCATABLE 

DIRECTORY IS FULL. 
CATSYR TX 

Error message 3M53I: RELOCATABLE 

LIBRARY IS FULL. 
COMCAT ...... TN 

COMCWD . . . TN 

DEERNM TP 

Error message 3M33I (module name) : NOT 

IN LIBRARY. 

DELCMP TQ 

DELET TP 

DELETA TP 

DELETM TP 

DELETO TP 

DELINA TQ 

DELNER TP 

DELNEX TQ 

DELPAL TQ 

DELPFD TQ 

DELPFX - , TQ 

DELPND TQ 

DELPNE TQ 

DELSW TQ 

Switch is set when an entry is deleted 

in the RL directory block being worked 

on. Only blocks being changed will be 

written on SYSRES. 
DRCTRY 

Listing Only ; I/O area for RL directory 

blocks (322 bytes). 
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END ERR 

Listing Only ; EOFADDR specified in DTF 
for SYSIPT. Error message 3M3ai: EOF 
ON SYSIPT - END STATEMENT MISSING. 

ENTMAI TA 

Entry in MAINT root phase to get next 
operand or next control statement from 
SYSRDR or SYSIPT when all operands are 
processed. 

ERRRTN TF 

Label of the error routine. The address 
of this routine is ERRREG ( register 9). 

INVCRD TN 

Error message 3M11D: INVALID CARD IN 

MODULE. 
INVOPD Ti^ 

Error message 3M21I: INVALID OPERAND IN 

CONTROL STATEMENT. 

NEWRD TA 

Reads next control card from SYSRDR or 

SYSIPT. A module has been bypassed on 

SYSIPT because of an error. 
NOCYL TL 

Error message 3Ma3I: NO RELOCATABLE 

LIBRARY. 
NOTIN TW 

Error message 3M33I (module name) : NOT 

IN LIBRARY. 
NXTOPR TE 

Entry in MAINT root phase to extract the 

second operand of a RENAME control 

statement. 

RCESD TR 

RCESDB TR 

RCESDC TR 

RCESDR TR 

RCESDS ., TR 

RCESDT TR 

Compares to see if ESID numbers in input 
records are in sequence. If not, a new 
library record must be started. 

RCESDU TR 

RCESLC TR 

Figure 65 is a table showing how 
AREAl, AREA2, AREA3 , and AREA4 (ESID 
save areas) are set up on Chart TS when 
the ESD output record is full and there 
are more entries to be moved from the 
input record. Refer to Figure 65 to aid 
in finding the ESID number for this and 
the next output record. 

RCESMC TT 

One or two must be the number of entries 
moved to the output ESD record from the 
input card at this point in the program 
because ESD input cards have a maximum 
of three entries. Refer to Figure 65. 

RCESSW TT 

RCESTE TT 

RCESi^B TT 

RCESWR TR 

RCMVBl TS 

RCMVB2 TS 

RCMVB3 TS 

RCMVBa TS 



RCMVB5 . •. TS 

RCMVB6 TS 

RCRLD •. TU 

RCRLDB TU 

RCRLDC TU 

RCRLDE TU 

RCRLDL TU 

RCRLDM TU 

RCRLDN TU 

RCRLDR TU 

RCRLDS TU 

RCRLDU TU 

RCTXT . . . . TV 

RCTXTB TV 

RCTXTC TV 

RCTXTR TV 

RCTXTS TV 

RCTXTU TV 

RCTXTV TV 

RCTXTW TV 

RCWRBK TX 

Subroutine used to write blocks in the 

relocatable library on SYSRES. 

RCWRBL TX 

RCWRBM TX 

RCWRBN TX 

RCWSUR TR 

RENAME TW 

RENCON TW 

RENCSO ,..,... TW 

RENCST TW 

RENERN TW 

Error message 3M54I (module 

name) : ALREADY IN LIBRARY. 

RENERO TW 

RMAINT TL 

Initial entry to MAINTR2 is RMAINT to 

catalog, RMAINT+a to delete, or RMAINT+8 

to rename. 
RSKIPT TX 

Routine used to skip records on SYSIPT 

to the end of the module. 
RSKIPU TX 

END Statement on SYSIPT indicates that 

the end of the module has been reached. 

SYSIPT is positioned at the record which 

follows the END statement. 



SEARCH TW 

Subroutine used to find a name in the 

relocatable directory. 

SEARRD TW 

SRCCMP TW 

SYSDIR 

Listing Only ; I/O area for system 

directory record number 2 (80 bytes). 



UPDAT TX 

Subroutine used to update disk address. 

UPDATl TX 

UPDATE TX 

UPDEND TX 

ZNMNFD TW 

ZNMNON TW 
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Source Statement Library Maintenance 
Program (iyiAINTS2) , Charts UA-UN 



Label 



Chart 



ALLTHT UJ 

Starting address of the all through 

processing routine. 
ALOERR UM 

BEGADD 

Listing Only ; Register 2 contains the 

operand length from the MAINT root 

phase. 

BERRl UH 

BKCMPR UD 

BKCPRS UE 

BKNDCK UE 

BKNDPR UH 

Routine used to check the book- end 

header. It is not written into the 

source statement library. 

BKOSEl UA 

BKOSET UA 

BKOTST UD 

BKWAIT UC 

Entry into I/O routine to read first 

card of book. 
BNDERR UH 

CATALS UA 

Starting address of the catalog routine. 
CATENT UA 

The initial entry to MAINTS2 for catalog 

operation. 

CDCTPR UH 

CDNDTl UF 

CDVSW UJ 

CLGETB UB 

CMXBLK UJ 

CNTERR UG 

CPRDPR UH 

CTLCHT UD 

CTLBYl 

Listing Only ; Switch used to indicate 

whether initialization has been done. 

Switch is initially on, turned off when 

initialization is done. 

DCSW 

Listing Only ; Switch to delete a book 

from the source statement library. 

DECRLG UH 

DELEl UN 

DELE2 UN 

DELENT UA 

The initial entry to MAINTS2 for a 

delete operation. 
DELERR UN 

Subroutine that issues error message for 

any delete errors. 

DELET UK 

DELETS UA 

Starting address of the delete book 

routine . 



DINIRT UA 

DIRUP . UK 

System directory update routine. 

DIRDIl UK 

DLINC UJ 

DNEWT UK 

DNTCHT UK 

DOUCAL UJ 

DOURST UJ 

DOUTST UJ 

DOVERR UL 

DRENMl UK 

DRPROC UK 

DTSTC •. UL 

EODOl UL 

EODIRO UL 

ERRBY 

Listing Only ; Current error switch. 
ERRSEQ . , UC 

FILOU UF 

Output buffer full switch that branches 
to the address contained in register 10. 
The address is FILOUl until the output 
block is full.. When the output block is 
filled, the branch address is changed to 
RELDIN, which is a save area for the 
remainder of the card in compressed 
form. 

FILOUl UF 

FINENT . . UJ 

Entry to MAINTS2 to set a switch 
indicating that the system directory is 
updated and written back on SYSRES. 

FINSHS UJ 

(See FINENT in this section. ) 

FLGBLN UF 

FLGINC UF 

On a compressed card, the high order 4 
bits of column two contain the length, 
in bytes ^ of the following non blank 
field. 

FNDOP UE 

FRESET UJ 

GETBKN , UM 

GETICE UD 

Logical IOCS used to read input from 

SYSRDR. 
GETNNM UB 

INIDAD ....... UM 

INITBK UC 

Two instructions are assembled at this 
location. When the program is loaded, 
the branch instruction is effective- 
The first time the branch is executed, 
it is overlaid with a wait that is 
effective thereafter. 

INITS UM 

Entry to the initialization routine that 
is used to read the system directory 
into storage from SYSRES. 

LASLI2 ....... UM 

LASLID ...... UM 

Subroutine that checks the book name 



Appendix A. Label List 247 



operands for length and determines that 

the first character is alphabetic. 
LCDPRl UG 

Entry to last card processing routine if 

last card was a MEND card- 
LCDPRC UG 

Entry to last card processing routine if 

last card was a BKEND card, 

LCDSWl UF 

LCDTST UE 

LCDTSW UE 

LCDXIT . o UG 

LDCDND UE 

LDSCAD UE 

MVBCAT UB 

The starting address of a section of the 
CATALS routine that is common to all the 
routines. It is used to get the book 
name from the operand field of the 
control card. 

MVBKNl UB 

MVBNMC UM 

Subroutine that saves the book name of 
the book to be cataloged. 

MVSTMT UJ 

NDLERR UC 

NMCK UA 

NNM2 UB 

NOBHDR UE 

NOCPRS UF 

NOFULL UF 

NRELDI UF 

OFULLB UF 

Output buffer full switch that branches 
to the address contained in register 10. 
The address is NOFULL until the output 
block is full. When the output block is 
filled^ the branch address is changed to 
NRELDI, which is a test for the end of 
valid input data in compressed form. 

OPREDl UN 

0PRED2 UN 

OPREIl UB, UM, UN 

OPRERS UN 

OPRERT UN 

Subroutine that determines if an I or D 
type message is to be issued and then 
issues the message. 

OPRRTN UH 

OPRSCN UH 

PARLGT 

Listing Only ; Register 1 contains the 
operand length from the MAINT root 
phase. 

RELDIN UF 

RENAMS UB 

Starting address of the rename a book 

routine. 

RESET UJ 

RNMENT UB 

Initial entry to MAI NTS 2 for a rename 

operation. 
RSETSW UA 



RSTORC UH 

RSTSWS UG 

SBLMSG UA 

SCNBLK UK 

SCNBLN UF 

SCNCD ,. . UF 

SCNivlF UE 

SEQNPR UH 

SEQSW UC 

SETCTM UG 

SLNMC2 UA 

SLNMCK UB 

SNETST UB 

SPLPRT UJ 

SPRTT . UJ 

STEPBl UK 

STEPB2 UL 

STEPLl UK 

STEPL2 UL 

STEPL5 UL 

SWBOA UC 

TSTD5 UL 

TSTOP UK 

UPSTAT UG 

UPSYSD UJ 

WAIOl UC 

WAITBI UC 

Entry into I/O input control 

WAITBO . . UC 

Starting address of the I/O output 

routine. 

WRBLK UL 

WRCMPL UK 

WRDIR UJ 

WRTE UJ 

VJRVRD UK 



System Reallocation Program (MAINTA) , 
Charts VA-VM 



Label 



Chart 



ALLERR VC 

Displays error message 3M62I: TRACKS 
FOR DIR EXCEED CYL FOR LIB. 

BLDTB VD 

BLNKDl VG 

BLNKD2 VG 

CANCEL VA, VB, VC, VD, 

VF, VL 
CCDERR VA, VB, VL 

Displays error message 3M21I: INVALID 
OPERAND in ALLOC CTRL STMNT. 
CDOSA 

Listing Only ; Beginning of reallocation 
tables. Refer to Figure 58 for an 
example of one of the three tables at 
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this label. 

CLOSA 

Listing Only ; Beginning of CI library 
reallocation table. Refer to Figure 58. 

CLSWT VA 

CNVRTK VB 

COMPAR 

Listing Only ; The second operand of 
this compare instruction is a one during 
pass 1 on Chart VJ and a two during pass 
2 on Chart VJ. A compare is made to the 
update code in the reallocation table. 

COMPAl VM 

C0MPA2 VM 

CONVRT VL 

Subroutine to convert the fields in the 
ALLOC control statement from decimal to 
hexadecimal. 

COPYLB VM 

Subroutine used to save the first track 
of the label cylinder in the system work 
area and to restore this track to the 
relocated label cylinder after 
reallocation . 

CYL VB 

DIRERR VD 

Displays error message 

3M63I; xxDIRECTORY ALLOCATION IS TOO 

SMALL. 

DIRUP VH 

DIRUPl VH 

DIRUP2 VH 

DIRUP3 VH 

DIRUP4 VH 

DIRUP5 VH 

DIRUP6 VH 

DIRUP7 VH 

DIRUP8 VH 

DIRUP9 VH 

DIRUPIO VH 

DSKERR VC, VG, VH, VJ, VK 

Displays error message 3M50I: POTENTIAL 

DISASTER ERROR. REBUILD SYSTEM. 

DSPLN VE 

DSPLl VE 

DSPL2 VE 

DSPL3 VE 

DSPL4 VE 

END VK 

ENDJOB VK 

GETAL VB 

GOONl VC 

INTLl VD 

INTL2 VD 

INTL3 VD 

INVALL VD 

LABEL2 VK 

LIBERR VD 

Displays error message 3M64I: xx 
LIBRARY ALLOCATION IS TOO SMALL. 

MAINTA VA 

MOV VB 



MOVE . • • . VJ 

MOVEl VJ 

MOVE2 •.....•• VJ 

MOVE3 VJ 

MOVEU ...'.«•. VJ 

MOVES VJ 

M0VE6 VJ 

M0VE7 ......... V J 

MOVES VJ 

M0VE9 VJ 

MOVEIO VJ 

MOVEll VJ 

MOVl VB 

M0V2 VB 

MVALDC VL 

NEXTAL VC 

NXTL VL 

QUIT ... « VC, VG, VH, VJ, VK 

An SVC 7 is issued on a non-existent 
CCB. 

RDOSA 

Listing Only ; Beginning of relocatable 
directory reallocation table. Refer to 
Figure 59. 

RDSYSD ...••. VC 

RLOSA 

Listing Only : Beginning of relocatable 
library reallocation table. Refer to 
Figure 59. 

RLSWT VA 

RTRN VM 

SDOSA 

Listing Only ; Beginning of source 
statement directory reallocation table. 
Refer to Figure 59. 

SLIB VL 

SLOSA 

Listing Only ; Beginning of source 
statement library reallocation table. 
Refer to Figure 59. 

SUBIT VM 

SUBIT2 VM 

TKCOMP VM 

Subroutine used to increment or 
decrement the disk address by a 
displacement in register 3 (DISREG) . 

TKFMT VK 

TKFMTl VK 

TKFMT2 , VK 

TKFMT3 VK 

TKFMTU VK 

TKFMT5 VK 

TKFMT6 VK 

TKRETN VM 

TRCKS VB 

TSTB VB 

TSTNUM VL 

Subroutine to test the fields of the 
ALLOC control statement. Each character 
must be numeric (0-9). 

TYPEL VA 

UPDATE VL 
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Subroutine used to increment an address 
to the next character of the ALLOC 
control statement. 

UPDl VB 

UPD2 VB 

UPSYSN VF 

UPSYSl VF 

UPSyS2 .•..,. VF 

UPSYS3 VF 

WRITE VG 

WRITEl VG 

WRSYSD VG 

XTNERR VF 

Displays error message 

3M65I: ALLOCATION EXCEEDS SYSRES 

EXTENT. 



Library Condense Program (MAINTCN) , Chart 
VN-VT 



MAICON VP 

MODHR VP 

MODOFL VT 

MON VT 

MVECHN .•,..,.. VQ 

MVREC VP 

MVRECl VP 

MVSLCD VR 

MVSLCN VQ 

NOCND VR 

NTATRK VQ 

NXTTRA VN 

RDDIR VP 

RDLIB ....... VQ 

RESTNA VR 

SKIPWR VT 

SWBYTE 

Listing Only : Bit of CI LIB is 

condensed. Bit 7 of SS LIB is being 
condensed. 



Label 



Chart 



AUTOCN VR 

BLDCCW VQ 

CANNOT VR 

CHAST VP 

CHBLNK VP 

CHDEOB VQ 

CHGCCW VT 

CHGON VT 

CHKEOB VQ 

CUKOFL VT 

CH2 VT 

CHS VT 

CH4 VT 

CNDCL VN 

CNDRL VN 

CNRSL VN 

DISERR VS 

DSMES VS 

ENDROU VR 

FTCHMA VR 

FTCHiyiE VR 

GOWRTl VQ 

G0WRT2 VR 

ICRDAD VT 

ICREND VT 

ICRNOP VT 

ILLEC VR 

IMUP VQ 

INCRID VP 

INCRIL VQ 

lODISK VS 



TESTAU VR 

TRNOFF VS 

WIRTDR VQ 

WRTEDR VS 



Set Condense Limits Program (MAINTCL) , 
Chart VU 



ADDRA . . . . VU 

BEGINN VU 

Starting address of the MAINTCL program. 
BLOPER VU 

CRDDNE VU 

GENPRO VU 

Test the operand for the correct length; 
then put the limits into binary to be 
written into the System Directory. 

MAINTCL VU 

Program used to write the automatic 
condense limits into the Source 
Statement Library 

OPRPRS VU 

PROCCL VU 

PROCRL VU 

PROCSL VU 
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Update Transient^ Library Routine, and 
Foreground Directories Program ($MAINEQJ) , 
Charts W~VZ 



LIBRARIAN ORGANIZATION PROGRAMS (SECTION 7) 



Copy ovstem Program (CORGZ, C0RGZ2) , Charts 
WA-WY 



Label 



Chart 



Phase I CORGZ, Charts WA-WV 



AUNOP VW 

AUTONO VX 

BEGINN , W 

BLGOON VX 

BRIFRL W 

BRTLB VW 

COLMN W 

COMDOL VX 

DSERV VX 

ENDJCE VX 

ENDTBL VW 

ENTCOM VX 

EOJROU VX 

GNLR VY 

GNOP VZ 

GNTP VZ 

GNTRA VY 

INCRPT . , VW 

INCRTR VX 

INCRTT VX 

MESLIB VY 

MESOP VZ 

MESTP VZ 

MESTRA VY 

NOWRTl VX 

N0WRT2 VX 

N0WRT3 VX 

NOWRTU VX 

PROLIB VY 

PROCP VZ 

PROTEL VZ 

PROTRA VY 

RDCID VX 

REIPL VX 

A new supervisor has been cataloged. 

The system must be started over with the 

IPL procedure. 

RELD VZ 

RLSL VW 

SYSDIR VX 

TRNON VW 



Label 



Chart 



ABORT WU 

ALOCAT WD 

AROUND WC 

ARUD WC 

BLDDE WH 

BLKLUP WN 

BLNKT WF 

BUILD WM 

CCARD ....... WB 

CI , WE 

CISON WH 

CLSWT WD 

COMCMP WF 

CONVRT WS 

CONVRTK WD 

COPYRT WE 

CORGZ WA 

CPYALL WQ 

CYL WD 

DIRGET WS 

DLIMIT WG 

DOTCMP WF 

DOTF WH 

DOTFND WF 

END WL 

ENDIND ...... WT 

EOFT WB 

ERETRN WV 

ERRORA , WU 

ERRORB WU 

ERRORC WU 

ERRORD WU 

ERRORS WU 

ERRORl WU 

ERR0R2 WU 

ERR0R3 WU 

ERRORU WU 

ERRORS WU 

ERR0R6 WU 

ERR0R7 WU 

ERRORS WU 

ERR0R9 WU 

ERRRTN WV 

EXCMP WR 

EXIT WL 

EXP WT 

FINDIT ...... WH 

FINDRL WJ 

FRMDIR WC 
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GENTRY WQ 

GETAL WD 

GETDIR WE 

GONXT WF 

lOSYRS WP 

ISSS WK 

LKDOT WR 

MOTEST WM 

MOVE WT 

MOVEl WD 

M0VE2 ,. . . WD 

M0VE2 WQ 

MOVECC . . WQ 

MVALDC WS 

NEWRD WP 

NEXTT WT 

NOFIND WT 

NTALL WK 

NXTL WS 

NXTONE WR 

OTHER WE 

OVRFLW WF 

RALLT WG 

READ WB 

READCC WB 

READDK WP 

RISON WJ 

RLAC WC 

RLSWT WD 

RRL WE 

RRTURN WH 

RTREND WC 

SALLT WG 

SDAL WC 

SDW WA 

SEEIF WH 

SETTS WG 

SINGLE WR 

SISON ,. . WK 

SISONT WT 

SLAC WC 

SLIB WS 

SS WE 

SSWTST WG 

STEXIT WL 

STORE WM 

TESTRG WA 

TRCKS WD 

TRYSS WK 

TSTDEL WH 

TSTNUM WN 

TSTRL WJ 

TURNSW WG 

TYPEL WD 

UPDl WD 

UPD2 WD 

UPDATE WN 

UPDISK WN 

UPINIT WA 



UPIT -. .. WN 

UPRI WN 

UPRITE WN 

WRITE . , WP 

WRIT^IT WM 

WRTBLK WT 

WRTSD WQ 



Phase 2 C0RGZ2, Charts WW-WY 



Label 



Chart 



CLEAR WX 

COPYIT WW 

COREIM WW 

CORGZ2 WW 

CPLB WX 

ENDCHK ...... WW 

EO J WX 

INITIAL WW 

LOOPCT WY 

NOLIB WX 

OUT WX 

READ WW 

READIR WY 

READLB - . . WY 

RXTURN WX 

SETLIM WW 

SKIPWR WY 

SSON WX 

SSTAT WW 

SYSDIR WY 

UPDDIR WW 

UPDISK WY 

UPRITE WY 

WAITRS WY 

WRITIT WX 

WRIII^B WY 



LIBRARIAN SERVICE PROGRAMS (SECTION 8) 



Directory Service Program (DSERV) , Charts 
XA-XJ 



Label 



AAA 



Chart 



XD 
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ADDOl XG 

ADD02 XG 

ADD03 XG 

BBB XD 

CCC XE 

CLEAR XJ 

CNT 

Listing Only ; 576 is the maximum number 
of entries in the transient directory. 

COBL XE 

CONTIN XE 

COUNTING XC 

DATACHEK XG 

DATERR XG 

DDD XE 

DECRT XF 

DIRTYP XA 

DSERV XB 

DSP BYT 

Listing Only ; Initially X'OO'. 

Bit 4 X'08' = TRANSIENT DIR SW 

Bit 5 X'OU' = SS DIR SW 

Bit 6 X'02' = RL DIR SW 

Bit 7 X'Ol' = CI DIR SW 
DTFCPPUT XB 

Subroutine used to print a line on 

SYSLST using CPMOD LIOCS module. 

ENDTD XC 

ENTMAI XA 

EOJ XB , XE 

EOVLST XB 

ERRINV XA 

Displays error message 3D10D; INVALID 

OPERATION. 

FRSTCH XH 

Subroutine used to determine the 
position and length of the first operand 
of the DSERV control statements. 

GETAD XG 

GETADA XG 

GETCD XC 

GETNXRD XD 

GETNXSD XE 

GETNXTD XC 

GETRD XD 

GETSD XE 

GETSUT XF 

This is the entry label to the SDMOD 
LIOCS module when a GET macro is issued 
in the program. 

GETTD XC 

GETTDl XC 

GETXIT XF 

HDRRD XD 

HDRSD XE 

HDRTD XJ 

INITSHL XH 

Subroutine used to determine the 
position and length of the operation 



field in the DSERV control statements. 
lORUT '. XF 



LIBRPRES .... XB 

Subroutine used to determine if the 
relocatable and/or source statement 
libraries are present. 



NEWRD XA 

NOFOND XH 

NOREAD XA 

NOSL XB 

NOTBLK XA 

NXTOPR XH 

Subroutine used to determine the 
position and length of the next operand 
in the DSERV control statements. 

OFF XD 

OFFSD XE 

OPAERR XA 

Displays error message 3D20D; INVALID 

OPERAND. 

RDCONV XD 

RDERU XG 

READl XF 

RELSEA XF 

RET XB 

SCANRl XH 

SCANR2 XH 

SDCONV XE 

SKIPA XG 

SW 

Listing Only : Indicator for directory 

being displayed. 

- not transient directory 

T - transient directory 
SYSDIR *..•.. XB 

TDCONV XC 

TDWORK 

Listing Only : Input buffer for one 

20- byte directory entry. 

TEST ,. . XF 

TESBYT 

Listing Only ; Initially X'80' bit 0, 

X'80' - First control statement switch. 

TESTSL XB 

TRYCD XB 

TRYRD XB 

TRYSD XB 

TSTLCH XA 

TURNOFF XJ 

USERSK XG 

WLRERR XG 

WRHDR XC 

XXX XC 

YYY . • XC 

ZZZ XC 
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Relocatable Library Service Program 
(RSERV), Charts YA-YL 



Label 



Chart 



AINTIS YA 

ALLSW2 YC 

CANCEL YA 

CHP3 YC 

CMPDIR YC 

CJyiP2 YC 

CNVORG YJ 

CPLSOP YB 

CPSLSH YA 

CRDSV7T 

Listing Only ; Program flags. 

Bit = first time switch in RLDPRT 
routine. 

Bit 2 = 2540 reader /punch. 

EDCPGP YE , YG , YH 

EDPCBA YE 

EDPCCS YE 

EDPCIA YE 

EDPCIR YE 

EDPCLA YE 

The number of entries is computed by 

dividing by 16 the variable field byte 

count of the ESD record. 

EDPCLI YE 

EDPCLT YE 

Only non~LD items are included in the 

ESID number count. 

EDPCNA YE 

EDP'CRT YE 

EDPCSC YE 

EDPCSI YE 

EODl YC 

EOMTST YD 

EOMTSl , . YD 

ENDRTN YA 

EOFADDR specified in the DTF for SYSRDR. 

ENDRTl YA 

ERILOP YA 

Error message 3R10D: INVALID OPERATION. 

ESDPBP YF 

ESDPCA YF 

ESDPCH YE 

ESDPIA YF 

ESDPRT YF 

ESDPSB YF 

ESDPTL • YF 

ESDPUD YF 

EXTK3 YD 

EXTRCT YB 

EXTRTl YB 

GETCTL YA 

Subroutine to read control cards from 

SYSRDR. 

GETFIA YL 

GETFIL YL 

GETFLD YL 

GETFRl YL 



GETFR2 YL 

GETFSC .. YL 

GETF3I YL 

GETFSN YL 

GETFSR YL 

GETFTS YL 

GETFWM YL 

IGNORE YC 

ILOPRD YB 

Error message 3R21I: INVALID OPERAND. 
INCRIT YH 

NOLIB YA 

Error message 3R43I: NO RELOCATABLE 

LIBRARY. 

NOPCH YD 

NOTHRl YC 

Error message 3R27I: (module name) NOT 

FOUND. 

PCHSUB YK 

PCHSWT . .. YA 

PPSWT YA 

PRTHCM YD 

PRTHCN YD 

PRTHDR YD 

PRTHGS YD 

PRTHGl YD 

PRTHG2 YD 

PRTHUD YD 

PRTSRA YK 

PRTSSK YK 

PRTSUB YK 

PRTSWT YA 

PRTl YD 

PSUB2 YK 

RDCD YA 

RDDISK YK 

RDPCAI YH 

RDPCBB YH 

RDPCCT YH 

RDPCS4 YH 

RDPCS8 YH 

RDPCTS YH 

RDRDl YC 

RDRD2 YC 

RDRD4 YC 

RDSD YA 

REINTl YE, YG, YH 

REPPL YJ 

When a replace card is printed, entries 

are divided by blanks instead of commas. 

REPPRT YJ 

RLDPBP YJ 

RDLPCH YH 

RLDPCO .^... .. YJ 

RLDPDR YJ 

RLDPHE YJ 

RLDPRR YJ 

RLDPRT YJ 

RLDPSW YJ 

RLDPUD YJ 

RLDPXA YJ 

SS2 ..-. YA 

SYMPRT .. YG 
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TSTDAL YC 

TSTPCH YD 

TSTPCI YD 

TSTPRT YD 

TXPCIM YG 

TXPCSC YG 

TXTPCH YG 

TXTPIA YG 

TXTPRT YG 

TXTPSA YG 

TXTPT2 YG 

UPDT3 YC 



Source S-batement Library Service Program 
(SSERV), Charts ZA-ZL 



Label 



Chart 



ALLSW ZD 

Switch set if operand is ALL. 

ALLTST ZB 

ALOTST • ZB 

BEOVRT ZK 

BKENDO ZD 

BKNDOA ZF 

BKNDOS ZF 

BKNDOU ZF 

Subroutine for header and trailer 

control . 

BKNDOl ZF 

BLNENT ZJ 

Entry into find operand subroutine used 

to find the first operand on the control 

statement . 

CALLCS ZA 

Entry into SSERV control statement 

analysis used to read another control 

statement. 

CHNGSB ZB 

CLRCO ZC 

CMPRST ZD 

COSET ZE 

CPPCH2 ZE 

CPRPCH ZE 

CPRSCl ZA 

CPRSC3 ZA 

CPRSCN ZA 

CPRS'^ ZC 

Switch set to -FF- if output is 

compressed. 

CSERRl ZL 

CSERR2 ZL 

CSERR3 ZL 

DIRCKl ZG 

EOBK ZD 

EOBKT ZD 

EGVLST ZK 

Entry to end-of- volume routine when an 



EOV condition has been encountered on 

SYSLST. 
EOVPCH ZK 

Entry to end-of-volume routine when an 

EOV condition has been encountered on 

SYSPCH. 

EXIT ZH 

EXP ZC 

EXPCDl ZC 

EXPCD ZC 

EXPLP ZC 

EXPOUT ZE 

Entry into routine that controls the 

expanded output. 
EXPTIN ZC 

FNDBK ZG 

Entry to subroutine used to find the 
book to be serviced in the source 
statement library. 

FNDBKl ZG 

Entry to find book subroutine. 

FNDBK2 ZG 

FNDL ZG 

The two instructions at this address are 
overlay ed the first time they are 
executed (fetching $$BOPNLB) . $$BOPNLB 
is called to find the source statement 
library. $$BOPNLB replaces the calling 
instructions with two execute 
instructions . 

GETALL ZC 

Entry point to get next book if the 
sublibrary qualifier is a period. 

GETBKl ZB 

GETOUT ZK 

HIBKSV7 ZL 

HIBKT ZD 

IBUFPT ZC 

INITl ZA 

The initial entry point to the SSERV 

program. 

MVBKN ZC 

MVBKNl ZC 

NBLENT Z J 

Entry into find operand subroutine to 
find the second and all remaining 
operands. 

NBLEl Z J 

NFERR ZL 

NOLIB ZH 

PCHESW ...... ZE 

PRTCCD ZL 

PRTCCl ZL 

PRTNF ZL 

PRTNFl ZL 

PRTNF2 ZL 

PRTSW ZC 

PRTTST ZE 

PTRNT ....... ZD 

RDBLK , ZG 
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RDBLKl ZG SCNTSP ZJ 

RDBLK2 ZD SKIPBO ZD 

RDBLK3 ZD SLASHO ZK 

RDRDR ZJ Entry into end-of-f ile subroutine that 

Entry to read control statement completes job and calls job control. 

subroutine. Reads a card and checks for SLASHY ZK 

EOF. SLASHl ZK 

RELOC ZH START ZH 

RELOCl ....... ZH Starting address of $$BOPNLB transient, 

REPCAL ZH which is used to find the source 

RESCN ZA statement library directory in the 

RSTBPT ZG SYSRES pack. 

RSTBPl ZG 

RSTDA .., ZG TSTCMl . .• ZF 

RSTPRT , ZE TSTND ZG 

RTRNTl ZD TSTPCl ZF 

RTURN ZG TSTC^UA ZB 

RTURNl ZG Entry point used to test for more 

operands on the control statement being 

SCNNBL . , ZJ serviced. 
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APPENDIX B. FLOWCHART ABBREVIATIONS 



ABS 


Absolute 


ACC 


Accumulator 


ACCT 


Account 


ACT 


Actual 


ADDR 


Address 


ADJ 


Adjust 


ADV 


Advance 


ALG 


Algebraic 


ALL END 


All Bound 


ALLOC 


Allocation 


ALPHA 


Alphabetic 


ALT 


Alternate, Alteration 


APROX 


Approximate 


ARITH 


Arithmetic 


ASDNG 


Ascending 


ASMBL 


Assemble 


ASGN 


Assign 


ATT 


Attention 


AUX 


Auxiliary 


AVAIL 


Availability 


BFR 


Buffer 


BI 


Binary 


BKSP 


Backspace 


BLK 


Block 


BLKCNT 


Block Count 


BLNR 


Blank 


BR 


Branch 


BM 


Buffer Mark 


CALC 


Calculate, Calculator 


CARR 


Carriage 


CC 


Card Column 


CD 


Card 


CHAN 


Channel 


CHAR 


Character 


CHG 


Change 


CHK 


Check 


CHKPT 


Checkpoint 


CLR 


Clear 


CLS 


Close 


CMND 


Command 


CMP 


Compare 


CMPL 


Complement 


CMPRSD 


Compressed 


CNCL 


Cancel 


CNSL 


Console 


CNT 


Count 


COL 


Column 


COMM 


Communication 


COMP 


Compute 


CON 


Constant 


COND 


Condition 


CONT 


Continue 


CONV 


Convert 


CORR 


Correction 


CPLD 


Coupled 


CPSW 


Current PSW 


CTR 


Counter 


CTRL 


Control 


CTRL DICT 


Control Dictionary 


CU 


Control Unit 



CURR 


Current 


CYL 


Cylinder 


DCMT 


Document 


DCML 


Decimal 


DEC 


Decision 


DECR 


Decrement 


DEL 


Delete 


DESCG 


Descending 


DEV 


Device 


DIM 


Dimension 


DIR 


Directory 


DR 


Drive 


DSK 


Disk 


DSPLT 


Displacement 


DSPY 


Display 


ELIM 


Eliminate 


ENT 


Entry 


EOF 


End of File 


EOJ 


End of Job 


EOPSW 


External Old PSW 


EOR 


End of Reel 


EQ 


Equal 


EQUIP 


Equipment 


ERP 


Error Recovery Procedure 


ERR 


Error 


ES 


Electronic Switch 


EXEC 


Execute 


EXT 


External 


FIG 


Figure 


FLD 


Field 


FLDL 


Field Length 


FLT 


Floating 


FMT 


Format 


FR 


From 


FREQ 


Frequency 


FUNC 


Function 


FWD 


Forward 


FXD 


Fixed 


GEN 


Generator 


GENL 


General 


GM 


Groupmark 


HDR 


Header 


HEX 


Hexadecimal 


HI 


High 


HLT 


Halt 


HSK 


Housekeeping 


HYPER 


Hypertape 


I/O 


Input/Output 


IC 


Instruction Counter 


ID 


Identification 


INCR 


Increment 


IND 


Indicate 


INDN 


Indication 


INDR 


Indicator 


INFO 


Information 


INIT 


Initialize 


>pendix B. 


Flowchart Abbreviations 
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INQ 


Inquire 


INST 


Instruction 


INT 


Initial 


INTERV 


Intervention 


INTRPT 


Interrupt 


INVAL 


Invalid 


lOOPSW 


I/O Old PSW 


IT 


Interval Timer 


IW 


Index Word 


LA 


Load Address 


LBL 


Label 


LD 


Load 


LDG 


Leading 


LGL 


Logical 


LIT 


Literal 


LNG 


Length 


LOG 


Location 


LT 


Less Than 


LTK 


Logical Transient Key 


LTR 


Letter 


LUB 


Logical Unit Block 


MACH 


Machine 


MAX 


Maximum 


MCOPSW 


Machine Check Old PSW 


MIN 


Minimum 


MISC 


Miscellaneous 


MOD 


Modification 


MPXR 


Multiplexor 


MPS 


Multiprogramming System 


MPY 


Multiply 


MSG 


Message 


NEG 


Negative 


NO 


Number 


NUM 


Numeric 


NXT 


Next 


OC 


Operator Communication 


OP 


Operation 


OPN 


Open 


OPND 


Operand 


OPTR 


Operator 


ORD 


Order 


OVFLO 


Overflow 


OVLP 


Overlap 


OVLY 


Overlay 


OVRN 


Overrun 


P.PROG 


Problem Program 


PARAM 


Parameter 


PAREN 


Parenthesis 


PC 


Program Check 


PCI 


Program Controlled 




Interrupt 


PCOPSW 


Program Check Old PSW 


PG 


Page 


PGLIN 


Page and Line 


PH 


Phase 


PKD 


Packed 


PNCH 


Punch 


PNDG 


Pending 


PNTR 


Pointer 


POS 


Position 


PR 


Print 


PREC 


Precision 


PREV 


Previous 



PRI 


Priority 


PROB 


Problem 


PROC 


Process 


PROG 


Program 


PROT 


Protect, Protection 


PRT 


Print 


PT 


Point 


PTR 


Printer 


PUB 


Physical Unit Block 


Q 


Queue 


R+S 


Reset+Start 


R/W 


Read/Write 


RCD 


Record 


RCV 


Receive 


RD 


Read 


RDR 


Reader 


RDY 


Ready 


RECVY 


Recovery 


REF 


Reference 


REG 


Register 


REJ 


Reject 


REL 


Release 


RELOC 


Relocatable 


REQ 


Request, Require 


RES 


Residual 


RET 


Return 


RGN 


Region 


RI 


Read In 


RLS 


Reels 


RM 


Record Mark 


RO 


Read Out 


RPT 


Report 


RSLT 


Result 


RST 


Reset 


RSTR 


Restore 


RSTRT 


Restart 


RTE 


Route 


RTN 


Routine 


RWb 


Rewind 


RO 


Record Zero 


SCHED 


Schedule, Scheduler 


SCN 


Scan 


SCTR 


Sector 


SECT 


Section 


SEG 


Segment 


SEL 


Select 


SEN 


Sense 


SEQ 


Sequence 


SER 


Serial 


SIG 


Signal 


SILI 


Suppress Incorrect 




Length Indication 


SIM 


Simulator 


SK 


Seek 


SM 


Storage Mark 


SNGL 


Single 


SP 


Space 


SPEC 


Specification, Specify 


SRCH 


Search 


ST 


Store 


STG 


Storage 


STMNT 


Statement 


STRD 


Stored 


STRTG 


Starting 


SUB 


Subtract 
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SUMM 


Summarize 


SUP 


Suppress 


SUPVR 


Supervisor 


SV 


Save 


SVCOPSW 


SVC Old PSW 


SYM 


Symbol, Symbolic 


SYNC 


Synchronize, 




Synchronizer 


SYST 


System 


SW 


Switch 


TBL 


Table 


TEMP 


Temporary 


TM 


Tapemark 


TMN 


Transmission 


TMT 


Transmit 


TOT 


Total 


TP 


Tape 


TR 


Transfer 


TRANS 


Transient 


TRK 


Track 


TRLR 


Trailer 


TST 


Test 


TU 


Tape Unit 


TW 


Typewriter 



UNC 


Unconditional 


UNLD 


Unload 


UNPK 


Unpack 


UNPKD 


Unpacked 


UNUSL 


Unusual 


UPD 


Update 


VAR 


Variable 


VER 


Verify 


VOL 


Volume 


WA 


Work Area 


WD 


Word 


WLR 


Wrong Length Record 


WM 


Wordmark 


WR 


Write 


WRK 


Work 


XPL 


Explain, Explanation 


XTR 


Extra 


Z 


Zero 


ZN 


Zone 
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APPENDIX C: FLOWCHART SYMBOLS 



ITEM IDENTIFICATION 

1 TERMINAL. Beginning, end or point of interruption in the program. 

2 DECISION. Decision function dependent on existing conditions. 
SUBROUTINE. Label of routine corresponds to listing label. 



SUBROUTINE CHART IDENTIFICATION. Identifies chart where fur- 
ther explanation is found . 

LABEL. Corresponds to listing label. 

PROCESS BLOCK . Notation within the block defines the function 
being performed . 

BLOCK COORDINATE. Con anpear on the left or right hand side of 
the block. 



8 I/O BLOCK. Notation within the block defines the function being 
performed . 

9 MODIFICATION BLOCK . Notation within the block defines the pro- 
gram modification being performed. 

10 PREDEFINED PROCESS BLOCK. Notation within the block defines 
processing not included in this set of flow charts. 

1 1 OFF-PAGE CONNECTOR . Notation within this block defines the 
flowchart and block coordinate to which control is being transferred. 

12 OFF-PAGE CONNECTOR . Notation within this block defines the 
flowchart and block coordinate from which control is being transferred. 

13 Same as 12 except the * defines a multiple entry. 

14 ON-PAGE CONNECTOR . Exit from this block to another block on 
the same flowchart . 

15 ON-PAGE CONNECTOR . Entry from another block on the some 
flowchart . 

16 SUBROUTINE. Notation within the block defines the function being 
performed by the subroutine. 



A4 



(7) * r SYSEOJ ^ 




o—® 



LABEL jAA 



Description 



SYSXYZ 



I—® 



<D 



0— 

^-^ Group of 

(6j * Program 
Instructions 



D4 



3t 



E4-^ 




^-^ Turn On 

(9J > Overflow 



Switch 



@-^/ "»' 



-® 




12) 



© 




Figure 83. Description of Flowchart Symbols 
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APPENDIX D; SAMPLE LISTIO PRINTOUTS 



1 . List all system units. 

2. List all background programmer units. 

3. List all foreground 1 programmer units. 

4. List all units. 

5. List all foreground 2 programmer units. 

6. List a specific unit (SYSXXX). 

7. List the logical units assigned to all physical devices. 

8. List all unassigned units. 

9. List all down units. 

10. List all logical units assigned to a specified physical 
unit. 



Note; The 1st line of each sample shows the control 
statement as it was logged by job control . 



1 


// LISTIO 


SYS 












«•• 


SYSTEM ••• 






I/O UNIT 


CMNT 


CHNL 


UNIT 


MODE 




SYSRDR 







OC 






SYSIPT 







OC 






SYSPCH 







00 






SYSLST 







OF 






SYSLOG 







IF 






SYSLNK 




«« 


UA *• 






SYSRES 




1 


90 




T 


// LISTIO 


PROG 












#•• 


PROGRAM •«• 






I/O UNIT 


CMNT 


CHNL 


UNIT 


MODE 




SYSOOO 






91 






SYSOOl 






91 






SYS002 






91 






SYS003 






91 






SYSOOU 






92 






SYS005 






92 






SYS006 






92 






SYS007 






92 






SYS008 




♦♦ 


UA *• 






SYS009 




«* 


UA «• 






SYSOIO 




«• 


UA «• 






SYSOn 




• * 


UA •• 




T 


// LISTIO 


Fl 












•«• 


FOREGROUND 1 


»•• 




I/O UNIT 


CMNT 


CHNL 


UNIT 


MODE 




SYSOOO 




•• 


UA «• 






SYSOOl 




•• 


UA *♦ 






SYS002 




♦» 


UA •• 






SYS003 




•• 


UA •« 






SYSOOU 




•« 


UA •♦ 





— 1 // LISTIO 


ALL 








• •• 


SYSTEM ♦•♦ 




I/O UNIT 


CMNT 


CHNL UNIT 


MODE 


SYSRDR 




OC 




SYSIPT 




OC 




SYSPCH 




00 




SYSLST 




OF 




SYSLOG 




IF 




SYSLNK 




•• UA •♦ 




SYSRES 




1 90 






•«• 


PROGRAM ••« 




I/O UNIT 


CMNT 


CHNL UNIT 


MODE 


SYSOOO 




1 91 




SYSOOl 




1 91 




SYS002 




1 91 




SYS003 




1 91 




SYSOOU 




1 92 




SYS005 




1 92 




SYS006 




1 92 




SYS007 




1 92 




SYS008 




•• UA •• 




SYS009 




#♦ UA ♦♦ 




SYSOIO 




«• UA •• 




SYSOll 




♦• UA •♦ 






*«• 


FOREGROUND 2 


•»« 


I/O UNIT 


CMNT 


CHNL UNIT 


MODE 


SYSOOO 




•• UA •• 




SYSOOl 




•♦ UA •• 




SYS002 




•• UA •• 




SYS003 




«* UA •• 




SYSOOU 




•• UA •• 






«•• 


FOREGROUND 1 


••• 


I/O UNIT 


CMNT 


CHNL UNIT 


MODE 


SYSOOO 




•• UA ♦• 




SYSOOl 




•• UA •• 




SYS002 




•♦ UA •• 




SYS003 




•• UA •• 




SYSOOU 




•• UA •• 





Figure 84. Sample LISTIO Printouts (Part 1 of 2) 
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5 


// LISTIO F2 










••• FOREGROUND 2 


••« 




I/O UNIT CMNT 


CHNL 


UNIT 


MODE 




SYSOOO 




UA «• 






SYSOOl 




UA «• 






SYS002 




UA ♦• 






SYS003 




UA «• 






SYSOOU 




UA «• 




1\ 


// LISTIO SYSROR 








••♦ SYSTEM ♦•♦ 






I/O UNIT CMNT 


CHNL 


UNIT 


MODE 




SYSROR 





OC 




7 


// LISTIO UNITS 










CHNL UNIT 


OWNER 


I/O UNIT 


CMNT MODE 




OF 




SYSLST 






OC 




SYSROR 






OC 




SYSIPT 






IF 




SYSLOG 






00 




SYSPCH 






1 90 




SYSRES 






1 91 


B6 


SYSOOO 






1 91 


BG 


SYSOOl 






1 91 


BG 


SYS002 






1 91 


BG 


SYS003 






1 92 


BG 


SYSOOU 






1 92 


BG 


SYS005 






1 92 


BG 


SYS006 






1 92 


BG 


SYS007 




± 


// LISTIO UA 










«•• UNASSIGNEO ••« 






CHNL 


UNIT 








y 


90 






II 


// LISTIO DOWN 










♦♦♦ DOWN ••• 








CHNL 


UNIT 








•• NONE «« 






i£l 


// LISTIO xaoiFa 








CHNL UNIT 


OWNER 


I/O UNIT 


CMNT MODE 




IF 




SYSLOG 





Figure 84. Sample LISTIO Printouts (Part 2 of 2) 
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APPENDIX E; LINKAGE EDITOR ESP PROCESSING 



CONTROL 




ESD ITEM FOR PROCESSING 






DICTIONARY 
ENTRY 












SD 


LD 


ER 


PC 


CM 


• Origin on a 


• Check the link- 


• If this phase is 


• Origin on a 


No comment 




doubleword 


age table to 


not to be auto- 


doubleword 






boundary 


determine if a 
corresponding 


linked, set the 
first byte of the 


boundary . 






• Current phase 


SD entry has 


origin field to 


• PC length saved 






number saved in 


been processed. 


aX'FF'. 


so that it can be 






the input area 


a. Processed - 




used in calc- 






for later use 


negative 




ulating the next 






in the control 


control dic- 




phase origin at 






dictionary. 


tionary 
number- 




the end of ESD 
processing . 






• SD length saved 


ignore this 










so that it can 


LD. 




• Relocation 






be used in calc- 


b . Not pro- 




factor for this 






ulating the 


cessed - 




PC computed . 






next phase origin 


make this LD 










at the end of 


unassigned. 




• Name field of 






ESD processing. 


c . Processed - 
positive con- 




PC must be 
blank or on 






• Relocation factor 


trol dictio- 




en-or exists. 






for this SD com- 


nary number- 










puted. 


assign the 
LD and save 
the control 
dictionary 
number in 
the input 
area. 

• LD must point to 
a SDorCM or 
an error exists. 


^ 






LD 


Note A 


Note D 


Note G 


A PC item cannot 
be matched against 


Error 












LR 


Note A 


NoteD 


Note G 


the control dictio- 
nary because it has 
a blank name 
field. Post any PC 


Error 


SD 


Note B 


NoteE 


Note H 


Error 












PC 


Not Possible 


Not Possible 


Not Possible 


as a new control 
dictionary entry . 


Not Possible 












CM 


Error 


Enror 


Note J 




Note L 


ER 


NoteC 


NoteF 


NoteK 


Note M 


NO 


Post the SD to the 


Post the LD to the 


Post the ER to the 


Post the CM to the 


MATCH 


control dictionary. 


control dictionary. 


control dictionary. 




control dictionary. 



Figure 85. Description of ESD Processing 
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Notes For Figure 85. 



A. An SD that matches an assigned LD/LR 
entry is an error. An SD that matches 
an unassigned LD/LR entry requires 
that: 

1. The ESD number of the SD equal the 
LD/LR ESD number. 

2. The assembled origin of the ESD 
item (SD) equal the assembled 
origin of the control dictionary 
entry (LD/LR) . 

If either requirement is not met, an 
error exists. If both requirements are 
met, replace the LD/LR entry with the 
SD item just processed. 

After the linkage table has been 
updated, and if the SD is not to be 
bypassed, calculate the next available 
phase origin. Try to resolve any 
unassigned LD/LRs . If the ESD number 
is negative, skip the LD/LR. If the 
ESD number is positive and a control 
dictionary number exists in the linkage 
table for the LD/LR, put this number 
into the control dictionary. If the 
control dictionary number is negative, 
leave the LD/LR unassigned. If it is 
positive, assign the LD/LR entry in the 
control dictionary. The reason an 
attempt is made to assigh unassigned 
LD/LRs at this time is that a new SD 
has just been posted and it might 
define the unassigned LD/LR. 

B. If the SD entry in the control 
dictionary is not for the current 
phase, or for the root phase, post the 
ESD-SD to the control dictionary as a 
new entry. 

If the SD entry is for the current 
phase, or for the root phase, make the 
control dictionary number in the 
linkage table a negative value so that 
all LD references to this SD will be 
bypassed. 

C. Replace the ER entry in the control 
dictionary with the ESD-SD item. 

D. The three possible conditions and 
actions taken are as follows: 

1. The control dictionary entry is an 
unassigned LD/LR. Set a switch to 
indicate a possible duplicate 
entry. Replace the control 
dictionary entry with the ESD-LD. 
(Change the input LD to an LR if 
the old control dictionary entry 
was an LR.) 



2. The ESD input is an assigned LD and 
the control dictionary entry is an 
assigned LD/LR. 

a. The assembled origin of the 
input LD must equal the 
assembled origin of the 
control dictionary entry or 
an error exists. 

b. If the assembled origins 
agree and the LDs point to 
the same SD, ignore the 
input. 

c. If the input and control 
dictionary entry do not 
point to the same SD, the 
labels of the SD entries 
pointed to must match or an 
error exists. 

d. If the labels are the same, 
test the phase numbers. If 
equal phase . numbers are 
found, set a switch to 
indicate a possible 
duplicate entry and ignore 
the input. If the phase 
numbers are different, post 
the input LD as a new 
control dictionary entry. 

3. The ESD input is an unassigned LD 
and the control dictionary entry is 
an assigned LD/LR. 

a. The assembled origin of the 
input LD must equal the 
assembled origin of the 
control dictionary entry, or 
an error exists. 

b. Compare the phase numbers of 
the LDs. If the phase 
numbers are equal, set a 
switch to indicate a 
possible duplicate entry and 
ignore the input. If the 
phase numbers are different, 
post the input LD as a new 
control dictionary entry. 

The two possible conditions and actions 
taken are as follows: 

1. The ESD input is an assigned LD. 

a. The assembled origin of the 
input LD must equal the 
assembled origin of the control 
dictionary entry or an error 
exists. 

b. Compare the control dictionary 
number of the input with the 
control dictionary number of the 
control dictionary entry. If 
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the control dictionary numbers 
are equal, ignore the input. If 
the numbers are different, an 
error exists (invalid 
duplication of a label) . 

2. The ESD input is an unassigned LD. 

a. Same as item 1 above. 

b. Compare the phase numbers of the 
input and the control dictionary 
entry. If the phase numbers are 
equal, set a switch to indicate 
a possible duplicate entry and 
ignore the input. If the phase 
numbers are different, post the 
input LD as a new control 
dictionary entry. 

F. Make the LD entry an LR and replace the 
control dictionary entry (ER) with the 
input LR. 

G. The two possible conditions and actions 
taken are as follows: 

1 . The input ER matches an unassigned 
LD/LR. Continue the scan of the 
control dictionary. 

2 . The input ER matches an assigned 
LD/LR or an SD. 

a. If an IJ prefix is found. 



autolink is specified, and the 
phase number of the control 
dictionary entry is not the 
current phase or the root phase, 
post the ER to the control 
dictionary. This enables the ER 
to be autolinked. 



b. If the prefix is not IJ, NOAUTO 
is specified, and the control 
dictionary entry is an assigned 
LD/LR, force the control 
dictionary entry to be an LR. 
If the control dictionary entry 
is either an SD or an LR, do not 
post the input as a new control 
dictionary entry. 

H. Same as item G2 above. 

J. Do not change the control dictionary 

entry (CM) . Put the control dictionary 
number of the CM control dictionary 
entry into the linkage table entry of 
the ER, thereby assigning the ER. 

K. Replace the control dictionary entry 
with the input ER for autolink. 

L. Put the common (CM) with the longest 
length into the control dictionary. 

M. Replace the ER entry in the control 
dictionary with the ESD-CM item. 
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APPENDIX F; ERROR MESSAGE CROSS REFERENCE 



Messaqe 


Phase 




Chart ID 


Message 


Phase 
$$ANERRG 


(Data Cell) 


Chart ID 
HQ 


OIOOI 


$$A$IPL2 




AB 




$$ANERRU 


(Unit Record) 


JL 


OIOIA 


$$A$IPL2 




AD 




$$ANERRX 


(Paper Tape) 


JP 


OIIOA 


$IPLRT2 




AJ 




$$ANERR9 


(Optical Reader) 


JR 


OIllI 


$IPLRT2 




AP 


0P19 


$$ANERRB 


(Disk) 


HC 


on 21 


$IPLRT2 




AP 




$$ANERRE 


(Tape) 


HJ 


0I13I 


$IPLRT2 




AN 




$$ANERRG 


(Data Cell) 


HQ, HE 


OIIUI 


$IPLRT2 




AR 




$$ANERRU 


(Unit Record) 


JK 


on 51 


$IPLRT2 




AN 




$$ANERRX 


(Paper Tape) 


JP 


0I16A 


$IPLRT2 




AL 


0P20 


$$A$SUP1 


(Sense Error) 


FU 


0I17A 


$IPLRT2 




AL 




$$ANERRD 


(Tape) 


HE 


0I18A 


$IPLRT2 




AJ 




$$ANERRJ 


(Data Cell) 


HT 


0I20I 


$IPLRT2 




AM 


0P21 


$$A$SUP1 


(Disk) 


GV 


0I22I 


$IPLRT2 




AY 




$$ANERRJ 


(Data Cell) 


HT 


012 31 


$IPLRT2 




AP 


0P22 
0P23 
0P24 


$$ANERRG 
$$ANERRJ 
$$ANERRA 




HN 
HT 
HA 


0P08 


$$A$$UP1 


(Disk) 


GV 


0P25 


$$ANERRA 




HA 




$$ANERRE 


(Tape) 


HG 


0P26 


$$ANERRA 


(Disk) 


HB 




$$ANERRG 


(Data Cell) 


HP 




$$ANERRG 


(Data Cell) 


HN 




$$ANERRU 


(Unit Record) 


JL 


0P27 


$$ANERRC 




HA 




$$ANERRX 


(Paper Tape) 


JP 




$$ANERRU 




JK 




$$ANERR9 


(Optical Reader) 


JR 


0P28 


$$A$SUP1 


(Disk) 


GV 


0P09 


$$A$SUP1 


(Disk) 


GV 




$$ANERRD 


(Tape) 


HE 




$$ANERRD 


(Tape) 


HE 




$$ANERRG 


(Data Cell) 


HN 




$$ANERRG 


(Data Cell) 


HP 




$$ANERRU 


(Unit Record) 


JK 




$$ANERRV 


(Unit Record) 


JM 




$$ANERRX 


(Paper Tape) 


JP 




$$ANERRX 


(Paper Tape) 


JP 




$$ANERR9 


(Optical Reader) 


JR 




$$ANERR9 


(Optical Reader) 


JR 


0P29 


$$ANERRE 




HG 


OPIO 


$$A$$UP1 


(Disk) 


GV 


0P30 


$$ANERRE 




HG 




$$ANERRD 


(Tape) 


HE 


0P31 


$$ANERRA 




HA 




$$ANERRG 


(Data Cell) 


HN 


0P32 


$$ANERRE 




HJ 




$$ANERRU 


(Unit Record) 


JL 


0P33 


$$ANERRV 




JN 




$$ANERRX 


(Paper Tape) 


JP 


0P35 


$$ANERR9 


(Optical Reader) 


JR 


OPll 


$$A$SUP1 
$$ANERRD 
$$ANERRG 


(Disk) 
(Tape) 
(Data Cell) 


GV 
HE 
HP 


0P60D 


$$ANERRY 




JT 




$$ANERRU 


(Unit Record) 


JM 


1I40D 


|$$ANERRO 




JW 




$$ANERRX 


(Paper Tape) 


JP 








0P12 


$$ANERRB 


(Disk) 


HB 


lAOOD 


$$BATTNI 




LG 




$$ANERRK 


(Data Cell) 


HV 


lAlOD 


$$BATTNI 




LG 


0P13 


$$A$SUP1 


(Disk) 


GV 


1A20D 


$$BATTNI 




LG 




$$ANERRG 


(Data Cell) 


HN 


1A30D 


$$BATTNI 




LG 


0P14 


$$A$SUP1 


(Disk) 


GV 


1A40D 


$$BATTNI 




LG 




$$ANERRE 


(Tape) 


HG 




$$BATTNK 




LV 




$$ANERRG 


(Data Cell) 


HQ 


1A50D 


$$BATTNI 




LG 




$$ANERRV 


(Unit Record) 


JM 


1A60D 


$$BATTNI 




LG 




$$ANERR9 


(Optical Reader) 


JR 


1A70D 


$$BATTNI 




LG 


0P15 


$$A$SUP1 


(Disk) 


GV 


1C20D 


$$BATTNH 




KU 




$$ANERRG 


(Data Cell) 


HN, HT 


1C30A 


$$BATTNM 




MC 


0P16 


$$ANERRB 


(Disk) 


HD 


ILOOD 


l$$BATTNK 
■$$BATTNK 




LV 




$$ANERRK 


(Data Cell) 


HV 


ILIOD 




LV 


0P17 


$$ANERRB 


(Disk) 


HC 


IPOOD 


$$BATTNF 




KQ 




$$ANERRG 


(Data Cell) 


HQ 


IPIOD 


$$BATTNG 




KS 




$$ANERRL 


(Tape) 


HH 


ISOOD 


$$BATTNB 




KE 


0P18 


$$A$SUP1 


(Disk) 


GV 




$$BATTNG 




KS 




$$ANERRE 


(Tape) 


HG 




$$BATTNE 




KN, KP 
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Message Phase 



$$BATTNI 



$$BATTNJ 
$$BATTNK 

$$BATTNL 
$$BATTNiyi 
$$BATTNN 



0P70I 
0P71I 
0P72I 
0P73I 
0P74I 
0P75I 
0P76I 
0P77I 
0P78I 
OSOOI 

OSOII 
0S02I 
0S03I 
OSOUI 
0S05I 
0S07I 
0S08I 
0S09I 
OSIOI 

lAOND 
lAlND 
1A2ND 
1A20D 
1A20D 
1A3ND 
1A4ND 
1A40D 
1A5ND 
1A50D 
1A6ND 
1A7ND 
1A70D 
1A80D 
1A90D 
ICOOA 
ICIOA 
ICIOA 
IClOA 
1C30A 
1C30A 
1C8 0D 
ILOOD 
ILIOD 
ILIOD 

IIPOOD 
ISOOD 
ISIOD 
ISIOD 



$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BE0J2 

$$BPCHK 

$$BILSVC 

$$BE0J2 

$$BE0J2 

$$BPCHK 

$$BILSVC 

$$BILSVC 

$$BPSW 

$$3E0J 

$$BE0J1 

$$BTERM 

$JOBCTLD 
$JOBCTLD 
$JOBCTLD 
$JOBCTLG 
$JOBCTIJr 
$JOBCTLD 
$JOBCTLD 
$JOBCTIiJ 
$JOBCTLD 
$JOBCTLJ 
$JOBCTLD 
$JOBCTLD 
$JOBCTLJ 
$JOBCTLD 
$JOBCTIiD 
$JOBCTLA 
$JOBCTLA 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLG 
$JOBCTU 
$JOBCTLA 
$JOBCTLJ 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLG 
$JOBCTLA 
$JOBCTLG 
$JOBCTLJ 



Chart ID 


Message 


Phase 




21001 


$LNKEDT2 


KV,KX,KY 


21011 


$LNKEDT4 


KZ,LE,LF 


21021 


$LNKEDT 


MJ,MK,iyiL 




$LNKEDT4 


Lri 


21101 


$LNKEDT4 


LP,LQ,LS 


21121 


$LNKEDT 


LT, LU 




$LNKEDT4 


LZ, MA 


21131 


$LNKKDT2 


MC 




$LNKEDT4 


MG 


21141 


$LNKEDT4 




21151 


$LNKEDT4 




21161 


$LNKEDT4 


NL 


21201 


$LNKEDT6 


NL 


21221 


$LNKEDT6 


NL 


21231 


$LNKEDT6 


NL 


21241 


$LNKEDT6 


NL 


21251 


$LNKEDT4 


NL 




$LNKEDT6 


NL 


21311 


$LNKEDT6 


NL 


21331 


$LNKEDT4 


NL 


21351 


$LNKEDT 


NT 


21361 


$LNKEDT 


NN 


21401 


$LNKEDTO 


NL 


21411 


$LNKEDTO 


NL 


21421 


$LNKEDTO 


NT 


21431 


$LNKEDTO 


NN 


21441 


$LNKEDT 


NN 


21451 . 


$LNKEDTO 


NR 


21461 


$LNKEDTO 


NB 


21471 


$LNKEDT2 


NJ 


21501 


$LNKEDT 


NE 


21511 


$LNKEDT2 




21551 


$LNKEDT2 


cy 


21561 


$LNKEDT2 


CY 


21581 


$LNKEDT2 


CY 


21701 


$LNKEDT2 


DY 


21811 


$LNKEDT6 


ET 


21821 


$LNKEDT6 


CY 


21851 


$LNKEDT8 


CY 


21911 


$LNKEDT 


ET 




$LNKEDT2 


CY 


21921 


$LNKEDT6 


ET 


21931 


$LNKEDT 


CY 


21941 


$LNKEDT 


CY 






ET 


3C10I 


CORGZ 


CY 


3C20I 


CORGZ 


CY 


3C21I 


CORGZ 


BL 


3C30I 


CORGZ 


BL 


3C33I 


CORGZ 


DY 


3C40I 


CORGZ 


ET 


3C60I 


CORGZ 


DY 


3C61I 


CORGZ 


ET 


3C62I 


CORGZ 


BL 


3C63I 


CORGZ 


ET 


3C64I 


CORGZ 


DY 


3C65I 


CORGZ 


ET 


3C66I 


CORGZ 


DY 






BL 


3D10D 


DSERV 


DY 


3D20D 


DSERV 


ET 
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Chart ID 

RK 

RT 

QH 

RX 

RT 

QC, QU 

RZ 

RM 

RZ 

RU 

RY 

RT 

SB 

SC 

SA 

SD 

RW 

SB 

SG 

RU 

QC, QU 

QC, QU 

RB, RD 

RH 

RB 

RF, RG 

QE, QN 

RC 

RD 

RR 

QT 

RM 

RN 

RP 

RR 

RL,RN,RQ 

SA 

SF 

SK 

QA 

RS 

SE 

QT 

QM 

WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 
WU 

XA 
XA 
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Message Phase 



3D43I 


DSERV 


3D47I 


DSERV 


SMIOD 


MAINT 


3M11D 


MAINTR2 


3M21I 


MAINT 




MAINTC2 




MAINTR2 




MAINTS2 




MAINTCN 




MAINTCL 




MAINTA 


3M22I 


$LNKEDTC 


3M23D 


MAINTS2 


3M25D 


MAINTS2 


3M26D 


MAINTS2 


3M33I 


MAINTC2 




MAINTR2 




MAINTS2 


3M34I 


MAINTR2 


3M35D 


MAINTS2 


3M43I 


MAINTR2 




MAINTS2 


3M52I 


$LNKEDTC 




MAINTR2 



(Listing Only) 



Chart ID 


Message 


Phase 
MAINTS2 


XB 


3M54I 


MAINTC2 


XB 




MAINTR2 


TB 




MAINTS2 


TN 


3M61I 


MAINTA 


TD 


3M62I 


MAINTA 


TJ 


3M63I 


MAINTA 


TM, TW 


3M6ai 


MAINTA 


UB, UN 


3M65I 


MAINTA 


VN 


3M66I 


MAINTA 


VU 


3M67I 


MAINTA 


VA,VB,VL 


3M68I 


MAINTCN 




3M69I 


MAINTCN 


SU 


3M70A 


MAINTCN 


UH 




MAINTA 


UC 






UG 






TK 


3R10D 


RSERV 


TP,TW 


3R21I 


RSERV 


UN 


3R27I 


RSERV 




3R43I 


RSERV 


UE 






TL 


3S10D 


SSERV 


UM 


3S21I 


SSERV 


SU 


3S33I 


SSERV 


TM 


3S43I 


SSERV 



Chart ID 

UC 

TJ 

TW 

UN 

VD 

VC 

VD 

VD 

VF 

VF 

VK 

VR 

VR 

VS 

VC,VG,VH 

VJ, VK 

YA 
YB 
YC 
YA 

ZL 

ZJ, ZL 

ZL 

ZB, ZC 
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APPENDIX G, PROGRAM KEY DEFINITIONS 



PIK (Program Interrupt Key) 



RIK (Requestor I/O Key) 



The PIK is a halfword in length and 
consists of a zero value in the high- order 
byte and the key value in the low- order 
byte. The key value is the key of the 
program that was last enabled for 
interrupts. 



When an interrupt occurs , the value in 
the PIK indicates to the supervisor which 
program was interrupted. It can also be 
used by transient programs and problem 
programs to determine if they are running 
as BG, Fl, or F2. 

The value of the PIK equals the 
displacement from the beginning of the PIB 
table to the PIB entry for the program 
(task). For BG, F2 , and Fl tasks, this 
value equals the storage protect key 
multiplied by 16. 



Task 



PIK Value 



All Bound* 


X'OO- 


BG 




X'lO' 


F2* 




X'20' 


Fl* 




X'30' 


AR 




X'UO' 


Quiese 


I/O 


X'50' 


Supervisor 


X'60' 



* Multiprogramming generation option only. 

The PIK is set by task selection within 
the general exit routine. The fetch 
routine sets the PIK to X'60' because it 
enables itself for interrupts and because 
it gets control directly from the SVC 
interrupt routines. The SVC interrupt 
routines, like other completely disabled 
supervisor routines, do not change the PIK 
from the value it had when the interrupt 
occurred that transferred control. 



When a supervisor routine (fetch or 
physical transient) issues a SVC or SVC 
15, the routine puts the value to be used 
in the CAW storage protect key into the 
high-order digit of the second byte of the 
RIK halfword. When this value is zero, the 
low order digit can have these special 
meanings : 

RIK Meaning 

X'Ol' This is a SYSLOG I/O 

request. The channel 
scheduler is not to 
type a SYSLOG ID 
prefix. 

X'02' This has been a fetch 

I/O request. This 
special code is 
required by ERP to 
recognize fetch 
requests. 

Fetch always sets a X'02' in the RIK. 
ERP transients put the key of the program 
requiring ERP into the RIK, when the ERP is 
a retry of a user EXCP and the ERP 
transient requires control to return to 
itself. 

Physical transients put a X'Ol' into the 
RIK when they are doing a SYSLOG I/O. The 
PIK for physical transients has a value of 
X'06', therefore the channel scheduler 
would type "SP" (supervisor ID) as the 
SYSLOG ID. The physical transients put the 
ID of the program referred to by the 
message into the message. 



FIK (Fetch I/O Key) 



LTK (Logical Transient Key) 



The LTK has the same value as the PIK when 
the logical transient area is in use. When 
the transient area is free, the LTK equals 
zero. The SVC 2 routine sets the LTK and 
the SVC 11 routine resets it to zero. 



Used by the fetch to validate the phase 
name address and load address. FIK has the 
following values: 

1 Key of the problem 
program requestor. 

2 

3 

U if the transient 

issued the SVCa. Key 
of the problem program 
if not a transient. 
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APPENDIX H: DETAIL (ROUTINE) FLOWCHARTS 



Chart AA. BOOTSTRAP — $$A$IPLA; Refer to IPL, Chart 01 



• OPERATOR SET • 



BV PRESSING THE LOAD KEYt THE OPERATOR CAUSES 
MICROPROGRAMNING TO READ THE SSAtlPLi RECORD 
FROM SYSRES (CYLINDER 0» TRACK 0, RECORD 1) 
INTO MAIN STORAGE LOCATIONS 0-17 (HEXAOECIMALI . 
THIS RECORD CONSISTS OF: 



HEX LOC 





8 


10 


18 


CONTENT 


PSH 


CCM1 


CCM2 





''IJ?el! 



Hm 



READ DISK INTO STORAGE LOCATION HEX 
18. (UO-BYTES OF DATA. CHAINED (;CMf 
AND SUPPRESSED MLR.) 



SEEK THE DISK ADDRESS SPECIFIED BY THE 
FIRST 6-BYTES OF DATA IN THE SEEK 
ADDRESS LOCATED AT STORAGE LOCATION 
HEX 50. (CHAINED CCU AND SUPPRESSED 
WLR.) 



n 



H) 



00 00 05 



SEARCH FOR THE DISK RECORD SPECIFIED 
BY THE 5-BYTES OF DATA IN STORAGE 
LOCATION HEX 32 (SEEK ADDRESS PLUS 
2-BYTES) . THE CCM IS CHAINED AND MLR 
IS SUPPRESSED. 



F3 •• 

FOUND '••NO 



MICROPROGRAMMING INITIATES A SlO COMMAND 
SPECIFYING SYSRES AS THE UNIT AND CCHT (HEX 
LOC 8) AS THE FIRST CCM. THIS COMMAND CAUSES 
THE ttAtlPLA RECORD TO BE READ INTO MAIN STORAGE 
LOCATIONS 18-3F (HEXADECIMAL). THIS RECORD 
CONSISTS OF: 



HfeX LOC 


19 


20 


28 


30 


37 - 3F 


CONTENT 


CCMS 


CCMH 


CCMS 


SEEK 

ADDRESS 


UNUSED 



• THE CCMS (1-5) ARE CHAINED TOGETHER. 

• THE SEEK ADDRESS (HEX LOC 30) CONTAINS THE 
SYSRES DISK ADDRESS OF THE $tA$IPL2 PRO- 
GRAM. THE FORMAT OF THE SEEK ADDRESS 
FIELD IS: 



HEX LOC 


30 


*] 


^ 


55 


^ 


5? 


'§ 


DECIMAL 
CONTENT 





6 





6 


6 


1 


S 


MEANING 


B 


B 


c 


c 


H 


H 


k 



ii* 



MHERE: BB IS BIN NO. 

CC IS CYLINDER NO. 
HH IS TRACK NO. 
R IS RECORD NO. 

AT THE COMPLETION OF THIS BOOTSTRAP OPERATION* 
t$ASIPL2 HAS BEEN LOADED INTO MAIN STORAGE AND 
MICROPROGRAMMING TRANSFERS CONTROL TO IT BY 
LOADING THE PSM FROM MAIN STORAGE LOCATION 
(HEXADECIMAL). 



00 00 



TRANSFER IN CHANNEL (TIC) TO CCM5 UNTIL 
THE SEARCH ADDRESS SPECIFIED BY CCM5 
IS FOUND. (CHAINED CCM AND SUPPRESSED 
MLR.) 



itu 



30 00 20 



READ DISK INTO STORAGE LOCATION HEX 
5000. (H096-BYTES OF DATA* SUPPRESSED 
MLR.) THIS CCM IS NOT CHAINED. 



• READ '^096 



••••H3*«*«****» 

: iiiim : 



istTl^ffiTlsTshinEi^tbiks. 
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Chart AB, Clear Storage and Load Supervisor — 
$$A$IPL2, Refer to IPL, Chart 01 



UMIPLZ 



• A4 
THE PC PSW CONTAINING THE 
RETURN ADDRESS TO THE $tA$IPL2 
PROGRAM IS THE RETURN LINKAGE 
AFTER THE PROGRAM CHECK. THE 
ADDRESS OF THE PC IS SAVED AS 
THE END OF CORE ADDRESS. 



IJB1P210 

» LOAD ADDR 

• OF BEGIPL 

• IN EXTERNAL 

• INTERRUPT 

• PSW 



•♦•cu 

INITIALIZE 

FOR PROG 

CHECK, LOAD 

RETURN ADDR 

IN PC PSW 



ERR X 




LOOKUP 


.*. 


*»**«D2**«***«« 








B3 «. 


• PUT ERROR 








♦ • 


♦ CODE IN 

» LOCATION 0-3 

♦ STORE ADDR 


• 


YES 


.• 


LAST 

DIRECTORY 

ENTRY 


« *' 




■ « 


• IN CAW 








*. •• 










♦NO 












• « * . 










AC-Dl* «... 










AE-E2* • ♦ 










A0-£3*»»» 








X 


HALT X 








m*» 



CLEAR X 

**«*«D1»**«**« 

♦ CLEAR MAIN 

♦ STORAGE 

♦ TO FORCE 

♦ PROG CHECK 

♦ ♦AA 



• •-n-E 1 •*•*«*•* 

GET SYSRES 

DEVICE ADDR 

FROM LOC 2 

AND STORE 

IN DEVADR 



READER X 

*»«««F1»»»«»»»« 

• LOAD ADDR 

• OF TRANSIENT 

• DIRECTORY IN 

• SEEK ADDR 



LOAD ADDR 

OF SEEK 

CCW IN 

CAW 



READ BLOCK 
OF 
TEXT 



MASK OFF 

ALL 

INTERRUPTS 



LOAD PSW 

WAIT FOR 

OPER ACTION 



C3 
.« ANY ♦. 

• MORE 

ENTRIES ON 
». THIS 
•.TRACK.* 

*»YES 



SEARCHING « 
TRANSIENT 
.DIRECTORY.* 



D3 *. 
.* IS *. 

♦ THIS THE 

SUPERVISOR 
♦. ENTRY . 



**D5*»*«*** 
PUT CORE 
IMAGE DIR 

ADDR IN 
READ CCW 



•»»»E3*»»*»**»* 

ADD 20 TO 

DIRECTORY 

ADDR TO LOOK 

AT NEXT ENTRY 



.* END • 

*.0F DIRECTORY 
*. BLOCK .* 



.♦ IS •- 

.* THIS THE ♦. 

♦LAST DIRECTORY. 

*. BLOCK .• 



FOUND X 

•••••E4******* 

• TURN ON ♦ 

• SW TO 

• INDICATE 

• SUPVR FOUND 



• LAST ♦. YES 
RECORD OF ...... 

*SUPERVISOR.» 



TRANSIENT ». 
DIR BEEN .* 
.SEARCHED .♦ 



.* FIRST *. NO 
.RCD OF SUPVR .*... 
♦.BEEN READ.* 



CHGADR 

•••«*H 4 ••*•••••«* 
*DSKADR 



UPDATE 

DISK 
ADDRESS 



»—♦—»—♦ 



«*••* 
*AC • 
• F2» 



UPDATE 

DISK 
ADDRESS 



••*K2******* 

COMPUTE 
CORE SIZE, 

ADDR OF 
TRANSIENT 
DIRECTORY 
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Chart AC. Build Two Device System (Part 1 of 2)- $$A$IPL2 
Refer to IPL, Chart 01 



AOOR FROM 
BYTES 



• ••• 

• • 

• • 



••••• 
•AB • 

• F4« 



IN THE ' 
REGION 
32 AND 



iiii!yi4r 



• SAVE END OF • 

• CORE AODR IN • 
•-SAVERI-OEC BLM 
•CNT. CALC SIZE* 

• OF SUPERVISOR • 



•••••B2 •«••••«••• 



ENORD X 

•••••B4*«*««*«**' 

• GET ADDRESS 



•••••C4***«««***> 

• STORE END OF • 
•CORE ADOR vASa 

• SET SYSRES • 

• LUB NO. TO 6 • 



.• MACHINE •• 
.SIZE AT LEAST. 
•. 16K .• 



MVCEND X 

•••••02 •••**••••* 
•GET END OF CORE* 
•ADDR. INIT CCW^ 
• WITH BLOCK • 
•LENGTH TO READ • 



••••• 

•AB • 
• C2^ 



•••••£!•••••••••• 

•PUT SYSRES ADDR^ 
•IN SAVER2. GET^ 

• ADDR TO MOVE • 

• I PL PROGRAM, • 
•PLUS LNG OF MVE^ 



•••••F !•••••••••• 

•SYSMVC AG^ 
>-•-•"•- •-•-»•-•-• 

• MOVE THE • 

• I PL PROG • 

• TO HEX 7000 • 



•••••E2««^«*^^ 

• MODIFY SW AT^ 
•REGNO TO X«02«« 

• MODIFY SW AT 

• SW2 TO X«FO« • 



RDBLOK X 

•••••F2^«*^^***^* 

• SET CCW TO • 

• READ IN • 

• SUPERVISOR, • 

• DECREMENT • 

• BLOCK COUNT • 



• •••• 

• AB • 



• PUT SYSRES 



VISOR AND A 



• MOVE I/O TBLS • 

• TO HIGH CORE. • 
•BLD PUB SYSRES • 



•••• •FA •••••••••• 



IS 



I/O 

SYSRE 

ONLY OEVICE 



AREA, 



IME. rt WiLL BE 
EXPANDED TO A TWO 
OEVICE SYSTEM WHEN 
THE COMMUNICATION 
DEVICE IS ADDED. 



•••••G !•••••••••• 

• ADJUST BASE • 
REG AFTER 



BLOCK 


• . 


NO 


COUNT 


.• 


• . . . . 


». .• 






• • •* 




-X 


• YES 




• ••• 

• AB 

• Gl 



• SET EXTERNAL • 

• INTERRUPT NEW • 

• PSW TO POINT • 

• TO EXTRTN • 



•••••H !•••••••••• 

*• GET ADDR • 

• OF ADCON • 

• TABLE • 



• • 


•••H2^****«» 


»•• 




ADJUST FOR 






LAST 






READ 




• • 




»•• 



•••••H4^^^^ •••••• 

• ENABLE • 

• ^ ALL • 

• INTERRUPTS • 



ADCLOP X 

•••••J !•••••••••• 

• GET ADCON • 
P AND MOVE • 

• IT TO HIGHER • 

• CORE LOCATION • 



.• ALL 

ADCON S 
•. MOVED 



•••••J2««^^*^^ 

• TURN ON SW • 

• -SWI- READY 

• TO READ LAST 

• RECORD OF 

• SUPERVISOR • 



• •••• 

• AB • 

• Gl» 



• J3 

THE IPL PROGRAM 
IS NOW EXECUTED 
STARTING AT 
LOCATION X'7000* 



• •••• 

• AD • 

• A3^ 



• ••• 

• • 

• I • 
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Chart AD, Build Two Device System (Part 2 of 2)- $$A$IPL2 
Refer to IPL, Chart 01 



«A1 
THE SYSTEM IS PUT IN THE WAIT STATE 
UNTIL THE OPERATOR CHOOSES 
WHICH DEVICE HE WANTS FOR THE 
COMMUNICATIONS DEVICE (SYSLOG, 
SYSRDR, OR AN UNASSIGNED READER). 
IF IT IS SYSRDR AND SYSRDR IS 
ASSIGNED, GO TO EXTRTN. IF IT IS SYSLOG 
OR AN UNASSIGNED READER, GO TO ENTER. 



♦♦♦*A3»«»»*»»*« 
* LOAD PSW ♦ 
*WAIT FOR OPERA-* 
•TOR ACTION •A4* 



A SECOND DEVICE IS ADDED TO THE I/O 



THE SECOND DEVICE IS THE COMMUNICATIONS 
DEVICE, AND MAY BE A 1052, A CARD 
READER ALREADY ASSIGNED AS SYSRDR, 
OR AN UNASSIGNED CARD READER. 



I/O INTERRUPT 



♦ RESULT » 

OF OPERATOR 
*. ACTION .* 



PUT C/U OF 

COMM DEVICE 

FROM OLD PSW 

INTO -ADRDEV- 



EXTERNAL 
INTERRUPT 
SYSRDR ASGN 



••♦«C3*»»»*»»*» 

LOCATE LUB 

FOR SYSRDR 

IN SYSGEN 

I/O TABLES IN 

HIGH CORE 



««»D3»*»»**»* 

SET MESSAGE 

CODE OIOIA 

IN CORE LOC 

0-4 



• ASSIGN PUB ♦ 

• FOR COMM DEV ♦ 
•DURING IPL •A4» 



SETPROT X 

•*»**E4*»******* 
» GET LENGTH OF 
« BLOCKS. GET 
» LIMITS TO BE 
» PROTECTED. 



»***«E5 ******** 

* RESTORE I/O 

* NEW PSW AND 

* EXTERNAL NEW 

* PSW 



X 

• *•* 

AB * 

C2* 



ENTER 
NEITHER .^ 

X 

* I 



F2 *. 

.* 1052 
* OR 

CARD 
*. READER 



•«««F3««*»**««* 

LOCATE DEVICE 

IN PUB TABLE 

PUT C/U INTO 

I/O OLD PSW 



SETKEY 

*«*»«F4« •**«*«•«* 

* SET STORAGE * 
•PROTECTION KEYS* 
*FOR EACH BLOCK * 

* OF STORAGE TO * 

* BE PROTECTED « 



SETLOG 

«««*«G2****** 

• SET LUB 

* NUMBER 

* 4 FOR 

• SYSLOG 



SET LUB 

NUMBER 

FOR SYSRDR 



SET JBCSWO ♦ 

TO X«20«, LOG 

ON SYSLOG * 



SET SYSRES • 

ADDR IN PIB * 

FOR FETCH * 



PSWGO X 

•»»«»G5 ******** 

* SET MASK TO 

♦ ENTER 

• PROGRAM 

* STATE 



««*»«H5*****»**»« 

* BRANCH TO I/O • 
*TABLES IN HIGH * 
*CORE TO PICK UP* 
*LOAD INSTR FOR • 

* $IPLRT2 * 



SVC 4 

LOAD $IPLRT2 

CHART AJ 
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Chart AE, 



Move I/O Tables- 
01 



$$A$IPL2; Refer to IPL, Chart 



«A1»»»»» 
LUBRTN 



•«*»«A3********* 

• CALCULATE THE 

• SIZE OF THE 
•TEBS, GET AODR 

• TO MOVE THEM 



♦ INITIALIZE 
♦REGISTERS, PUT 
» CHANNEL AND 

• UNIT IN TEMP 
» PUB 



THROUGH IT WILL 
BE SYSRES C/U 
NEXT TIME IT 
WILL BE THE 
COMM DEVICE. 



X 

««««*B 3* ****** 
•SYSMVC 

♦" "move thI ~ 

♦ TEBS TO 

* HIGH CORE 



* IS *. NO 
THIS FIRST 

*. ENTRY .* 



•***D1****** 



GET LUB 
ORIGIN, GET 
NICL ENTRY 



TURN OFF 

FIRST ENTRY 

FLAG 



LUBLOP :. 

***«*03»*«««»»«* 

* CALCULATE THE 

* NUMBER OF 
•LOGICAL UNITS, 

• GET ADDR TO 

• MOVE LUBS 



El •. 


E2 ♦. 




••••*E3^ **•***•*• 


• • •• 




IS ». 




•SYSMVC AG* 


.• CORE •. NO 


.•SUPERVISOR •. 


YES 




•♦-•-*-♦-♦-•-•>♦ 


♦ .SIZE GREATER .* 


...X*.TOO 


LARGE FOR. 






MOVE THE ♦ 


♦.THAN 16K .♦ 


• • 


16K .• 






LUBS TO ♦ 


• . •• 


*• 


. • 


X 




HIGH CORE • 


• YES 




•••NO 


' 










• AB • 












• C2^ 












• • 






,x. , 






HALT 














ORGEST X 










X 










•*«««F3**^^^^**«* 


• CALCULATE • 










UNASSIGN ♦ 


• SIZE OF PUBS, * 










EXISTING LUBS ♦ 


• GET ADDR TO • 










IN LOW CORE * 


• MOVE PUBS • 










SET TO IGNORE * 










»i 


SYSLOG * 



• ♦♦• 

♦ 2 ♦ 

• ♦ 



••••♦A5*^* ******* 

*BLDPUB AF* 

♦—♦—•—*—•—*—#—♦-♦ 

♦ BUILD PUB ♦ 

• FOR I PL * 

* SYSTEM • 



•••♦•B5*** ******* 
*CHURTN AH* 
♦—»—♦—•—»—♦—♦—♦—♦ 

• UPDATE THE • 

• FOCL • 



»»**»C5* ********* 


♦LUURTN 


AH^ 










UPDATE THE 






LUBS 








»♦•• 



ASSIGN 
THE 
LUB 



♦•••E5 ♦•*•*•*♦* 

RETURN * 



• •*« 
« * 
• 3 • 



••♦*•••• 



*«*«*H1«**^^*»*^ 

• SET THE FOCL 

• AND FIRST 3 
•PUBS TO A NULL 

• VALUE. GET 

• ADDR OF TEBS 



.• IS IT ♦ 

-TO ESTABLISH 
•. SYSRES .♦ 



.• IS IT • 

.TO ESTABLISH 
*. SYSLOG .* 



. . TEMP PUB 
.X* TURN ON 
* SHARED FLAG 



•••••H5* ****** 



PUT 1052 

TYPE IN 

PUB 



SET THE 

JIB 
POINTER 



ARE *. 

THERE 
TEBS .* 

.• 


NO 


'•YES 


X 
• ••• 

* 
• 2 

• 




• ••• 



•••••J 3*^^ •**•••• 

• PUT CARD • 

• READER TYPE • 

• IN PUB • 



••••*J4»*««^«^^^^ 

♦ REPLACE PUB ♦ 

♦ TYPE WITH * 

♦ SYSUSE ♦ 



«^««K1 ••*••*• 



PUBMKE 

•••••K4*«« ••***•* 

* INITIALIZE * 

* FOR BUILDING * 

* PUB SUB- * 

* ROUTINE * 
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Chart AF. Build PUB Table — $$A$IPL2; Refer to IPL^ Chart 
01 



• CLORTN • 



•••• 

• • 

• 1 • 

• • 



• • 

• BLOPUB • 

••••••••••••••• 



••••B3«*««««««*» 



•••••■•••••••••• 



•••••|5««««»««««« 



iKr mm 



• PUT CHAN NO. • 

• OF CHREGt PUT • 

• FOCL PTR FOR • 

• CHAN IN CHTST • 

• • 



,♦ ANY • 
•.DEVICE ASSGN 
•. TO CHAN .• 



CHSRT ^. X 

GET FIRST • 

POSITION OF • 

PUB FROM • 

FOCL • 



CHCLOP 

•■•••02««««*««**< 

• SEARCH PUB 

• TABLE FOR 
.•.X«FIRST AVAILABLE 

• FNTRY 
• 



BCHEST 

• ••••E2«« ••••••*' 

STORE FIRST 

AVAILABLE PUB 

NUMBER IN 

FOCL 



•• DESIRED 

• •POSITION PA: 

••CHAN END 



••••03^^«*^**^^* 
CALCULATE • 
CHANNEL END • 



M 






•••■•••••••••••• 



SPftSW X 

•••••E3*^*^^^* 

• INCREMENT 

• PUB USED 

• BY PUB 

• LENGTH 




)•••••••••••••••• 



D5 •• 

I .•'*AHO fp **•• 

-.. mm ••• 



•VES 

•••• • 

• • • 

• 2 •••• 

• • • 
• ••• • 

X 

•••••E5««»«^«**«* 



• * i 

•. THIS 
•.LAST 



S •• VES 
THE ••.... 

CHAN.^ 



•RANCH. • 
•••••. SWITCH 



•••••F2«^ ••••••• 

• DETERMINE 
X^ LAST PUB ON 

• CHANNEL 

• 
•••••••••••••••• 



• I • 

• • 
• ••• 



HI •. 

NEXT *•. NO 
FOCL .••*. 
UNUSED .• 
• • *• 
• • •• 
•YES 



GET LAST PUB 

ON CHANNEL 

FROM FOCL 



••••F3^*^^^^^^^ 

PUB 

• ••••••••••••••' 



•••••G3********** 
•SYSMVC AC^ 
•-•-•-•-•-•-•-•-• 

• MOVE THE PUBS • 

• TO MAKE ROOM • 

• FOR NEW PUB • 
••••••••••••••••• 



NOMVP X 

•••••H3^«^*^^^^^* 
INSERT • 



•••••••••••••••• 



••••J3*«^«^^^^^ 
• RETURN « 



•G4 
FOCL NO. TIMES 
8 PLUS THE PUB 
TABLE ADORE SS^ 



• • 

! 'devices I 

••THIS CH. 



•••«*6S*^*««**«' 

• (ALL AOOR OF 

• PI AST PUB ON 

• THIS CHANNEL 

: mf'"".U 

••••••••••••••• 



•••••HS«*««««*«*« 
•STORE FIRST PUB* 

•AT OSPLT X«70« • 
••••••••••••••••• 



CL0LP2 
NO 



•• LAST 
FOCL 
•• ENTR 



RV 



• I • 

• • 
• ••• 



••••R5^^«^^^«^» 
I RETURN * 
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Chart AG. Common Move Subroutine — $$7V$IPL2; Refer to IPL, 
Chart 01 



• SVSNVC • 



X 
• •• 

•» •• 

• • TO hi AOVEO •• X* KETURN • 



i 

••'*.!!0S«-..***» «-"T TO LOU CORE 

• • RI6NT OR ••• 

•. LEFT ♦• 
• • •• 



'•klOHl TO HIGH CORE 



€» 



• ••• 
• 3 

• ••• 



• • 

• • 


;,.„.,„ • 


«i;«^« i i 


•«•••••••••••••• • 


• • 




:x : 



DECRR ^. X 
• COUNT 



•• SHIFT •• YES 

•• COUNT •• 

• • •• 



: ,}Siinu : 



•••• 

• • 

• • 
•••• 



* COUNT **•. YES 



■ ••• 

• • 

• 2 • 

• • 
• ••• 



lEW AREA 



»«oy( 

BYTL- ._ 
NEW AREA 



AND TO POINTERS* 
•••••••••■•••••• 

X 
• ••* 

■ • 

• • 



RESIOL ,. X 



•IT TO N 



CALCULATE • 

— OF LAST • 

:. MOVE • 

NEW AREA • 



••••GA**«*«* 

• RETURN 



••••Jl«»»«**»««i 



WJi* 



X 

• • 

• 2 • 
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Chart AH. Update Disk Address — $$A$IPL2; Refer to IPL 
Chart 01 



• DSKAOR • 



•••••CI* ••••••••• 

• PLT DISK ADDR • 

• IN UPDATE • 

• FIELD, • 

• POINT TO • 

• RECORD NO. • 



• ••• 

• • 

• I • 

• • 

• •••' 



••••B3«««**«»«« 
• CHURTN I 



PICK UP 
CHANNEL* 

Tncrehent 

ADDRESS 



•••• 

• • 

• 2 • 

• • 
•••• 



RECORD •• 

NUMBER 

2 OR 8 •• 



•••••£!•••■•••••• 

• SET RECORD NO • 

• TO 01, POINT • 

• TO TRACK • 

• NUMBER • 



TRACK 

NUMBER 

09 



•••••G !•••••••••• 

• SET TRACK NO • 

• TO 0, POINT ♦ 

• TO CYLINDER • 

• NUMBER • 



••••E2^^«^*«*«* 

• • 

• RETURN • 



X 

• •• 

D3 •• 

IS IT 

THE LAST 

CHANNEL 

• • • 

• • •• 

•NO 



••■••E3*^«^**^^** 

• INCR CHANNEL • 

• NUMBER, GET « 

• FOCL ENTRY • 



• LUURTN • 



X 

•••••£S««««»«*««» 



LUUPLP ••• 

05 •• 
• • • 

N0^.« IS 

'**«.assUncp 

*• •• 

•• •• 

•YES 



e? •• 
• • HAS •• 

NO •• Plil • 

,.••• REPOSITIONED 



F3 •. 




.• ANY •. 




.:-oN''f«'!S.N- 


. NO 


*• •* 




• . .• 




• • ■• 


X 


•YES 


• ••• 




• 




• I 




• 




• ••• 






•••••G3«*«**«^« 


• • 


• 




• INCREMENT 




• FOCL POINTER 




• 




• 


• • 



INCREMENT 

TO NEXT LUB 

ADDRESS 



HS 
KO...-*.lA}T 



••. SYStEH .• 
•• LUB •• 



• 2 • 

• • 
•••• 



••••J5«««««*»«« 
• RETURN • 
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Chart AJ. Initialization and Read Control Cards — $IPLRT2; 
Refer to IPL^ Chart 02 



• SIPLRT2 • 



BEGIN 

• •■••B2 *""•••«••• 

• GET COMf RGN • 
•ADDR. ._SEi_AO0R» 



1/0 TABLES START AT 16K 
F SYSTEM IS LARGER THAN 
6K. THEY HILL BE AT THE 
NO OF THE tIPLRTZ PROG 
F IT IS A 16K SYSTEM. 



PUBCLC X 

CALCULATE 

THE NUMBER OF 

PUBS IN 

USE 



TE8CLC 
NO .•' 



REAQRT IS A SUBROUTINE 
IN THE LlSTINGt BUT IS 
SHOMN AS LOGICAL IN LINE 
PROGRAM FLOU. 



ARE 
THERE 
TEBS 



TLRN ON TFB 
FLAGt CALC THE 

NUMBER OF 
TEPS USED 



REAOGC 
READRT 



.• ILP •. 




.♦ CnfH DEV •. 


YES 


A 105? 


• •«•• 


•• vFI •• 








«. .« 




• NO 


• ••• 




• 




• i 




• 




• ••• 



•AN-K5 
AP-G2 
AP-K5 



•••E4******* 

TURN OFF • 
FIRST ENTRY • 
ON 1052 
SUITCH • 



• 2 • 

• • 

• ••• 



LOGREO X 

• INITIALIZE 

• TO READ CONTROL 
STATEMENTS ON 

1052 



••••G2*«******* 

INITIALIZE TO 

READ CONTROL 

STATEMENTS 

CN READER 



REREAD X 

• •••••GA •••••••••••• 

lOHLD AW 

READ STMNT 

• ON • 

1052 



READ STMNT 
ON CARD 
RFAOER 



.• STATFMENT •• YES 
ENTERED •••... 
•• OK •• 



• •••• 

• AK • 

• Bl» 



• •••• 

• AK • 

• Bl« 

• • 



• •••••J4««*****»**' 

MSGRTN AW 



•••• 

• • 

• 2 ♦ 

• ••• 
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Chart AK, Evaluate Control Statement and Check Time of 
Day— $IPLRT2; Refer to IPL, Chart 02 



TURN OFF 

cNO OF CARD 

SWITCH 



STORE ADDRESS 

OF FIRST 

OPERAND 



• •'•»C1********« 

TRANSLATE THE 

CARD INTO 

INNER CODE 

TRT FOR THE 

OP CODE 



•TEST THE FIRST • 
•CHAR OF OP CODE^ 
• At D, OR S • 



•••♦Ei«*^^»*^» 

ALTER 

DELIMITER 

TABLE, COMMA 

IS AN ERROR 

STOP 



TRANSLATE 

AND TEST FOR 

END OF OP 

CODE 



•TEST THE END 0F« 

• OP CODE CHAR • 

• MUST BE BLANK • 



CDSCH 

*«***C3«*«^^«*^** 

• INITIALIZE • 

• FOR SEARCH • 

• OPERATION. • 
» SEARCH TABLE • 
•AGAINST OP CODE* 



03 •. 
.• OP *. 

CODE EQ 
TO SEARCH 
.TBL ENTRY. 



••• 9^3* ******** 

LOAD ADDR OF 

ROUTINE FOUND 

IN SEARCH 

TABLE TO 

BRANCH TO IT. 



F3 •. 
.» ADD •. 

•SET OR DEL 

CONTROL 
•. STMNT . 



SETRTN X 

««***G3**»^**^^* 
•FDSRTN AR 

• GET FIRST 

• OPERAND OF 

• THE SET STMNT 



B5 •. 

• IS 

IT THE 
CLOCK 
FIELD 



•****C5* ••*•*••• 
•TIMERT AQ 

• PUT TIME 

• IN SUPERVISOR 

• REGION 



X 

••••• 

• AL • 

• Bl^ 

• • 

UNSRES 



PUT TIME IN 

SUPERVISOR 

REGION 



•«•« 



««**»G5 *••••• 

• fdsrtn ar» 
*' get'next • 

• OPERAND • 



RESTORE 

DELIMITER 

TABLE, COMMA 

IS A LEGAL 

STOP 



•CALC THE LENGTH* 
♦OF THE OP CODE * 

• MOVE THE OP * 
» CODE INTO * 

• OPTEND • 



• IS •. NO 

IT THE DATE .♦... 
•. FIELD .» 



IS •. 

IT DATE 
COMMAND .• 



PUT THE DATE 

IN THE SUPVR 

REGION 



PUT DATE IN 

SUPERVISOR 

REGION 



• AL • 

• Bl» 



TEST FIRST 

OPERAND FOR 

LEGAL CHAR 



.» IS •. 

TIMER 
». PRESENT .• 
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Chart AL. Assign SYSRES and SYSLOG — $IPLRT2; Refer to IPL, 
Chart 02 



•AK-KS 



•••• 

• • 

• • 
•••• 



• ••• 

• • 

• 3 • 

• • 

• ••• 



SRES ••• 

•Ifor comm oev ••• 



UNASGN 

• •• 

•NO 






••••••••• 



COMNFD 

^••••02 •«••••••• 

• GET ACOR OF 

• HSG 0I17A - 

• NC PUB GIVEN 

• FCR SYSLOG 



• AP • 

• F3» 



PUB poll 

FOR COMM DEV 
IN -LU8KEV- 



CHKCOM X 

•••••B3*a •••••••• 

•CONCHK AT* 



• VALIDATE Pyi 
•FOR COMMUNIS 

• TION OEVICI 



.• WAS •• 

•COHN DEV PUB •• 
•• VALID .• 



COMM DEVICE 

IN HIGH CORE 

I/O TABLES 



AV» 

• FIND THE PUB • 
•FOR THE SYSRES • 

• DEVICE • 



••••B5 •••••••••• 

MAKE PERMANENT • 



OR SYSRES 
HIGH CORE 
TABLES 



SYSRES 
LUB HAVE 
. A JIB 



SET • 

STANDARD JIB • 
FLAG IN SYSRES 
LUB • 



•«• •£$•••••••••• 

HPXRTN AW^ 

REORDER THE • 
MPX LUBS • 



• FIND THE PUB • 

• FOR THE COMM • 
•OEV IN HIGH CORE 



WAS 

SPU_ 
UND 



• 2 • 
• ••• 

RDRTST 

•••••H?* ••••••• 

IS •• • INIT FDR 

COMM •, NO f OFVICE CHECK. 

DEVICE A •• X^ SYSROR IS 

. 1052 .• • CCMM DEVICF 



HI. 



♦ • 



^•••Jl*«^ •••••• 

INIT FOR 
DEVICE CHECK. 

SYSLOG IS 
COMMUNICATION 



WAS 

PUB 

FOUND 



WAS 

PUB 

VALID 



• 3 • 

• • 
•••• 



RFSNFD 

•••••H4*******« 

• GET ADDR OF 

• MSG 0II6A - 
...X^ NO PUB GIVEN 

• FOR SYSRES 



• ••• 

• • 

• 1 • 



ALL INTERRUPTS 



OFF. 



••«»«FS^^^***^^^ 
•OPNRTN AM 
•—•—•-•-♦—•-•-•-( 

• UNASSIGN SYS 

• INPUT/OUTPUT 

• TAPES 



•G5^^^^ 

RTN 



• VALIDATE THE • 
•ASSIGN FLAGS IN^ 

• THE PUB TBL • 



CHECK DISK 

CHANNEL 
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Chart AM. Move I/O Tables to Low Main Storage — $IPLRT2; 
Refer to IPL, Chart 02 
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Chart AN. Add a Device — $IPLRT2; Refer to IPL, Chart 02 
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Chart AP, Delete a PUB— $IPLRT2; Refer to IPL, Chart 02 
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Chart AQ. Date and Time SuJDroutines — $IPLRT2; Refer to 
IPL, Chart 02 
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Chart AR. Analyze Device Type — $IPLRT2; Refer to IPL, 
Chart 02 
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Chart AS. Update FOCL and LUB Entry — $IPLRT2; Refer to 
IPL, Chart 02 
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Chart AT. Check Device Assignment and Convert Decimal to 
Hexadecimal — $IPLRT2; Refer to IPL, Chart 02 
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Chart AU. Build PUB Table — $IPLRT2; Refer to IPL, Chart 02 
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Chart AV. Find PUB and Test Delimiter Subroutines- 
$IPLRT2; Refer to IPL, Chart 02 
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♦♦«»F1«»*»»»»»» 

• RETURN TO 
» LNK ADDR 

* ERROR RETURN 



DSDPl 

♦•♦»«D3» ***••♦•♦ 

• INCR PUB ADDR 
•TO LOOK AT ONE 
♦PUB ENTRY EACH 

• TIME THROUGH 

• THIS LOOP 



•*»«D4**« ****** 
• RETURN • 



X 
***** 

*AP * 

* E2» 



CALC PUB 

NUMBER AND 

TRUE ADDRESS 



»*»»F2****»** 

* RETURN TO 

* LNK ADDR 

* PLUS 4 

***«*•***««*• 



*GI 
COMMUNICATIONS 
REGION DISPLACEMENT 
92 IS THE CHECK POINT 
AREA, BUT IS USED TO 
KEEP TRACK OF THE DASD 
DEVICES THAT ARE FILE 
PROTECTED DURING THE 
IPL PROGRAM. IT IS 
RESET TO ZERO BEFORE 
THIS ROUTINE IS 
EXITED. 



LAST 

PUB IN 

TABLE 



*»*«*F3******** 

• ZERO BYTE 

• IN COMM RGN 

• DSPLT 92 
» ♦GI 



****E5* ******** 
*RETURN *A4 * 

* VALID CARD * 

* RETURN * 



DSDP2 
2311 .* 



»*»*G3* ******** 
RETURN • 



2321 
• .* 
*. .* 

♦2321 



♦ GET CHAN NO. , 
*CHAN MASK ADDR, 
« CHAN SUPPORT 

• FLAG 



J4 ♦. 

.*DEVICE *. 
.* SUPPORTED *. NO 
ON THIS .*... 
*. CHAN .* 



*****J5*** •«*«**• 



.X* DEVICE ON NON 
*FILE PROTECTED 
* CHANNEL 



*YES 

X 

*«** 

• • 

* 1 * 
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Chart AW. Reorder MPX Channel LUB's and PUB's and 1052 I/O 
Subroutines — $IPLRT2; Refer to IPL^ Chart 02 



•••• 

• 2 • 



• MPXRTN • 



• CALCULATE END • 

• OF LUB TABLE • 

• GET PRESENT • 



•.YES 



•••• • 

NPXLOP X 



GET NEM PUB 



••** ON **•• NO 

. MULTIPLEX 

•• CHANNEL •• 



• ••• 



.."can-.. 

. OEVtCE BE .. YES 

OPERATEO IN .« X 

•• BURST .. 
•.MODE .. 



.. BURST .. 
.. ORIGIN .. NO 
. ESTABLISH" 



••••0? *•.**...* 

• RETURN • 



.. BURST •• 

. ORIGIN • 

ESTABLISHED 



■••••B3......... 



ABL- 



. 3 ..X 



SHED 
.. 

•.YES 



••«»G I. ........ 

SYSMVC AG 

HOVE PUB 

TO HAKE 

ROOH 



• ••• 



END 

OF LUB 

TABLE 



03 
.. 

ASSIGNED 



MSGRTN 

J**PUT HESSAGE* 
. ADOR IN OP 
. CODEt SET UP 
. CC6 ADOR 



••••C5......*.. 

I lONLO • 



X 
SVC 



••••E3......... 



SCAN PUB 
TABLE TO FIND 
PUB ASSIGNED 



E5 
.. •. 

. ANY 
READ ERROR. 

*.. ..* 
.. .. 

.YES 



. RETURN . 



»«»«F5. ......... 

NUMBER . 



RESET 

LUB 

ASSIGNMENT 



X 
• ■••• 
.AP . 
. G3. 

• . 

lOSTOP 



• ••« 

• • 
. I . 

• • 

• ••« 



LOAD MPX 
FKDINC ADOR 
IN -MPXEND- 



• ••• 

• • 
. 2 . 

• • 

• ••• 



• ••• 

• • 
. 3 . 



TURN OFF 
BURST FLAG. 
GET NEXT 
PUB ADOR . 
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Chart AX. Set Job Control Flags — $IPLRT2; Refer to IPL, 
Chart 02 



• ASNRTN • 



SE 

LOCP CONTROL 
"DOR 



ASNLP2 X 




• 2 • 

• • 
•••• 



• ••• 

• 3 • 

• • 

• ••• 



. IS 
• • THE 

CLASS 
••ASSIGNED 



••••E2**««*«***' 

GET FIRST 

LUB AODR 

GET NICL 

ENTRY 



• ••• 

• 2 • 

• • 

• ••• 



•••• 

• • 

• 1 • 

• • 
•••• 



•• LAST •. NO 
LUB IN •••••• 

•• CLASS •• 



.• IS •. YES 
THE LUB .*.... 

•UNASSIGNEO.* 



PICL 

• • •• 

• YES 



• RETURN • 



•••• 
• 1 • 



*THE JOB CONTROL 
FLAGS MAY HAVE 



•FCR SYSLGG.* 



•••••J2«**«*««*« 

• TURN OFF 
•JOB CTRL FLAGS 

• IN PUB FOR 

• SYSLOG 
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Chart AY. Allocate Main Storage Subroutine — $IPLRT2; Refer 
to IPL, Chart 02 



• ALCRTl • 



••••Bl*«*«*«« 
I ALCRTN 



••••B3«« ••••••• 

GET NUMBER 

IF CORE BLKS 

FROM P IB. 

GET SIZE 

OF BLOCKS 



• • 
• ••• 



SSKLOP X 

•••••BS *•••*•**■* 
SET KEY FOR • 



CI •. 

• IS •• 
MPS •. 

FEATURE 
PRESENT .• 



••••C2««« •••••• 

I RIETURN • 



«• ••01 •••••••«•' 

GET PIB TBL 

ADCR. GET END 

OF CORE. AODR 

PLUS ONE 



••••£!•••■••••• 

CALCULATE 

ADDRESS OF 

FOREGROUND 

ONE PIB 



••••F !••••••••• 

ALCRTl AY 

.-•-•-•-•-•-•-•- 

SET AREA 

FOR Fl IN 

FI PIB 



••••Gl ■••■••■••< 

CALCULATE 

ADDRESS OF 

FOREGROUND 

TMO PIB 



••••HI* •■•••••• 

ALCRTl AY< 

[•>•-•<-■•'-■•-••••>•• 

SET AREA 

FOR F2 IN F2 

PIB 



••••J !•••••••«• 

• RETURN • 



•••••C3« •••••••• 

• GET STARTING 
<• ACCRESS OF 

• AREA TO BE 

• ALLOCATED 



D3 •. 
.• AREA •• 
• FIT IN •. NO 

AVAILABLE 

•• CORE .• 



PROTECTION 

STARTING AODR 

IN -ALCWK6- 



ALCKT? X 



G3 •• 
.• WILL ». 
•AREA TO BE 
ALLOCATED 
• . FIT 



•••••C5***«****«* 

• STORE THE END • 

• OF PROBLEM • 

• PROGRAM AREA • 
•MINUS 1 IN COMM* 

• RGN DSPLT 32 • 



••••DS********* 
RfcTURN 



• F3« 

• • 

ABNCHK 



.• NO, •. VCS 
•.CF CCRE BLKS ••.... 
♦. ZERO .• 



• ••• 
• I 

• ••• 
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Chart BA. 



Initialization — 
Chart 03 



$JOBCTLA; Refer to Job Control, 



INITIALIZE BASE* 

REGISTERS ♦ 

♦ B2 * 



ZERO 

COMMUNICATION 

REGION 

ADDRESSES 

• F2 



BASRGl-S 

JOB CONT 

-BASVCT- 

ALSO USE 

BRANCH r 

CONTROL 

READ ROU 

BASRG2-PI 

BEGINNIN 

OF OVERL 

-OVRVCT- 

AREA WHE 

PHASES $ 

SJOBCTLG 

ARE LOAD 

BASRG3-S 

+4096. 

BASRG4-P 

COMMUNIC 



ET TO THE 

ROL ORIGIN 

. THIS REG 

D AS A COMMON 

EG TO THE 

STATEMENT 

TI.NlE. 

01 NTS TO 

G ADDRESS 

AY AREA 

. THIS IS 

RE JOB CONTROL 

JOBCTLD, 

♦ AND SJOBCTLJ 

ED. 

ET TO BASRG2 



.♦ PAUSE SW ». 
.ON -COMREG+56. 
♦. BIT 5- .• 





.» WAS ». 




.♦LAST INPUT ♦. 


NO 




ON SYSLOG . 
♦.COMREG+56.* 
♦.BIT 2.* 






♦ . •♦ 


X 




• YES 


*BB * 
• Bl* 

• ♦ 




X. 








CONTROL 




X 










♦ 






SET • 






PAUSE SWITCH 


• 




OFF * 






« 





*«***D4***^^**** 
•INITIALIZE FOR 

♦ I/O-LOAD ADOR 

♦ OF SYSLOG DFB 
♦IN REGISTER 1- 



♦ SET SYSLOG ♦ 

♦ ASSIGNMENT • 
*SWITCHES •H2* 



SAVE VALUE 

OF SYSTEM 

TIMER FROM 

HEX LOC 50-59 



TMPARl X 

•*«*»«E4*** 
EXCPRG 



LENGTH OF PROBLEM 
PROGRAM LABEL AREA 
-C0MREG+44-. 
LAST CHECKPOINT 
NUMBER 

-C0MREG+92-. 
HIGHEST CORE ADDRESS 
OF LONGEST PROBLEM 
PROGRAM PHASE 
-C0MREG+40-. 



DISPLAY READY 

♦ MESSAGE ON ♦ 

SYSLOG 



• A2^ 

« • 

ACTRSP 



HI *. 
.♦ IS ♦. 

A JOB 
IN PROCESS 



•** J 1* •••*♦• 
SET CANCEL ♦ 

INDICATOR OFF^ 

IN COMREG 

+56, BIT 4 * 



*H2 
THE ASSIGNMENT 
FOR SYSLOG IS 
DETERMINED AND 
SWITCHES IN COMREG 
+56 ARE SET. 



NOTE 

THE MAIN STORAGE AREA 
THAT CONTAINS THIS CODING 
IS ALSO USED AS A 120 BYTE 
I/O BUFFER AREA LABELED 
BUFFER. CONTROL STATEMENTS 
ARE READ INTO THIS BUFFER AREA. 



PERFORM INIT 

FOR DISK 

SUPPORT 



X 

♦ 1 
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Chart BB. Control Statement Read $JOBCTLA; Refer to Job 
Control, Chart 03 



ACTRSP X 

•••••A2«*«««*« 

• SET INPUT • 

• FRQH SYSLOG • 

• SW ON-COPREG • 

• ^56 BIT 2 OFF* 

• • 



•A3 

BA>E4 
BD-J4 
BL-i- 
BL- 



«••• 

• * 

• I • 



D-J4 



.:'*ix!5H. 

••ON SYSL 



X 

• •••• 
•BL • 

• Bl^ 



•C2 

OPNUMB IS THE I BYTE 
DATA INFORHATION 
FIELD IN A MVI 
INSTRUCTION. IT IS 
USLO TO MAINTAIN A 
COUNT OF THE PARAMETERS 
PROCESSED OF THE CURRENT 
CONTROL STATEMENT. 



BC-Dl 
BG-B3 
BL-B4 
BP-M 

CG-F4 

CH-Kl 

CK-J5 

CM-H5 

0A-C2»F3 

0H-Elt03«04 

0J-F3 

0P-D2,J5 

0R-F4 

EA-C* 

EB-B3 

EC-Gl 

EO-Fl 

EE-G5 

EE-H4 

EF-F2 

EG-K5 

EJ-H5 

EJ-E3 

EK-E* 

EL-Gl 

00-J5 

EK-F2 



••••DI*«^^*^* 
RESET • 
OPNUMB 
TO ZERO 
•C2 



• ASSUME // • 

• CTRL STMNT • 
•AND SET ROUTINE 

• TO PROC OPTR • 

• CONM •05* 



C4 ♦. 

•• PARAH •. 

GT AND 

LT 8 CHAR 

• 05 



••••DA*« •*••••• 

INIT FOR 

BRANCH TABLE 

LOCK UP 

•F5 



-_. ALI 

mSoIFV kNST; TSTYPE, 
TO TEST FOR MASK HEX 
05 OR HEX 06. 
SET BIT OF JBCSW4» 
IF ON SET OFFf IF 
OFF SET ON. 



UC lU 

FOR M 



•BL • 
♦ B*» 



ROUTINE HAS SET THIS 
VALUE TO PARAM LENGTH 
MINUS I BYTE. 



.."is -.. 

•. COL 1-7 .• 

• • »• 

-.NO 


FUNCTION OF A FOUN 
BRANCH TABLE LCOKU 

• .« . 

• •••• 

•BG • 

• B3» 

• • 


X 
•••••F !••••••• 

• IN T REG • 

: .i!" srto'SE*. 


IGNORE 




Gl---.. 


*POINTl BLFFER 
OFF. 



VALUE CF 5 OR 6. IT IS USEC AS A MASK 
TO CHECK THE CCNClTION SWITCHES IN THE 

— ' FOUND ARGUMENT IN THE 

TINF, ETLOOP. 



• •••• 

• BC • 

• AI« 



♦F5 
THE BRANCH TABLE LCOKUP 
ROUTINE IS USED TO 
DETERMINE THE TYPE OF 
CONTROL STATEMENT BEING 
PROCESSED. WHEN A FIND 
IS MADE. THE FUNCTIONS 
CF THE ARGUMENT ARE UTIL- 
IZED AS IN FIGURk 79. 
1. CLEAR OLD ARGUMENT 

AND MOVE NEW ARGUMENT 



2. 



POINTl EQUAL TO 
BRANCH TABLE ACDRtSS 
MINUS 10 BYTtS. 



chii 

BLANK 



X 
•••••• 

INfT REGS • 
- - -fCM 



•••Jl« 

INIT ..,_ 
AND SWifCl 
»JBCSW^._FI 



•••••K !•••••••••• 

•SCANRl BF^ 



•••• 

• • 

• 1 • 

• • 
•••• 
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Chart BC. Phase Vector Table Lookup- 
Job Control, Chart 03 



$JOBCTLA; Refer to 



BTLOOP X 

••••»A1 •«•*«•••• 

• INCREMENT 

• POINTER 

• POINTl BY 10 

• TO POINT TO 
•NEXT TBL ENTRY 



• A2 
JBCSWO-COMREG 
+56, BITS 2 AND 
4 ARE TESTED. 



THE CONDITION 
SWITCHES OF THE 
FOUND ARGUMENT 
ARE TESTED. SEE 
FIGURE 79. 
THE INSTR TSTYPE 
HAS BEEN MODIFIED 
IN THE CONTROL 
ROUTINE AT BB-B4. 



MOVE BRANCH 

TABLE DSPLT 

TO REGISTER 

P0INT2 



•A4-SEE FIGURE 79 - FIELD 3 

TABLE A ROOT PHASECA) 

tSTMNT'lROuflNEtcHART*"! 

r//*"*IsCANR2'I'BF---'-^ SEE NOTE "B^ 

. /• .CONTROL. BB 
. • .CONTROL. BB 
.IGNORE. IGNORE . BG 



• B4 
IF THE CONTROL STATEMENT STARTED WITH // IN COL 1 
AND 2» THE CURRENT ARGUMENT IS //. • CONTROL IS 



TRANSFERRED TO THE SCANR2 



CI «. 

.» INPUT ». 

.♦FROM SYSRDR* 

. AND CANCEL 

♦. •A2 .» 



Dl ♦. 

.•PROCESS*. 

.• STATEMENT * 

. IN SPITE OF 

*. CANCEL .• 

». ♦B2 .• 



♦ D2 
TEST JBCSWO - 
COMREG-t-Sb, 
BIT 3. 



C3 •. 

• IS • 

ROUTINE 

IN ROOT 

PHASE 



D3 ». 
.• IS • 

REQUIRED 
PHASE IN 
. CORE 



TABLE D 


D PHASE 


. STMNT . 


CHART . 


:*assgn": 


"BY-Br: 


. CLOSE . 


BN-Al . 


. OVCDN . 




. OVCUP . 




. LISTIO . 




. RESET . 


CJ-Bl . 


. UNA 


BM-Bl . 



YES 



♦ Bl» 
* « 

CONTROL 



•E2 
TEST JBCSW3 
C0MRE6-»-59f 
BIT 3. 



VALID 

FORMAT 

• B2 



••••E 3* •••••••• 

• SVC 4 • 

• LOAD REQUIRED • 
•PHASE B, G OR J» 



♦ . UNCONDITIONAL 



•CONDITIONAL 



LOG ON 

SYSLOG 

• 02 



•EXIT PER 
TABLE D, G OR J 
-OVRVCT + DISP- 



UNCLOG X 
•••••Hl**^* 
•LOGOUT 



TABLE G G PHASE 

ISTMNT CHART'I 

ICANCEL DA-Bl*^ 

!E6j"-/g-**DB-Bi'! 

IeXEC DD-B2'I 

'job DQ-Bl'i 

rCoG DH-B3*I 

InOLOG DfHB4*r 

lopfioN DJ-Bl*. 

'pause OH-Bl'I 

Ialloc oA-Bl'I 

!mAP DP-B4*r 

I STOP DA-B3*I 



.STMNT 



CHART 



.ACTION — 
.INCLUDE- 

.DATE 

.SET 

.UP SI 

.RSTRT 

.MTC 

.LBLTYP — 

.VOL 

.TPLAB- — 

.DLAB 

.XTENT 

.RELSE 

.HOLD 

.UCS 



-ED-Bl 

-ED-B3 

-EK-B4 

-EL-Al 

-EM-Bl 

-EN-Al 

-EE-Al 

-EF-Bl 

-EF-B3 

-EK-Bl 

-EG-Bl 

-EH-Al 

-EA-Bl. 

-EA-B3 

-EB-Bl 



LOG ON 

SYSLST 

• E2 



••••Kl ••#••••••• 

LSTOUT BE* 

LOG STATEMENT ♦ 
ON SYSLST • 



.X.. 

X 

• •«• 

• • 

• 1 • 
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Chart BD. Subroutine — $JOBCTLA (DSKINT) ; Refer to Job 
Control, Chart 03 



OSKINT 



.:-*IilikSlD*"-:.;:?, 




••••••••••«•••••• 



RECORD 4 
FROM SYSRES 



IT% 



•••••£!•••••••••• 

•RESET DISK ADOR* 
• OF LABEL AREA • 



• SET THE CC • 

• OF MRITE AND • 

• SEEK/SEARCH • 
•DISK ADDRESSES • 



i 
• •• 

B3 •• 

.•**Sy$LST *'•. NO 
A 2311 ••••, 
•• •• 
• • •• 

^ES 



■MOOII 



SAGE 1C700 
I INDICA— 
SVSLST 



•••••••• 

BE* 



•CHECK AVAILABLE* 

* RECORD COUNT * 

* ON SYSLST * 



.* SYSTEM *. 
FILES 

*. SUPPORTED.* 



SYSPCH 

ASSIGNED 

• H2 



i: 



,__ . JD AT 

:jIb. 

..10 the 1st 3 bytes, 
ive chain flag* 

.;H BYTE, FROM 
CURRENT JIB TO 

SREVIOUS JIB, 
OVE NEXT AvIlLABLE 
^B POINTER FROM FAVP 
CURRENT JIB. 
yPOATE FAVP WITH 
ROM 



••*• 

* * 

* 2 • 

* * 
••*• 



:S^l!n«EF: 



•***E3******** 

INlflALIZt 

POINTERS FOR 

LUB TABLE 

LOOK UP 

•GS 



• H2 
SYS UMTS THAT ARE 
ASSIGKEO TC A OASO DEVICE 
AT SYS GEN TIME ARE 
tNASSIGNEO DURING IPL. 
THEY PUST BE REASSIGNED 
SIN* -- 



•••••KI****^***** 
*CHKCNT BE« 
•-•-•-*-•-•-•-•-• 
•CHECK AVAILABLE* 

• RECORD COUNT • 

• ON SYSPCH • 



NXTLUe 

•••••F3********* 
*INITIALIZE REG 

• PQINT3 AND 

• INCREMENT REG 

• POINTl BY 2 

• *G4 



***««F 4 •••••••••• 

*UPDATE PREVIOUS* 

* JIB POINTER, • 

* P0INT3 FROM * 

* CURRENT JIB • 
•POINTER ,P0INT2* 



••**«FS* ******* 
* UNASSIGN THIS 



NXTJIB . . 

G3 *. 

.* DOES *• 

.* CURRENT * 

*.JIB POINT TO 

*. A JIB .* 



H3 *. 
.* HAS *. 

LAST PROG 



POINTa IS LOADED 
FROM POINTl AS 
PREVIOUS JIB POINTER. 
POINTl IS INCRE- 
MENTED BY 2 TO POINT 
TO THE NEXT LUB. 



•GS 



FAVP. __ ._ 

NUMBER OF PROGRAMMER 
UNITS FROM NICL. 
POINTl IS ACORESS 

~ 3YTES OF THE 

UMMER LUB. 



nrhui 



.* ZE 



YES 



ZERO 
.*RECORDS ON *. 

. SYSLST OR 

*. SYSPCH .♦ NOP 
*. *J5 .* 
*• •• 
NO 



••••K3******** 

* RETURN TO 

* CALLING 

* SEQUENCE 



•*»»«J4» ••••*• 

* SET PAUSE * 

* SWITCH OFF. * 
.X*JBCSHO. COMREG 

* PLUS 56, * 

* BIT 5 • 



SUBROUTINE IF THE RECORD 
COUNT EARNING MESSAGE 
ICTOD HAS BEEN ISSUEQ, 
-NO. OF AVAILABLE RECORD 
FOR THIS FILE IS LESS 



• •••• 

*BB • 

• A2« 
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Chart BE. Subroutines — $JOBCTLA (LOGOUT, MSGOUT, LSTOUT, 
and CHKCNT); Refer to Job Control, Charts 03-11 



♦ MSGOUT 



•A3»*»»« 
LSTOUT 



•♦«*B1*»»«»*< 
LOGOUT 


» 


*l 


MSGOUT X 

m»***S2* ********* 

• SET BITS OFF » 

• IN JBCSW4 TO • 

• ALLOW OUTPUT • 

• ON SYSLST AND » 
•SYSLOG ♦C2» 


LSTOUT .♦.^ 

.•SYSLST**. 

.♦ OUTPUT *. 

•. SUPPRESSED .• 

«. .« 
• . .• 

'•NO 


Ix.. .. 


: 


AND 2 


UT .». 

. SUPPRESSED 
*• .* 


♦ 


,* 


♦ C2 
TURN OFF BITS 1 
OF JBCSW4. 


X 

♦•••♦C3»*»«^^^ 

♦ SUPPRESS • 

♦ SYSLST OUTPUT* 
•SET BIT 1 ON IN^ 

• JBCSW4 • 

* • 



SUPPRESS » 
SYSLOG OUTPUT* 
SET BIT 2 ON 

IN JBCSW4 * 



*•* **£!•••*•••••• 

•CHKASG BK^ 
♦—♦—»—♦—»—*-•—♦—• 

• CHECK SYSLOG • 

• ASSIGNMENT • 

«*•*•••*••«*•«**• 



JBCSWO, BIT 7 



•»**«H1*** *•**••* 

• MODIFY SYSLOG • 
•CCW BYTE COUNT ♦ 
•TO DISPLAY ONLY* 

• SIGNIFICANT • 
•CHARACTERS •H2* 
••*••*********•** 



—*-*—»—*—*—*—* 
OUTPUT 
STATEMENT * 
ON SYSLOG 



REVERSE SCAN THE BUFFER 
AREA UNTIL THE FIRST 
NONBLANK CHARACTER IS 
SCANNED. 



IS *. NO 
SYSLST .•... 

.ASSIGNED .* 



.*CURRENT*. 

.•LINE COUNT ♦. 

.MINUS 1 EQUAL.* 

•. ZERO .* 



*»*»*G3***«^*^^* 

• RESET LINE 
•COUNT TO VALUE 

• FROM 

• COMREG+78 



••«**H3* ***••***• 

• SET SKIP TO 1 • 

• FLAG IN BYTE • 
•0 OF PRINT LINE* 

• -BUFFER * 

• LESS 1 BYTE- • 







* ♦ 




• CHKCNT * 




« * 








*B5 






1. 


CNT X 




»**»»BA* •*♦•**•** 


2. 


•COMPUTE NUMBER • 




• OF RECORDS • 




• AVAILABLE FOR • 


3. 


• THIS FILE • 




• *B5 * 





POINTl IS DIB 
ADDRESS FOR DESIRED 
SYS UNIT. 

END ADDRESS CC. LESS 
CURRENT ADDRESS CC, 
IS REMAINING CC. 
REMAINING CC, TIMES 
TRACKS/CYLINDER, PLUS 
TRACKS LESS THAN A 
FULL CYLINDER, IS 
REMAINING TRACKS. 
REMAINING TRACKS, 
TIMES RECORDS/TRACK, 
PLUS RECORDS ON 
PRESENT TRACK, IS 
REMAINING RECORDS. 



CONVERT TO 
BCD AND 
UNPACK 



»»***D4* «***•*• 

• REPLACE HIGH 

• ORDER ZEROS 

• WITH BLANKS 



E4 •. 

.•NUMBER *. 
• AVAILABLE 

RECORDS GT 

». RC OF . 

». DIB .• 



•*«**E5******» 

• SET SWITCH • 

• CTRLSW TO • 
•NOP IN CALLING 

• SEQ. • 

• *G4 • 



YES 



**F4* ****•**• 
RETURN TO 
CALLING 
SEQ. 



• G4 
THIS SWITCH, IN THE DSKINT 
SUBROUTINE FORCES THE 
PAUSE SWITCH TO BE SET 
OFF AND A CONTROL 
STATEMENT TO BE READ. 



«**«*F5* •»«•*** 

* MOVE ERROR 

* MESSAGE FOR 

* 1C70D TO 

* BUFFER 

* *H5 
**•*******•*•*» 



•H5 
WARNING MESSAGE 
1C70D 00000 
RECORDS REMAINING 
ON SYSPCH/SYSLST. 



•«**J3*****««**» 

STORE NEW • 

CURRENT LINE * 

COUNT IN ♦- 

RLNCNT * 



OUTPUT 
STATEMENT 
ON SYSLST 



•***K1***»*** 
RETURN TO 
CALLING 
SEQ. 



•***K4** **•••*• 

• RETURN TO 

• CALLING 

• SEQUENCE 



Appendix H. Detailed Flowcharts 297 



Chart BF. Subroutines — $JOBCTIA (SCANRl, SCANR2, and 
SCANR3); Refer to Job Control Charts 03-11 



• SCANR2 



SCANR2 

««*«*61**»***««* 
♦INIT REGISTERS 

• POINTl AND 2 
» FOR CURRENT 

• SCAN 

• ♦B4 



• ««*A2'*********' 
* SCANRl • 



•••«A3«**«** 
SCANR3 



SCANRl 

*«»«*C 2*** ****** 

* INIT PARAM 
•LbNGTH TO ZERO 

* AND STOP ChAR 

* TO A BLANK 

* *C^ 



SCANR3 

•»«•» 63* *••*•«»• 

* IMT REGISTERS 

* POINTl AND 2 

* FOR CURRENT 

* SCAN 

* *B4 



**»**C3********i 

• ZERO PARAM 
•LENGTH COUNTER 

• -P0INT3- 



• 2 * 

• *•« 



SCNRLl .*. 

D2 *. 
.* IS *. 

.* CURRENT * 
«.CHAR A BLANK 



X 

««*»E2******** 

INCR POINTl 

FOR THE NEXT 

CHAR 



THE POINTER TO THE FIRST COL 
TO BE SCANNED AND NUMBER OF 
COL REMAINING ARE STORED IN P 
AND 2 RESPECTIVELY FROM SAVE 
AREA TMPARl. 



PARAM LENGTH IS MAINTAINED IN 
REGISTER, P0INT3» 
STOP CHAR IS MAINTAINED IN 
CORE LOCATION, SCNSTP. 



* * 

* 1 • 



SCNRL2 X 

««»*»E3********** 

* STORE CURRENT • 

* CHAR IN * 

* SCNSTP * 



**G2* ********* 

INIT FOR * 

NEXT SCAN * 

*G4 * 



«*«««H2*** ******* 
♦SET INFORMATION* 

* FOR CALLING ♦ 

* SEQUENCE ♦ 

* *H4 * 



F3 *. 
.* IS *. 

THIS CHAR 
A COMMA 



G3 *. 
.* IS *. 

THIS CHAR *. 
A BLANK 



•*• J 2* •******< 

RETURN TO 

CALLING SEQ 



THIS CHAR 
AN EQUAL 
. SIGN 



*••«• J 3*»« •*•••• 

* INCR PARAM 
*LENGTH COUNTER, 

* P0INT3, BY 1 



LEFT TO BE SCANNED. 
3. SAVE IN SAVE AREA. TMPARl AND 
TMPARl PLUS 4 RESPECTIVELY, 



P0INT3. 
2. UPDATE THE OPERAND NUMBER 

IN OPNUMH. 
3. TEST THE SCAN STOP CHARACTER 

AND SET THE CONDITION CODE. 

0, EQUAL. IS A COMMA 

1, LOW, IS A BLANK 

2, HIGH, IS AN EQUALS SIGN 



•••• 
* 1 
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Chart BG. Subroutines — $JOBCTLA (RDSTMT, LOGCHK) ; Refer to 
Job Control, Charts 03-11 



RDSTMT 



RDSTMT 

« CLEAR I/O 

• AREA, BUFFER, 

♦ TO BLANKS 



RLINDT 

• SET SWITCH » 

• -JBCSW^ BITS 

• 1 AND 2 OFF- 

• .BZ 



Dl ♦. 
.» IS •. 

INPUT 

ON SYSRDR 

♦C2 



ALLOW OUTPUT 
ON SYSLST 
AND SYSLOG 



• C2 
JBCSWO 
COMREG + 56 
BIT 2 



IGNORE X 

•*»«*B3******* 
» SET JOB » 

• CONTROL INPUT* 

• SW TO SYSRDR 

• •C2 • 



♦ Bl» 
CONTROL 



• RESET SYSLOG ♦ 
•BITS IN COMREG • 
•PLUS 56, BITS 6» 

• AND 7 » 
» -SET TO 0- • 



RDRIN 

»••♦•£!• 
•CHKASG 



• E3 
JBCSW4 
BIT 2 ON 



SUPPRESS 

OUTPUT ON 

SYSLOG 

• E3 



D4 ♦. 
.* IS ♦ 

SYSLOG 
ASSIGNED 



E4 ♦. 
• IS 
SYSLOG 
A 1052 



♦ RETURN TO 

* CALLING SEQ 



Fl *. 
.« IS • 

SYSRDR 
ASSIGNED 



READ STATEMENT 

♦ FROM » 

SYSLOG 



LOGPRT 

*#«*«F4******* 

* SET SYSLOG EQ 
•PRINTER BIT ON* 
•COMREG PLUS 56 

• BIT 6 • 



-•—•-♦—»• 



SIMULATE 

A EOJ 

STATEMENT 

• J2 



.• UNIT •. 

EXCEPTION 

EOF ON 

. SYSLOG . 



••••G4»^^ *•*•*• 

SAVE SYSLOG 

PUB POINTER 

IN REG WRKRG2 



•••Jl****^**^ 

RETURN TO 

CALLING SEQ 



• J2 
SET POINTl TO 
INDICATE A /+ 
STMT FIND 
IN THE BRANCH 
TABLE. 



«»***H3*^^ •*••••• 
•TRANSLATE INPUTS 

• AREA, BUFFER, • 

• TO CONVERT • 

• LOWER CASE • 
•ALPHA TO UPPER ♦ 



••*J 3* *•*•*•• 

RETURN TO 

CALLING SEQ 



.• IS • 

SYSLST 

ASSIGNED 



-•SYSLOG ♦. 
•AND SYSLST 

EQUAL SAME 
•. DEVICE . 



• SET SYSLOG • 

• EQ SYSLST BIT* 
♦ON COMREG PLUS ♦ 

• 56, BIT 7 • 



•••K5*»^*^^^* 

RETURN TO 
CALLING SEQ 
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Chart BH. Subroutine — $JOBCTLA (EXCPRG) (Part 1 of 2) ; 
Refer to Job Control, Charts 03-11 



EXCPRG 



SAVE 

REGISTERS 

♦ B2 



• B2 

1. REGISTERS WRKRG3 
AND URKRGA ARE 
SAVED IN lORGSA. 

2. THE LINK REGISTER, 
LINKRl, IS SAVED 
IN LINKSA. 



♦ ENABLE MULTI- • 

* PROG AND SET * 
♦SYS MASK X«FF*« 



.» CCB •. 

* IN DFB 

HAVE TO BE 
♦. INIT 



♦ MOVE THE CCW 
♦ADDRESS TO THE 

♦ CCB. -DFB 

♦ PLUS 8, 

♦ OFBCBA- 



♦ BA 
IF THE FLAG BYTE, 
DFB PLUS 17. BIT 7, 
IS A 1 THE CCB 
HAS ALREADY 
BEEN INITIALIZED 



IS 
THE FILE 
. OPEN 



♦« ♦♦•£!♦♦♦♦♦ ♦♦•♦♦ 
♦INITIALIZE DFB ♦ 

♦ DEVICE TYPE ♦ 

♦ AND FLAG BYTE ♦ 

♦ ♦F2 ♦ 



♦♦♦♦♦ 
♦BJ ♦ 
♦ BI^ 



TAPE 


.♦ 


CHECK ♦. 




.♦ 




DEVICE .♦ 






♦ . 


TYPE .♦ 










.♦ 




X 






♦ . .♦ 




♦ ♦♦♦ 




♦ DASD 




♦ 


♦ 








♦ 4 


♦ 










♦ 












♦♦♦♦ 
















X 








^^••••••••*» 






MOVE THE DISK 








T/r 


CCW CHAIN 






♦ADDRESS TO THE 






♦ :cB. 


-DFB PLUS 








8t 


DFBCBA- 





FINOPN 

♦♦♦•♦C4^ ♦♦♦♦♦♦♦♦ 

♦ FLIP-FLOP 

♦ BITS AND 2 

♦ IN THE DFBFLG 

♦ ♦JS 



5 • 

♦ 
♦♦•♦ 



♦ ♦♦♦ 




♦ ♦ 




• 2 ♦ 




♦ ♦ 




♦ ♦♦♦ 








♦♦♦♦♦B5^^^ ♦♦♦♦♦♦♦ 


♦ INIT SEARCH 




♦ ADDRESS AND 




♦ CURR ADDRESS 




♦ 




♦ 




♦ ♦♦♦ 






♦ ♦ 






♦ 3 ♦.. 






♦ ♦ 






♦ ♦•♦ 






DSKIND X 




♦♦♦♦♦C5^^^^^^^^^^ 


♦ RESTORE 




♦ WRKRG3 




♦ FROM lORGSA 








♦ 


♦ * 



♦ ♦ 


♦♦♦FI^< 


»♦« 


♦ ♦♦♦ 


♦♦ 






COMPUTE 


1 (IB 








POINTER 


IN 








WRKRG2 










♦ G2 




























♦ G2 












I. 



TURN OFF BITS 0, 1, AND 
2 IN FLAG BYTE, DFBFLG, 
DFG PLUS 23. 



»♦•♦♦♦♦♦ 



SET CHAIN 

BIT ON IN 

5TH CCW 



CHECK 

ASSIGNMENT 

FOR THIS FILE 



DFB PLUS 6, DFBCBL, 
EQUALS THE SYMBOLIC UNIT 
ADDRESS. WHEN DOUBLED, 
THIS VALUE IS THE LUB 
POINTER FOR THE 
SYMBOLIC UNIT. SYSRES 



HI ♦. 






.• IS ♦. 






.» THIS FILE ♦ 


. NO 


♦. ASSIGNED 


1 ♦< 




♦ . .♦ 






♦ . .♦ 






♦ . •♦ 




X 


♦ YES 




♦ ♦♦♦♦ 

♦BJ ♦ 

♦ C^* 
« ♦ 

♦ EXPEXT 


., X 






♦♦•♦♦Jl^ ♦•♦«♦♦♦ 






♦ RESTORE DFB 






♦ ADDRESS IN 






♦ WRKRG3 FROM 






♦ lORGSA 






♦ 






I 




♦ K2 






1. DEVICE TYPE 






MOVED TO DFBDVC, 


X 




DFB PLUS 22. 




2. CHANNEL AND 


♦ SET DEVICE 




UNIT MOVED TO 


♦ TYPE AND 




DFBCUU, DFB PLUS 


« CHANNEL AND 




20 AND 21. 


♦ UNIT INTO DFB 






♦ FROM PUB ♦K2 







TEST 

LOGICAL 

UNIT 



H3 ♦. 

SYSRDR 



LNKINT X 

«^^^^E4^«^ ♦♦♦•♦♦♦ 

♦ RESET OPEN ♦ 

♦ SWITCHES IN ♦ 

♦ DTFPH • 

♦ TABLE ♦ 



X 

♦♦F4^^^^^^^ 

♦ FETCH ♦ 

♦ $$BOPEN 
OPEN IJSYSLN 

♦ -SYSLNK- 



♦•♦♦♦D5 ♦♦♦♦♦♦♦ 

♦ SET SWITCH ON 

♦ TO INDICATE ♦ 
♦NON UNIT RECORD^ 

♦ DEVICE-DFBFLG^ 

♦ BIT2- ♦ 



♦ 6 ♦ 

♦ ♦ 
♦ ♦♦♦ 



TAPINT 

NO .♦' 
. « .♦. 

■ ♦< 

X 

♦♦»♦ 
♦ 
6 ♦ 



• ♦♦♦ 

♦ ♦ 

♦ 4 ♦ 



F5 ♦. 
♦ IS ♦. 

ASA 
SUPPORTED 

ON THIS . 
♦DEVICE. ♦ 



♦YES 



•♦♦♦♦G4^ ♦♦♦♦♦♦♦ 

♦ INIT DFI 

♦ TABLE FROM 

♦ THE DTFPH, 

♦ IJSYSLN 

♦ ♦KS 



•♦♦♦♦H4^^^ ♦♦♦♦♦♦♦ 

♦ SET SYSRDR ♦ 

* DIB INDEX ♦ 
X^ IN WRKRG4 TO ♦ 

♦POINT TO SYSIN ♦ 



•♦♦♦•G5^^* ♦♦♦♦♦♦♦ 

♦ MOVE THE ASA ♦ 

♦ CCW ADDRESS ♦ 

♦ TO THE CCB ♦ 

♦ -DFB PLUS 8, ♦ 

♦ DFBCBA- ♦ 



♦♦♦♦H5^ ♦♦♦♦♦♦♦♦♦ 

SET THE CHAIN ♦ 

BIT OFF IN THE ♦ 

ASA CCW ♦ 



♦♦♦♦♦♦♦♦ 



COMPUTE DI_ 

ENTRY ADDR 

IN WRKRG4 

♦ JA 



♦♦♦♦♦K3^^^^^^^^ 

♦ INIT DFI 

♦ TABLE FROM 

♦ DIB 
♦-1ST 19 BYTES- 

♦ ♦KA 



SYSIN IS DIBADD PLUS 24 
SYSPCH IS DIBADD PLUS 46 
SYSLST IS DIBADD PLUS 72 



♦K4 
CURR ADDR. 
KEY AND DATA LNG. 
END ADDR. 
UPPER LIMIT. 
LOWER LIMIT. 



•J5 

BIT IF ON INDICATES 
THE FILE IS OPEN. 
BIT 2 IF ON INDICATES 
THE FILE IS NOT 
UNIT RECORD. 



♦K5 
SET CURR ADDR 
SET WR SRCH ADDR 
SET UPPER LIMIT 
SET LOWER HEAD LIMIT 
SET UPPER HEAD LIMIT 



♦ 2 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart BJ. Subroutine— $JOBCTLA (EXCPRG) (Part 2 of 2) ; 
Refer to Job Control, Charts 03-11 



REFER TO FIGURE 78 



♦«»»»A2» ♦»••♦•♦»♦ 

♦ SET UNIT » 

• EXCEPTION SW ♦ 
•OFF IN OFB FLAG^ 
» -DFBFLG- ♦ 



INIT WRKRG^ 

AS POINTER 

TO DFI TABLE 

♦ A3 



.♦ ALSO ♦. 

EOF ON 

SYSRDR OR 

. SYSIPT . 



OVERLAP 

REQUESTED 

• K2 



UPPER 

EXTENT 

.EXCEEDED 



EOFPRC 

•♦*» #02 »•♦•»♦♦•• 

• SET UNIT 

» EXCEPTION SW 
•ON IN DFB FLAG 

* -DFBFLG- 



EXECUTE 

WRITE 
COMMAND 



B5 ». 

• ATT » 

ROUTINE 

SW ON 



PEXT X 

•**««C4* «*•*••••• 
•MTNCNT BK» 

♦ DISABLE MULTI » 

♦ PROG AND SET • 
»SYS MASK TO XFF» 



• DISABLE MULTI * 

• PROG AND SET ♦ 
♦SYS MASK TO XFF^ 



RESTORE 

REGISTERS 

♦G5 



UPDATE DISK 

SEARCH ADDR 

AND CURR ADDR 

-CCHHR- 



••••EA ♦«••••• 

• RETURN TO 

• CALLING 

• SEQ 



♦ RESTORE OFB 
♦ADDR IN WRKRG3 

♦ FROM lORGSA 



• ♦. 




SETWRT 


F2 ♦. 




•«*««p 3* ««•««•••* 


.♦ WAS ♦. 




* * 


♦ SPACE 1 ♦. 


YES 


♦ SET UP WRITE ♦ 


♦.SPECIFIED.* 


.... 


♦ CCW, DFBCCW ♦ 


♦ . •32 .♦ 







♦ DEV U/R ♦. 

AND IS ASA . 
♦. SUPPORTED. ♦ 



SET SKIP TO 1 
COMMAND IN 
CCW, DFBCCW 



•«G3^*^**** 

SAVE THE 

TIMER IN 

SAVE AREA 

TIME 



X 
♦ 2 ♦ 



♦ F5 
BIT 6 OF DFB FLAG, 
DFBFLG, IS TESTED 



WRKRG3 AND WRKRG4 

ARE RESTORED FROM 

lORGSA. 

THE LINK REG, LINKRl, 

IS RESTORED FROM 

LINKSA. 

THE BAL INST USED TO 

RETURN TO CALLING SEQ 

PLACES THE EOF 

ATTENTION ROUTINE 

ADDR IN LINKRl. 



♦ SET SPACE 1 

♦ LINE COMMAND 
♦IN CCW, DFBCCW 



MOVE A BLANK 

TO ASAIND, 

BUFFER-1 



EXECUTE 

CARRIAGE 

CONTROL 



SVC 7 

WAIT FOR I/O 

COMPLETION 



♦ J2 

IF ASAIND, BUFFER 
MINUS 1-BYTE, IS 
BLANK THE SPACE 1 
LINE COMMAND WAS 
SPECIFIED. 



OVERLAP 

REQUESTED 

♦K2 



EXECUTE 

WRITE 
COMMAND 



•••«K3^*^^*^*^ 

• SVC 7 

• WAIT FOR I/O 

• COMPLETION 



• « 

• 1 * 

• * 



♦ 3 

• •«• 
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Chart BK. Subroutines— $JOBCTLA (MTNCNT, CHKASG, CHKASG3) ; 
Refer to Job Control, Charts 03-11 



MTNCNT 







»A5 






LABEL CHKASG3 USED 






IN SJOBCTLD.THE 






ENTRY POINT IN 






$JOBCTLA IS CHKASG+4 






(IN THE BRANCH 


« 


• « 


VECTOR TABLE). 


CHKASG ♦ 


♦ CHKASG3 • 




« 


• *A5 • 





CHKASG 

«*»««B3»*»*«**** 
« COMPUTE 
« LUB ADDRESS 

♦ FOR THIS UNIT 

* IN WRKRG3 
« -BA 



««»*CI **••«*** 
SVC22 

♦ C2 



**01******« 

RETURN TO 

CALLING 

SEQ 



»C2 

TO SETTING SYS MASK, 

EITHER SEIZES OR RELEASES 

THE SYSTEM. 

TO SEIZE SYS IS TO DISABLE 

MULTI-PROGRAMMING. 

TO RELEASE SYS IS TO 

ENABLE MULTI-PROGRAMMING. 



C3 «. 
.♦ IS ». 

•THE LOGICAL* 



ii*«««D3« ******* 

* COMPUTE PUB 

* ADDRESS FOR 

* THIS UNIT IN 

* WRKR64 
« "04 




♦ B4 
THE LUB TABLE DISPLACEMENT 
FOR THE UNIT TO BE CHECKED 
IS SUPPLIED IN WRKRG3. THE 
LUB ADDRESS IS OBTAINED BY 
ADDING THE LUB TABLE 
ADDRESS TO WRKRG3. 



*C4 
IN BYTE OF THE LUB, X«FE« INDICATES 
•IGNORE' AND X'FF' INDICATES LUB IS 
UNASSIGNED. IN EITHER CASE THE 
CONDITION CODE IS SET TO 1. 



BYTE OF THE LUB 
CONTAINS THE PUB POINTER. 
THE PUB POINTER 
MULTIPLIED BY 8 EQUALS 
THE PUB DISPLACEMENT. 
THE PUB TABLE ADDRESS 
PLUS THE DISPLACEMENT 
EQUALS THE PUB ADDRESS 
FOR THIS UNIT. 



««E3*«««»«««« 
RETURN TO * 
CALLING * 
SEQ • 
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Chart BL. Error Routines — $JOBCTLA (ATNCUU, NOEERR, 

OERRTN, RNAERR, NVSERR, and ERRRTN) ; Refer to Job 
Control, Charts 03-11 



♦ 1 * 



♦ 2 * 

* * 



***** 
** * 
* B2* 



ATNCUU X 

*****Ql* ********* 

♦ SET UNIT * 

♦ EXCEPTION ♦ 

♦ SWITCH OFF * 

♦ IN DFB FLAG ♦ 

♦ -DFBFLG- * 
***************** 



DEVICE *. YES 
TYPE •*..• 
DISK •« 



♦ B2 
BB-81 
BJ-C5 
E0-J5 



*A3 
CY-F2 
DY-F3 
ET-El 
***** 
** * 
* A3* 



***************** 



*****f^l****m***m* 

* MOVE CHANNEL * 

* AND UNIT TO * 

* ATTENTION * 

* MESSAGE * 

* * 
***************** 



*****fil********** 

* * 

* POINT TO * 

♦ DESIRED MSG ♦ 

♦ -ICOOA- ♦ 
« * 
***************** 



**** 

* * 

* I ♦ 

* * 
***♦ 



* INITIALIZE ♦ 

* ERROR MSG * 

♦ FOR SYSRDR * 

♦ * 
***************** 



♦I UNIT 
*. SYSRDR 



****:1f^2********** 

* * 

* INITIALIZE ♦ 

* ERROR MSG * 

* FOR SYSIPT * 

* * 
***************** 



OERRTN X 

*****Q-i********** 

* CLEAR BUFFER « 
♦AREA TO BLANKS ♦ 

* MOVE DESIRED ♦ 

* MESSAGE TO * 

* BUFFER * 
n,**************** 



*ti****C3*********** 

MSGOUT BE 

♦«»_»_♦_*_♦_♦_♦_* 

DISPLAY 

* MSG ON » 

SYSLOG 

************* 



♦A4 
BB-C4 
BC-El 
CY-K5 
♦*♦♦* 
♦* * 
* A4* 



.♦ JOB BEING *- NO 
♦. CANCELED .*.., 



X 

***** 

*BB <• 

♦ Bl* 

♦ ♦ 



*A5 
CY-K5 
DY-C3 



X 
***** 
*BB * 
♦ A2* 



IS *. YESX 
UNIT .♦. 
SYSIPT .* 



*****Q2********** 

♦ * 

♦ INITIALIZE * 

♦ ERROR MSG « 

♦ FOR SYSLST ♦ 

♦ * 
***************** 



* 


IS 


* 




UNIT 




*. 


SYSLST 


.* 




*• 




*• .* 






♦NO 





*****J2********** 

* * 

* INITIALIZE * 

* ERROR MSG * 

* FOR SYSLNK ♦ 

* * 
***************** 



NOEERR X 

*****K2******4t*** 

* POINT TO * 

* DESIRED * 

* MSG ♦ 

* -IC80D- ♦ 
*«**«***«*»****** 



***** 
*BG * 
* Fl* 



* POINT TO ♦ 

* DESIRED MSG * 

* -ICIOA- ♦ 

* * 
***************** 



**** 

* * 

* I * 

* * 
**** 



***** 
** * 
» H3* 



♦ POINT TO ♦ 
« DESIRED MSG * 

♦ -ISOXD- ♦ 

♦ * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*G4 
ADDR OF DESIRED 
MESSAGE IS FOUND 
IN REGISTER POINTl 



ERRRTN X 

*^t****Q^*****V***** 

LOGOUT LE 

*-*-*-*-*-♦-#-*-* 

LOG STMNT 

* ON * 

SYSLOG 

»*****«***:|.** 



******C5***«*«****' 
LSTOUT BE 

♦_♦_♦_♦_♦_♦_♦_*_* 
LOG STMNT 



](c«**«D3*««******< 

♦ CLEAR BUFFEK * 

♦ AREA TO BLANKS *• 

♦ MOVE DESIRfcD * 

♦ MESSAGE TO * 

♦ BUFFER ^G^ * 

****************4^ 



****:ti£^*********i. 

♦INSERT OPERAND ♦ 
♦POSITION NUMBERS 

♦ INTO BUFFER * 

♦ PLUS 3 FROM ♦ 

♦ OPNUMB ♦ 

:t(***************ii' 



#;^ic**:lff^tH^tc*Hfi^fif**tfX 

MSGOUT BE 
*_*_♦_*_*_♦_*_♦_* 

DISPLAY MSG 

» ON ♦ 

SYSLOG 

************* 



*;t^f***C5***********- 

LSTOUT BE 

*_*_*-*_*-♦_*_*_* 

DISPLAY MSG 



*H3 
BL-K4 
BN-C2 
BP-El 
BP-G4 
BU-Dl 
BX-Ol 
BY-E2 

CA-E2 
CB-H4 
CJ-El 
CL-E4 
CM-Bl 
CM-D2 
CS-BI 

DA-B4 
0D-F2 
DM-H5 
ON-Kl 
DP-B4 
OQ-El 



EA-K4 
EB-Cl 
EB-F2 
EB-G2 
EC-F5 
EE-D2 
EF-C4 
EG-B5 
EJ-Gl 
EK-D4 
EK-Kl 
EL-B3 
EM-E4 
EN-G5 
E0-D2 
ER-D4 
ES-H5 



***** 
♦BB ♦ 
♦ A2^ 
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Chart BM. UNA Statement Processor — $J03CTLD; Refer to Job 
Control, Chart 05 



INITIALIZE 

FOR 
RELOCATION 



LOAD CORRECT 

PIB ADDRESS 

IN WRKRG4 



CI ». 

.♦ MULTI ♦. 

•PROGRAMMING* 

ENVIRONMENT 



POINT TO 1ST 

OPERAND 

-Fl OR F2- 



C3 ». 




.» IS •. 




.* PROGRAM «. NO 


». DETACHED .♦ 


♦. »C4 .« 




*« •* 




«. .» 


X 


♦YES 


«•••• 




♦CY • 




• Dl^ 




• • 








TIAERR 


P X 








♦ LOAD POINTl * 




♦ WITH CLASS ♦ 




♦ FI EQ 3 • 




♦ F2 EQ 2 ♦ 








I 


*E4 










X 


3- 


«•««•£ 3* «*•*•*••* 




♦GETLAN CR« 




♦ COMPUTE LUB • 




•ADDRESS AND NO.* 




• IN CLASS. ♦ 





THE PIB FLAG MUST BE HEX 80 
INDICATING THE PROGRAM IS 
DETACHED (NO LONGER IN USE). 



LOAD LUB ADOR IN WRKRG3 FROM LUBAD. 
SAVE THE CURRENT LUB IN LUBCOM. 
NULL THE LUB IN THE LUB TABLE 
BY SETTING TO HEX FFFF. 



•INITIALIZE FOR 
» UNASSIGNING 

• FOREGROUND 2 

• LUBS 

• •F2 



♦ F2 

1. P0INT2 EQUALS UNIT 
CLASS 2. 

2. WRKRG3 EQUALS 
FOREGROUND 2 PIB 
ADDRESS. 

3. PUBMSK EQUALS PUB 
TO MASK FOR UN- 
ASSIGNING F2 PUBS, 
HEX FE. 



YES .• IS • 








...... OPERAND 








•. F2 .• 
























• NO 




• H2 








1. 


WRKRG3 EQUALS 
FOREGROUND 1 PIB 


X 






ADDRESS. 




2. 


PUBMSK EQUALS PUB 


•INITIALIZE FOR 






MASK FOR UNASSIGNING 


• UNASSIGNING 






Fl PUBS, HEX FD. 


• FOREGROUND 1 




3. 


P0INT2 EQUALS 


• LUBS 






UNIT CLASS 3. 


• H2 









«»»»F3»**^*^»»^ 
MOVE LUB ADOR 
TO LUBAD AND 

LUB COUNT, 

NO. IN CLASS, 

TO WRKRGl 



••«««G3* •••*•**• 
» INITIALIZE 
♦FOR SUBROUTINE 

• UNAENT 

• •EA 



IS 

OPERAND 
Fl 



•♦• ♦J 3^ ♦♦♦♦•♦♦♦ 

INCREMENT 

LUBAD TO ADDR 

OF NEXT 

LUB 



♦ 1 ♦ 

* ♦ 

• •«* 



MORE 

LUBS IN 

CLASS 



• ••• 
♦ 2 



•••♦♦G5 *•**•****• 
•RESTORE PUBMSK • 

• TO HEX FB FOR • 

• UNASSIGNING • 

• BACKGROUND • 

• OWNERSHIP • 



.* DID ». 

NO .* A BLANK •. 
...•.END THE LAST .* 
». SCAN .• 



••««*J4*«»«»«»«»« 
•SCANR3 BF^ 
»—«—♦—•—♦—♦—•—♦—♦ 

• GET LAST • 

• OPERAND, • 
» Fl OR F2 • 



.» DID • 

A BLANK 
END THIS 
. SCAN 



♦ Bl^ 

• ♦ 

CONTROL 



X 
• 2 



X 
♦♦♦• 

♦ 
3 ♦ 



••♦•♦ 

• BL • 

• E4» 



J 
304 DOS System Control 



Chart BN, CLOSE Statement Processor — $JOBCTLD; Refer to 
Job Control, Chart 05 



:•««: 



Ciosf i 

•••••Al«««a««««** 
•INITL CR« 



• INITIALIZE 



. NtiMSEft IN CLASS OF THE SPECIFIED UNIT IN 



IN CL< 



UNIT ADDRt CLASS AND OROEKt 



NOC 
-HE 

:HE^ty^*SDR. OF^THE SPECIFIED UNIT IN 

.... A 

OLD PUB, 
-IE LOGIC 



. Tl. — . 

IN CLAORD. 
. THE LUB aL 

URKRG2 AND LUBmu. 

IHE PUB AODR OF THE SPECIFIED UNIT IN 

!CAL UNIT TYPE IN NEUTYP. 



• I • 

• • 
•••• 



CLOSED .^ X 

•••••A4««»**«««** 

• LOAQ^POINTER • 



6 poll 
optionI., 



•IcANrJ* ******BF* 

»»•-•-•-■-•■•-■-• 

• POINT TO • 

• OPERAND • 

• -SYSXXX- • 



• • *• 

•• IS •• 

OPERAND 

•• ALT •• 



• 2 • 



•• DID •• 

•• SCAN END •• 

•WITH A BLANK • 

••OR COMMA •• 



•SYSXXX CS« 

• CHECK XXX AND • 

• Set SYMBOLIC • 

•UNIT ADOR •k2» 



• 3 • 

• • 
•••• 



YES 


.• 




••••• PROGRAMMER 




•. UNIT 






• • 


• 


X 


• . -• 




•••• 


•NO 




• • 






• 2 • 






• • 






•••• 


da'*'». 






• • 


• 


YES 


" ncufrc 




• •••• 


'.. °Ei«^ 






•• 


• 




•• •• 






•NO 





£»•-.. 




.:-«mo*'-:. 


NO 


• • •• 




• • •• 




•• •• 


X 


•YES 


• ••• 




• • 




• 3 • 




• • 




•••• 






•••••F •••••••••4 






• 
•••••••••#••••••1 





•■••• 

•CY • 
• B2^ 

• • 



•••• 

• • 

• 4 • 

• • 
•••• 



•••••E4^^^^^^* 

I SWITCH ON *• 

• -BANK I* • 

• BIT 0- • 



•CLOSEl CM» 
••>•-•«>•-•-•-»-•—• 

• CLOSE • 
« DESIRED • 

• UNIT • 



X 
••••• 

•CY .• 



••• CLOSET 


.•« • BU 


^ X 


Gl •. 




G2 •• • • 


•••••G4^^* ••••••• 


•• •• 




• •• • 


•MTNCNT BK* 


IS ••NO 


• • 


IS •. NO ILUS 

W : 

•• • * • 


•-•-••>••>•-•-•-•-• 


."ilk^ 

• • •• 


X^. 

• , 


••""^SIOEi 


•• •• 

•YES 




• • •• X 
•YES •••• 


••••••••••••••••• 


* 




• • • 


• 






• 3 • 








• • • 


• 






, ■••• 




X 
HI--.. 




X 
••• ••• 

H2 •. H3 •• 


•••••HA^^*^^^^^^^ 


;pss§|k^ 


•• ~ •• •• s •• 

•• •• NO •• THERE A •• NO 

••.r-gstr*.. «••.. sfeo : 


If^ti 


•• •• • 




• • •• •• •• • 


• • 


• « .• X 




•. .• •. .• X 




•NO •••• 






IVES •YES •••• 


• 


• • • 






* * 




I • A • 






• 2 • 




• • • 






• • * 




. •••• 






, •••• 


• 


•• IS •• 






..-;;•••.. 


••••JA^^^*«^^^^ 


•• LST •• 






« •••<!?HiK:---": 


• SVC 2 • 
•FETCH $$BCMTQ7 • 

• • 






•• •• • 


••••••••••••••• 


• • •• X 
•YES •••• 






•• •• X 
• •••• 


• 


• • • 






• • 




I • 4 • 






• A • 


• 


• • • 






• • 




a •••• 






•••• 


• 


•S. CL0SE2 
Kl •• 


K2" 


; 
>• 

•. 


X 
•••••KA^^^^^^^^** 


•• IS •• 




>• IS •• 


•MTNCNT BK^ 


. ife: .:••••••: 


•• 

•• 

• 


THERE •• NO 
A SECOND 

. OPERAND •• 


•-•-•-•-•-•-••>•<-• 


•• •• • 




'•••YES ."•• 


• TO HEX FF • 


•• •• X 
•YES •••• 




••••••••••••••••• 


• • • 




•CM •CLOSEl 




• 2 • 




• BA^ 


• CONTROI 


X • • 




X • • 


X 


•••• •••• 




•••• • 


••••• 


• • 




• • 


•BB • 


• 1 • 




• 1 • 


• BU 


• • 




• • 


• • 


•••• 




«< 


!•• 


• 



CL0SE3 ,. X 

•••••C5^^^^^^^ 

•«••••••••••• 



• •••€ 

•BY • 

• J2^ 



" K We 

BEING FETCHED. 
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Chart BP. LISTIO Statement Processor- $JOBCTLD Scan and 
Terminate Routines (Part 1 of 5) ; Refer to Job 
Control, Chart 05 



LISTIO X 
•INITL 



INITIALIZE 

FOR 
RELOCATION 



•••«*C1«**««*««** 

♦ LOAD P0INT4 « 
♦WITH ERROR EXIT* 

♦ TO BE USED IF ♦ 

♦ $$BLSTIO IS • 
♦LOADED •FZ* 



••♦•♦A2**^*^*^*^* 

♦ MOVE THE ADDR * 
•OF THE SYS UNIT* 
♦TABLE, SYSTABLEf* 

♦ TO THE TRANS • 

♦ LOC. TASYSTAB • 



DETERMINE 
TYPE OF 
OPERAND 



• A3 
BQ-K3 
8R-G2 
BT-H4 
BV-J5 



• A5 
ENTERED FROM $$BLSTIO 
SUBROUTINES AS AN ERROR 
EXIT. P0INT4 IS USED 
" ' BRANCH REG. 



AS 



LIOEOJl X 

•••••B4*»*««***«^ 
•SAVE THE BRANCH* 
•TABLE DISPLACE-* 

• MENT IN LOC • 

• COUNT FROM • 

• WRKRG3 • 



TNVSERR X 

•••*«B5 *••••**••* 
* LOAD WRKRG3 * 
*WITH THE BRANCH* 



* NVSERR RTN 



* SET THE ♦ 

* B-TRANSIENT 
*ACTIVE SWITCH, 

* TRANSN,OFF 



THE OPERAND IS ANALIZEO AND CONTROL IS 

TRANSFERRED TO THE CORRECT PROCESSING 

ROUTINE USING TABLE A. 

REGISTER POINTl CONTAINS THE 

LOGICAL UNIT CLASS 

REGISTER WRKRG2 CONTAINS THE 

LUB COUNT. 



El *. 
.* DID *. 

.* A BLANK * 
.END THE SCAN 



«**«*F1********* 

♦ SAVE POINTl 

* IN WRKFLD3. 

• POINTl IS THE 
*POINTER TO THE 

* OPERAND 



•*««D4*** ••••••• 

MTNCTN BK* 
-•-»-•-♦-»-»-•-♦ 

RELEASE ♦ 
SYSTEM ♦ 



•***E4**« *•*••• 
*SVC 11 RELEASE • 
» THE * 
*TRANSIENT AREA • 



**»**G1********** 

* LOAD LINKR2 • 

* WITH RETURN * 

* ADDRESS TO BE * 

* USED BY * 
*$$BLSTIO *G2* 



♦ F2 
IF THE $$BLSTIO TRANSIENT HAS BEEN 
LOADED, LIOEOJ IS THE NORMAL EXIT 
FROM THIS PHASE AND TNVSERR IS 
THE INVALID STATEMENT ERROR EXIT. 



LINKR2 IS USED BY THE $$BLSTIO 
TRANSIENT TO RETURN CONTROL TO 
THE CALLING ROUTINE AT THE 
LABEL RETADD. 



*»•• VGA*** *•••••• 

• LOAD WRKR63 • 
•WITH DISPLACE- • 
•MENT FROM SAVE • 

• AREA, COUNT • 



««*«*H1 ••*••••••• 

•SVCBTRNS CT^ 



«»••*•••••••«•••* 



RETAPD X 

•*••* J 1 **•«*•••*• 
*MTNCTN BK* 
•—«—♦—»—»—♦—•—*—• 
* SEIZE SYSTEM * 
*AND SET SYSTEM « 
*MASK TO HEX FF • 



.OPERAND 


. ROUTINE 




•chart: 


.SYS 


. LIOL 




BQAl . 


Iprog'" 


:*Li6L"" 




•bqai': 


'.Fi 


. LIOL 




•bqaI". 


.F2 


. LIOL 




BQAl . 


.ALL 


. LIOL 




'BQAi": 


.UNITS 


. UNITS 




•bra!': 


.CUU 


. LIOCUU 




•bsai": 


.DOWN 


. DOWN 




BTB3 . 


.UA 


:'uA 




•btbi'! 


.SYSXXX 


. LIOSYX 




BSB3 . 



TABLE B 

^DISPLACE-*: ', '. 

.MENT .ROUTINE .CHART. 

IhEXOO ^control' I BB-BU 

IhEXIA *. NVSERR* * I BL* Ea! 



*****K1* ********* 

• MOVE THE • 
*OPERAND TO THE • 
•TRANSIENT AREA ♦ 

• IN LOCATION * 

• TARG * 



• *•• 

• * 

• 1 ♦ 

• • 

• ••• 
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Chart BQ. LISTIO Statement Processor- $JOBCTIiD (SYS, PROG, 
Fl, Y2, or ALL Operand Routine; Part 2 of 5) 
Refer to Job Control, Chart 05 



SET LIOSW « 
ON. INDICATES* 
LIST I/O IN 
PROGRESS ♦ 



• ♦••♦Bl»»» ♦ 

•LOAD LUB COUNT 

• IN WRKRG3 
« FROM WRKRG2 



IS 

OPERAND 
SYS XXX 



LIOLl 

««*»»A3«»»»»«* 

• SET TPROGSW» 

• ON. INDICATES • 
...X»SINGLE UNIT TO 

• BE LISTED • 



COMPUTE LUB 

ADDR AND NO. 

IN CLASS 



••♦♦»B3* 
•SET LUB COUNT, ♦ 
♦NUMBER IN CLASS^ 
•AND COUNT CTRL * 
♦ TO 1 • 



LI0LL201 

♦•♦♦»C1»«»*«»^»» 

• SAVE LOGICAL 

• UNIT CLASS IN 

• CLAORD AND 

• LUB COUNT IN 

• LOC. COUNT 



LIOL202 

«»»»»DL«< 
♦SKIPLN 



*»»••»» 



♦ PRINT A BLANK 
♦LINE TO EFFECT 

♦ A LINE SKIP 



EY* 



•♦♦♦♦El*^*^^^ 

•LHRTN 

• BUILD HDR FOR ♦ 
•SPECIFIED LOGI-^ 
•CAL UNIT CLASS ♦ 



PRINT HEADER 

FROM BUFFER. 

SKIP 1 LINE 



♦•••C3^^^^^*^** 

PLACE LOGICAL 

UNIT CLASS 

IN CLAORD 



#*»*D3^»*»^^^^» 

MOVE LUB ADDR 

FROM LUBAD TO 

SLADD FOR 

SCAN 



LI0LL3 

••♦♦»E3^^^^^^««» 
•SFPPE2 CV 

♦SCAN LUB TABLE 

• FOR EQUAL PUB 

♦ POINTERS 



REENTRY POINT FROM 
THE SFPPE2 SUBROUTINE. 
SEE NOTE *D5. 



END ♦. NO 

OF LUB .•... 

CLASS .• 



♦♦•♦A'^^ •••*••* 

LOAD WRKRG3 

WITH ADDRESS 

OF NEXT LUB 

SAVE AREA 

-JIBCHN- 



•—♦—♦-•— 



PRINTl 

LINE FROM 

BUFFER 



COMPUTE PUB 
ADDR IN 
WRKRG4 



••♦B5« 

LOAD LINKR2 

WITH THE 

ADDRESS 

LI0L4 







^ n 


• MOVE PUB ADDR • 




• 


• TO TRANSIENT • 






• AREA, TPUBADD • 

• ♦ 


•D5 




• 


1. 


EXIT IS TO SFPPE2 
AT THE ADDRESS 


X 




S >ECIFIED IN L NKR4 


••♦••D4»^««»*««** 


2. 


L NKR4 IS LOAD 10 


•COMPUTE LOGICAL* 




E »CH TIME SFPP 12 


•UNIT NO. WITHIN* 




RETURNS CONTROL TO 


• CLASS OF • 




LI0L4. 


• CURRENT LUB. • 


3. 


LINKR2 IS LOADED 


• STORE IN TLUN » 




IN THIS ROUTINE TO 
FORCE A RETURN TO 


i 


4. 


l^'ESiRiM??"''" 


X 






•MOVE PUB POINT-* 






♦ ER TO TJIBCHN ♦ 






♦ IN TRANSIENT ♦ 






•AREA FROM CURR ♦ 






• LUB SAVE AREA • 







•*«*«F4^*** •***•• 

• LOAD SYMBOLIC • 
•UNIT ADDRfCLASS* 
» AND ORDER, IN • 

• REG POINTl • 



MOVE HEADER 
TO BUFFER 



••♦••G 3* •♦•••*••♦ 


«•* 




t*«« 


• LOAD WRKRG3 * 








• WITH CLASS • 




CLEAR 




• COUNT. LOAD • 




BUFFER 




• POINTl WITH » 








• LAST CLASS • 


»•« 




i»*» 



PRINT HEADER 

FROM BUFFER. 

SKIP 1 LINE 



««^»«H3^ ••♦***** 
♦INCR POINTl TO 

♦ POINT TO NEXT 

♦ CLASS 



END 

OF LUB 

TABLE 



♦••♦♦H 4*** ******* 
♦PUIF EW* 

♦—♦—♦-»—♦—»—•—»—• 

♦ BUILD A PRINT • 

* LINE IN WORK * 

• AREA • 



BUILD PRINT 
LINE IN 
BUFFER 



-CHNL UNI T MODE 



• PRINT A BLANK 
•LINE TO EFFECT 

• A LINE SKIP 
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Chart BR. LISTIO Statement Processor- $JOBCTLD UNIT Operand 
Routine (Part 3 of 5); Refer to Job Control^ 
Chart 05 



3 ♦ 

• •*• 



• PRINT A BLANK 
•LINE TO EFFECT 

• A LINE SKIP 



•BUILD PHYSICAL 

• UNIT HEADER 

• IN BUFFER 



♦•♦•A3^«««*^^^< 

MOVE UA TO 

OUTPUT BUFFER 

+23 



UNITS402 X 

•«**«B 3* •*••••« 
•GETLAN CI 

• computI LUB 

• addr and no. 

• IN CLASS 



ITS7 UNITS6 .•. 

•••*«A4^»^«***«»^ A5 •. 

• • .♦LOGICAL*. 

• INCR. LOGICAL • NO .'UNIT CLASS 

• UNIT CLASS BY •X •. EQUAL 

•1 IN REG POINTl^ X ». ONE 



BA •. 

• END 
OF LUB 
-CLASS 
EQUAL 



.» MULT I • 
. PROGRAMMING 
•ENVIRONMENT* 



PRINT HEADER 

FROM BUFFER 

SPACE 1 LINE 



LOAD PUB 

ADDRESS I.NJ 

WRKRG3 



UNITS401 X 

«»***E1^^^*»^««** 

• SET LOGICAL • 

• UNIT CLASS TO • 

• IN REG • 

• PGINTl • 



• MOVE PUB 

• ADDRESS TO 
•TRANSIENT AREA 

• LOC TPUBADD 



Gl *. 

END 
OF 
PUBS 

*»N0 



IS 
DEVICE 

DOWN 



•SCAN LUB TABLE 

• FOR EQUAL PUB 

• POINTERS 



UNITS501 X 

•CLEAR TEMPORARY^ 

• FIELDS, TMODE • 

• AND TCMNT, IN • 

• TRANSIENT ♦ 
•AREA TO BLANKS • 



UNITS9 .•. 




X 


D3 •. 




•»»»»D4^ •••••♦••• 


.• •. 




•PUIF EW^ 


.• END •. 


YES 


•—♦—•—♦—•—•—•—•—• 


OF 


• . . . • 


• BUILD PRINT • 


•. LUB ,♦ 


. 


• LINE IN WORK • 



. •• . 
• . .• 

• • . * • 
•NO 


•«K1^^^«««**^4 

CUU3 CM* 
NEWLUB < 




Ix 



•••••G2^«^^^«^*^^ 

•SKIPLN CQ^ 

...X^ PRINT A BLANK • 
•LINE TO EFFECT • 

• A LINE SKIP • 

. •••• 

I.X»BP •LIOEOJ 
• AA^ 

UNITS3 

•••••H2^*^«^«»^^^ 

•PUIF EW^ 

. . . x»~*buTlo*prTnt*"^ 

• line in work • 

• AREA • 



BUILD PRINT 
LINE IN 
BUFFER 



••••E3^ ••••••••♦ 

COMPUTE TLUN, • 

LOGICAL UNIT • 

NUMBER WITHIN • 

LUB CLASS • 



••••«F3»^^^^^^^^« 
•PUIF EW^ 

♦" buIld prTnt "• 

* line in work * 

• AREA • 



•••#*G3^^^^^^«^^^ 
•SEUOB EZ« 

• BUILD PRINT • 

• LINE IN • 

• BUFFER • 



PRINT ONE 

LINE FROM 

BUFFER 



•••••J3^«*«»*«^« 

• LOAD LINKR2 

• WITH THE AODR 
•UNITS9 TO CTRL 

• RETURN FROM 

• SFPPE 



• ••• 

• • 

• I • 

• • 

• ••• 



*««««EA^ ••••••*•• 

• MOVE CHANNEL • 

• AND UNIT TO • 

• BUFFER FROM • 
•TCHNL AND TUNIT^ 



IS 
UA IN THE 
. BUFFER . 



•••««GA*«^ •*••••• 
•OUTPUTl CQ^ 
»—•—•—•—•--•—•—*—• 

• PRINTl LINE • 

• FROM BUFFER ♦ 




INCR PUB AODR 

IN WRKRG3 BY 

8 TO POINT TO 

NEXT PUB 



•KA 
EXIT TO THE SUBROUTINE SFPPE. 
LINKRA CONTAINS THE ADDRESS 
WITHIN SFPPE TO WHICH CONTROL 
IS RETURNED. SFPPE IS ON 
CHART CV. 
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Chart BS, LISTIO Statement Processor- $JOBCTLD (CUU or 

SYSXXX Operand Routine; Part 4 of 5); Refer to 
Job Control, Chart 05 






ilOCUU . X 



• "POINTS fo • 

• HEX CUU- • 



• •••• 
•BP • 

• B2* 



•••■•Bl»«»«»««««* 
•TXCUU CM* 
•w»-«-«« «-«-•-•-• 

• GET DEV TYPE. • 

• PUB AOOR* An6 • 

• PUB POINTER • 
•••■••••••••«•••• 



• SET LIOSW ON* 

• INDICATES • 

• LIST I/O In 

• PROCESS 



•••••CI* ••••••■•• 

•SKIPLN CO* 
•••••-•>•-•-•-•-• 



• A LINE SKIP • 



RE REG 
Ti AS 
TO TH 



OINTi ^ 
•POINTER TO fHE 
• SYXXX OPERAND • 



•••••0 !•■•••••••• 

•PSHRTN EY^ 

•*•—•—•—•—•—•—•—• 
•BUILD PHYSICAL • 
•UNIT HEADER IN • 
• BUFFER • 



•••••D3*^«* •■•*•• 
•SYSXXX CS* 

•>•>•-•>•■••••••-••• 



CHECK XXX AND 

ET SYMBOLIC 

UNIT ADOR 



• GET SYMBOLIC • 



-•••-»••>•-••• 

PRINT HEADER 

FROM BUFFER 

SPACE 1 LINE 



•••••F !•••••••«•' 

• LOAD PUB 

• ADOR In 

• URKR63 



IS 
UNIT 
SYSIN 



.• IS •. YESX 
UNIT .•••• 
•. SYSOUT .• 



X 

• •••• 

•CY • 

• Bl« 

• • 



"nil 



fE PUBi 



RKFLI 
• K2 



••■••G3^^***«* 

• SET PROGSW • 
•ON TO INDICATE^ 

• PROGRAMMER • 

• UNIT • 



•••HI**-* ••••••• 

MOVE END OF * 

PUB FLAG TO • 

URKFLD3 • 

•K2 * 



WRKRG3 AS 



•••**K1******* 

• SET 

• UNS 

•iNDir 



••Kl^^***** 

SET SNITCH * 

DICATE SINGLE* 
ARGUMENT * 



W^KFLDZ AND HRKFLD3 ARE CONTIGUOUS. UHgN 

■ HADED IN THIS MA 

ST PUB IN THE P,_ -.-^ 
.JADED TC POINT TO THE^PUB . . ^. ,- ___ 
INSTEAD CF THE PUB IN THE PUB TABLE. 



ITIGUOUS. „., 

SIMULATE THi 

WRKFLD3 IS 



••••• 
•BR • 
• El* 
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Chart BT. LISTIO Statement Processor- $JOBCTLD (UA and Dovm 
Operand Routines; Part 5 of 5) Refer to Job 
Control, Chart 05 



SAVE CURRENT 

PUB ADDRESS 

IN TRANSIENT 

AREA LOCATION 

TPUBADD 



» PRINT A BLANK 
♦LINE TO EFFECT 
« A LINE SKIP 



»MOVE UA BUFFER 

• TO BUFFER + 6 

• -17 BYTES- 



• INIT REG • 
» POINTl TO • 
•BRANCH TO TESTl* 

• FOR UA * 

• PROCESSING * 



•UNASSIGNED»* 



UADNI X 
♦*»»*£!♦• 
•OUTPUTS 



PRINT HEADER 

FROM BUFFER 

SPACE I LINE 



• PRINT A BLANK 
♦LINE TO EFFECT 

♦ A LINE SKIP 



** 


♦♦♦C3^^^^*^^*^^ 




MOVE DOWN 






HEADER TO 






BUFFER +6 






-12 BYTES- 




»« 


• D2 


»•• 



♦INIT REG POINTL^ 
» TO BRANCH TO ♦ 
♦ TEST2 FOR ♦ 
♦DOWN PROCESSING^ 



««*B4^^^^^^^^ 

LOAD WRKRG3 

WITH SYSLOG 

LUB POINTER 

HEX 08 



«*•«*»•*« 



GET SYSLOG 

PUB ADDR IN 

WRKRG4 



LOAD CURRENT 

PUB ADDR IN 

WRKRG3 



INCR PUB 

POINTER BY 

8 TO POINT TO 

NEXT PUB 



♦ttvtttF I ♦♦♦♦♦*♦♦♦♦ 
♦MOVE SUB HEADER^ 
♦TO BUFFER + 10 ♦ 

♦ -14 BYTES- ♦ 

♦ ^£2 ♦ 



END 

OF PUB 

TABLE 



♦PRINT SUBHEADERS 

♦ FROM BUFFER. ♦ 

♦ SPACE 1 LINE ♦ 



♦ MOVE 

♦ ♦♦NONETS 
♦TO BUFFER + 11 



••♦»J1**»«**^»«* 

LOAD PUB ♦ 

ADDR IN ♦ 

REGISTER ♦ 

P0INT2 ♦ 



X 

♦ »•♦ 

1 ♦ 



.♦ 

• ♦• 
, ♦ 


IS ♦. 

PUB .♦ 
DOWN .♦ 




'♦YES 






..x! 




UADN6 

♦ PUIF 


X 


♦ BUILD A PRINT 

♦ LINE IN WORK 

♦ AREA 





»•♦• •J 3» »♦»•*♦♦»• 

♦ CLEAR BUFFER. 

♦ MOVE CHAN AND 
♦UNIT TO BUFFER 
♦FROM TCHNL AND 

♦ TUNIT 



♦ HAVE ANY 

UNITS BEEN 
♦. LISTED . 



PRINT LINE 

FROM BUFFER 

♦♦NONES* 
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Chart BU. DVCDN Statement Processor- $JOBCTLD (Part 1 of 
3) ; Refer to Job Control, Chart 05 



••••• 

• BC • 

• E3» 



♦MOVE THE HEADER* 

♦ ••NONE»» TO • 
•OUTPUT BUFFER, • 

♦ ASSUMING NO • 

♦ ASSIGNMENT • 



DVCDN X 

«»«*«B1*«*«***** 
•INITL CR 

*TnTtialize~*' 

FOR 
RELOCATION 



DVCDN2 X 



• SET SYSLOG • 

• ASSIGNMENT • 
•SWITCHES •B3^ 



♦—»—•—•—♦—• 



POINT TO 
OPERAND 
X'CUU* 



• •••«*C2*^^ ♦ 

MSGOUT BE 

OUTPUT~RiLiASE~ 

• MESSAGE ON ♦ 

SYSLOG ♦CS 



Dl •. 
.• DID • 

A BLANK 
END THIS 
. SCAN 



••••• £!•••••••••• 

♦TXCUU CM* 
♦-•—•—•—♦—»—♦-»-♦ 

♦ GET DEV TYPE * 

* PUB AODR, AND * 

• PUB POINTER * 



SKIP ONE 

♦ LINE ON • 

SYSLOG *D3 



UNIT 
SYSLOG 



••***G I* ••••••••* 

•MOVE NULL MASKt^ 
•HEX FF, TO BYTE* 

• OF SYSLOG • 

• LUB * 



♦ BUILD COUNT * 
*CONTROL FOR LUB* 

• TABLE SEARCH * 



••*«F2********** 
SVCBTRANS CT* 
—•—»—«—«—•-•—♦—• 
LOAD AND • 
INITIALIZE • 
$$BLSTIO •F3^ 



DVCDN5 X 

•»•• •02* ********* 
•MTNCTN BK* 
•—•—»—•—#—»—»—•—• 

♦ SEIZE • 

♦ SYSTEM • 



DVCDN14 X 

•••••HI^^****^«^^ 
•DVCDN3 CP* 
•-•—•-•—•—•—•—•—• 

• BUILD COUNT • 
•CONTROL FOR LUB« 

• TABLE SEARCH • 



DVCDN4 X 

•••••JX**»^«** 

• SET SWITCH • 

• DDSW ON- 

• BIT OF 

• BANKl PLUS 1 

• •J2 • 



»B3 

THE ASSIGNMENT FOR 

SYSLOG IS DETERMINED 

AND THE SWITCHES IN 

COMREG PLUS 56 ARE 

SET. 



• C3 

1. THE I/O AREA BUFFER 
IS SET TO BLANKS. 

2. THE MESSAGE •IIIOI 
ASSIGNMENTS RELEASED* 
IS MOVED TO BUFFER 
AND PRINTED. 



• D3 

BUFFER IS SET TO 
BLANKS AND PRINTED 
TO EFFECT A ONE 
LINE SKIP. 



• E3 

RETURN WHEN A LUB IS 
FOUND THAT HAS AN EQUAL 
PUB POINTER OR WHEN 
THE END OF THE LUB 
TABLE IS REACHED. 



*F3 

THE tSBLSTIO TRANSIENT USES 

LINKR2 AS A BRANCH 

REGISTER. LINKR2 IS 

LOADED WITH THE 

ADDRESS OF DVCDN5 

TO CONTROL RETURN. 



•G3 

THIS SWITCH FORCES 
RETURN FROM SUBROUTINE 
SFPPE EACH TIME A LUB 
IS FOUND WITH AN 
EQUAL PUB POINTER. 



• J2 

THE SWITCH DDSW IS TESTED 
IN THE RESET ROUTINE. IF 
0N» CONTROL IS RETURNED 
TO DVC0N2 OF THIS CHART 
AFTER ALL LUBS ARE RESET 
TO STANDARD. 



•••«BA*^^**** 
SET LIOSW, • 

BIT 6 OF BANKl, 
ON TO FORCE 
RETURN * 



••••C4« •••••••* 

SETLUB COUNT 

TO h. 

CLASS TO 



DVCDNL X 

•••««D4^ ••••••••• 

•GETLAN CR^ 
•—•—•—♦-•—»—•—•—• 

• COMPUTE LUB ♦ 

• AODR AND NO. • 

• IN CLASS • 



••«*«E4^ ••••••••• 

•SFPPE CV^ 
•-•-•-•-•-•-•-•-» 
• SCAN LUB • 
•TABLE FOR EQUALS 
•PUB POINTER ♦ES^ 



* END 
OF LUB 
TABLE 



DVCDNS X 

•••••B5^**^^ 

SET 

RETSW 

OFF 

•G3 



•••••C5^^^**^*«** 

• MOVE ADDR OF • 

• SYSTEM UNIT • 

• TABLE TO • 

• B-TRANSIENT. • 

• -$$BLISTIO- • 



••••D5 ••••••••• 

CLEAR BUFFER. 

MOVE HEADER, 

I/O UNIT, AND 

OWNER TO 

BUFFER 



PRINT HEADER 

•CLEAR BUFFER • 

SKIP LINE 



••••«F5^ •*•••«••• 

• POINT EQ • 

• SYSTEM CLASS, • 
•WRKRG2 EQ LOOP • 
•CONTROL COUNT. • 

• -2 OR 4- * 



«•••• 
•BV • 
• B2« 



COUNT 

EQUAL 





•••••Kl»^^«»^*«** 
•RESETIl CK» 

•~RisiT~TO STD*~« 
• ALL LUBS FOR • 
•THIS UNIT •J2^ 


X 

• ••« 

• 
• 1 

• 

• ••« 


• 



•\kU* 



MSGOUT 

«—•—•—•—•—•—•—»• 
PRINT CONTENTS 
• OF 
BUFFER 



X 

• •»•• 
•BV • 

• F5« 
* • 



BE 
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Chart BV. DVCDN Statement Processor- $JOBCTLD (Part 2 of 
3) ; Refer to Job Control, Chart 05 



«BU ♦ 
♦ F5» 



DVCDN13 X 

•*«««B1«******« 

• RESTORE UNIT 

• CLASS IN 

• POINTl 

• FROM 

• WRKFLD2 



DVCDN9 X 

*«*»«B2**»**«** 
» STORE CURRENT 
♦LOOP CONTROL ' 

• COUNT. ZERO 

• LOGICAL UNIT 

• NO. IN TLUN 



N» 



♦ CLEAR BUFFER. 
» MOVE TLUNIT, 

♦ TCMNT, AND 
*TOHN TO BUFFER 



•••••CI********** 

• INCREMENT » 
» LOGICAL UNIT • 

• NUMBER, TLUN» * 



COMPUTE LUB 

ADOR AND NO. 

IN CLASS 



DVCDN7 

♦»*»«D2* •♦♦•»•*♦ 

♦ MOVE LUB ADDR 

♦ TO LUBAD AND 
•STORE CLASS IN 
» WRKFLD2 FROM 

♦ POINTl 



MOVE PUB POINTER FROM 
NEWLUB TO LUBCOM+0. 
MOVE NULL JIB POINTER, 
HEX FF, TO LUBCOM +1. 



****«C4**« *»**•* 

• INIT SSTDLUB 

♦ WITH HEX FFFF 

♦ TO BE USED AS 
•STORED STD LUB 

• FLAG 



•••D4^** ••••••* 

INITIALIZE • 

LUBCOM • 

FOR COMPARE ♦ 

• 03 • 



• MOVE COUNT 

• CONTROL FROM 
•LOCATION COUNT 

• TO WRKRG2 



•••«C5*^^ •*•••*• 

INCREMENT • 

CLASS IN REG • 

POINTl • 



D5 ♦. 

.• HAVE ». 

• LUBS OF • 

ALL CLASSES 

♦. BEEN .• 

SEARCHED* 



MOVE LUB TO 

WORK AREA, 

JIBCHN 



SAVE LUB FROM 

WORK AREA, 

JIBCHN, IN 

WRKFLD3+4 



• END 

OF LUBS OF 
♦THIS CLASS. 



•••••G2*^^ ♦♦♦♦♦♦♦ 

• SAVE NEXT LUB ♦ 

• ADOR AND CURR • 

• NO. IN- CLASS. ♦ 
♦SLADD AND SNICL, 

• IN WRKRG3 • 



•G4 

ALL DFB'S ARE CHECKED, 
IF THE DFB IS ASSIGNED 
TO THE DOWN DEVICE 
THE OPEN INDICATOR IS 
SET OFF. 



••«*H2^*^^^^^*^ 

MOVE PUB ADDR 

OF DOWN UNIT 

TO TPUBAOD 

IN $$BLSTIO 

FROM NEWPUB 





♦♦♦•J2^* 




•»• 


• >UIF 




bW^ 






-•-•- 


•— • 




BUILD 


PRINT 






LINE 


IN 






WORK 


AREA 


♦•• 



••••*F 5 ••••*♦♦♦*♦ 
♦CHKOPN CN^ 

♦ set'open IND- ♦ 

♦ICATORS OFF IN ♦ 
♦DFB'S ♦G4^ 



•••••G5^^*^^^*^^ 

♦ LOAD PUB ADDR 

♦ IN WRKRG3 

♦ FROM LOCATION 

♦ NEWPUB 



•••••H5 ♦♦♦♦♦♦**•♦ 

♦ MOVE DEVICE • 

♦ DOWN FLAG TO ♦ 
♦THE JOB CONTROL^ 

♦ FLAG BYTE IN ♦ 

♦ PUB. -PUB+7- • 



•••♦•• J5*«***«*^«^ 

MSGOUT BE 

•-•-•-«-•-•-•-•-• 

SKIP I LINE 

• -PRT BLANK • 

BUFFER- 



••••• 
•BP • 
♦ A4^ 
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Chart BW. DVCDN Statement Processor- $JOBCTLD (Part 3 of 
3) ; Refer to Job Control, Chart 05 



* « 

* 1 • 

* • 



Bl ♦. 

.♦ THIS ». 
♦ LUB ♦ 

ASSIGNED TO 

♦.THE DOWN .» 

♦. DEV .» 

YES 



MQVE-ALT-TO 

PRINT LINE 

IN BUFFER 



OVCDNIO X 

•* ••»BA^**»« •*•••«' 

• MOVE JIB * 

• POINTER FROM ♦ 
♦FAVP TO CURRENT* 

♦ JIB+3 • 

♦ -CHAIN BYTE- » 



UNASSIGN 

CURRENT LUB 

GET NEXT LUB 



• I NIT WRKRG3 

• WITH ADDRESS 
•OF CURRENT LUB 

• MINUS 2 BYTES 



• MOVE JIB 

• POINTER FROM 
•CURRENT LUB, 1. 

• LUB TABLE, TO 

• FAVP 



IN^ 



BLANK THE 

COMMENTS 

FIELD IN 

BUFFER 



CHECK 

SYSLOG 

ASSIGNMENT 



*»***F1 ****•*•••* 
MSGOUT BE 

»—•—♦—♦—*—»—•—♦—• 

DISPLAY PRT 

• LINE FROM • 

BUFFER 



•02********** 



* MOVE STORED 
•LUB, IF ANY, TO 

• LUB WORK AREA 



E2 •. 

♦ WAS * 

THERE A 

STORED 

LUB 

♦. ♦Ea .• 



•YES 



F2 •. 
.• IS •. 

• CURRENT 

JIB AN ALT 
*. ASSIGN . 



RESTORE OLD 

LUB IN JIBCHN 

FROM 

WRKFLD3+4 



•••••HI*^»«^*^*» 

• RESTORE SLADD 

• AND SNICL TO 
•OLD LUB VALUES 

♦ FROM WRKFLD3 

♦ •J2 



NO .•ALT ASSIGN • 
...•.FOR THE DOWN 
». DEVICE .• 



••♦»»H2^*^ •*•••»♦ 

• SAVE THE ADDR • 
•OF THIS JIB IN • 

• WRKRG3 FROM • 

• P0INT3 ♦ 



**««*D4*«^^*^»^^* 

♦ ZERO FIRST • 

♦ 3 BYTES OF • 

♦ CURRENT • 

♦ JIB • 



THE CONDITION CODE 
TESTED HERE, WAS 
SET IN THE SCNJIB 
SUBROUTINE. 



X 
*«*»E4^*^^^*^^ 

MOVE JIB 

POINTER FROM 

SAVED STORED 

LUB TO 

CURRENT LUB 



DISPLAY PRT 
LINE FROM 
BUFFER 



•BV • 
• Bl^ 



•J2 
SLADD AND SNICL 
WERE DESTROYED BY 
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Chart BX. DVCUP Statement Processor — $JOBCTLD; Refer to 
Job Control Chart 05 



INITIALIZE 

FOR 
RELOCATION 





i*««Cl**«****«** 


•SCANR2 


BF* 






-•— ♦ 




POINT TO 






OPERAND 






X'CUU* 


»••» 



Dl ». 

• DID • 

A BLANK 

END THE 

SCAN 



••*«*E1*«**«**»*« 

•TXCUU CM* 

*~GiT~Div~TYPE,~« 
« PUB ADDRt AND » 
• PUB POINTER • 



X 

•BL « 

* E4» 



•••••Fl**«****** 

• LOAD PUB ADDR 

• FOR THIS UNIT 

• IN URKRG3 

• FROM NEHPUB 



Gl •- 

* IS 
DEVICE 
DOWN 



••««H1*****«* 
MODIFY JOB • 
CONTROL FLAG 
IN PUB TO 
INDICATE 
DEVICE UP • 



•CY • 
• B4» 



Jl «. 

.♦ IS ♦. 

DEV A 
MAGNETIC 
. TAPE 
♦.UNIT .* 

• • « * 
»YES 



•••»K1»«»«»»» 
MODIFY JOB • 
CONTROL FLAG 
IN PUB TO 
INDICATE 
STD MODE * 
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Chart BY, ASSGN Statement Processor- $JOBCTLD (Scan and 
ChecJc First and Second Operand; Part 1 of 10); 
Refer to Job Control, Chart 04 



• BI 
IT IS INVALID TO 
ASSIGN SYSLOG WHEN A 
FOREGROUND PROGRAM 
IS LOADED. THE FLAG 
BYTE -BYTE 0- OF THE 
FGl AND FG2 PIBS ARE 
TESTED. 



LOAD P0INT4 
AS BRANCH REG 
TO THE ERROR 

ROUTINE 

NVSERR 



**«*«D2**««»**** 

• SCANR2 BF 

«POINT*TO first" 

* OPERAND 

♦ -SYSXXX- 



E2 ♦. 

» DID » 

A COMMA 

END THE 

SCAN 



B3 ♦. 

.* *. 

* MULTI- ♦. 

»YES 

»*»C3*»»*»»»*»» 

LOAD WRKRG4 * 

AS POINTER TO » 

PIB TABLE » 




»»»B4» ••♦**•» 

LOAD PUB 

ADDRESS FOR 

THIS DEVICE 

IN WRKRG3 






♦♦«B5*»»»*»*«*» 

UNASSIGN » 

THE SYSUSE • 


«. 


X 

• DEVICE • 
DOWN 


. YES 


YES . 
X 


X 

.."'il'-.. 

•DEVICE FILE*. 
PROTECTED .» 



D3 *. 

• FGl 
OR FG2 
LOADED 
»B1 



D4 *. 
.» IS *. 

.» DEVICE • 

•SYSPCHiSYSLST, 

♦.OR SYSOUT.* 



IS 

DEVICE 

TAPE 



ASSGNNT 

»»»»»E5*»»»**»» 

* MOVE THE 

* DEVICE MODE 

* FROM THE PUB 

* TO LOCATION 

* MODE 



CHECK XXX AND 
GET SYMBOLIC 
UNIT ADDRESS 



*»•«*•»*» 



»**J2****»*«* 
INITIALIZE 
DEVICE TYPE 

TO HEX FO 
IN DEVTYPE 



ASSGN4 X 

*«»*»F 3* **•*»•*** 
♦SCANR3 BF« 

♦ POINT TO 2ND » 

♦ OPERAND » 

♦ -DEV ADDR- » 



G3 *. 

.» DID ♦ 

AN EQUAL 

SIGN END 

.THE SCAN 



««*«*F 4* **•«•*•*« 

• MOVE THE LUB • 
•FOR THIS DEVICE* 
« TO THE SYSUSE • 

• LUB » 



.• OPERAND •. 


NO 


HEX CUU 


* 










*. •• 






• • .* 




X 


•YES 




*••»« 






♦CA * 
♦ B2* 

♦ « 


• 




ASSGNB3 


X 






««««J3*««»*«*«*» 




TXCUU CM- 










GET DEV TYPE 






^ PUB ADDR, AND 


» 




PUB POINTER 


• 





G5 *. 
.» IS ♦. 
NO .♦ PUB 
...». OWNED BY 
*. A FG 
•.PROG..* 
*. .* 
•YES 



*CY * 

» D2* 



ASSGN5 X 

«••«• J5***^****^' 
•INITIALIZE FOR 

• CROSS ASSIGN- 

• MENT TABLE 

• LOOKUP 

• *K3 



THE DEVICE TYPE ZONE IS MOVED TO 

THE TABLE LOCATION ENDXTAB. 

MOVE THE LOGICAL UNIT TYPE TO 

COMXAS FROM NEWTYP. 

LOAD WRKRG4 AS POINTER TO CROSS 

ASSIGNMENT TABLE LESS 5 BYTESt 

XATABLE-5. 
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Chart BZ. ASSGN Statement Processor- $JOBCTLD (Cross 

Assignment Verification); (Part 2 of 10); Refer to 
Job Control, Chart 04 



»INCR WRKRG4 BY 

* 5 BYTES TO 

* POINT TO NEXT 

* TABLE ENTRY 



ASSGN8 


ASSGNIO .♦. 


«««*«A3***»****** 


A4 «. 


» SAVE CROSS • 


.» PROG 


♦ASSIGNMENT MASK» 


.« LUB SCAN 


..X» IN TABXAS * 


♦. ONLY. 


» ♦Gl ♦ 


».-PROGSW- 




• « . 




». .* 



•♦»»«B3» 
•SET THE SWITCH 
» PROGSW, ON TO* 
•INDICATE - SCAN* 

* ONLY PROG. • 

* LUBS * 



ASSGN12 X 

«*«*«B4*«**«*« 

• SET THE SW.* 
•PROGSW, OFF TO* 
•INDICATE - SCAN^ 

• ONLY SYSTEM * 

• LUBS * 



*««^«B5*** ****•*• 



CI *. 
.*** EQUAL *'». YES 


.•UNIT EOUAL*^. NO 


•*«*«C3********** 

* LOAD REGISTER * 

* POINTl WITH A * 

* 1 TO INDICATE ♦ 
< • PROGRAMMER ♦ 

* CLASS ♦ 


* SET REGISTER 

* POINTl TO 

* TO INDICATE 

* SYSTEM 

* CLASS 


«» 


NO 
... * 

X 

• CY** 

* 02* 
» ♦ 

CNIQAG 


C5 ♦. 

*'resultant' 
tabxas equal 

*. COMXAS . 

** .* 


*. ENTRY .* 
*. *F1 .* 

*. .* 

*N0 


*. ENTRY .* > 
*'*YES 

X 
.* ACTUAL *. YES 

•■°.'.'lihV.':':. 

*. ODD .♦ 

"•NO 


*x, ,.....,,,. 










*YES 


X 
• *. 

^DI 

NO .** END '♦. 
..*. OF TABLE .* 
*. .* 

*• .* 


ASSGNlOl X 

««««*D3* ********* 
♦GETLAN CR* 

♦ IN CLASS • 








* « 
ASSGNB4 


.YES 

Ix 


ASSGN9 X 

*»«*«E3********** 
*SFPPE CV* 




X 

• »♦♦» 

• CY • 

• B2^ 

INDVTP 







•LOOK FOR EQ PUB» 
• POINTERS COM- ♦ 
•PUTE CTYPE "HI* 



DEVICE TYPE, DEVTYP, ARE COMPARED TO THE 
FIRST 3 BYTES OF THE 5-BYTE TABLE ENTRY. 



F3 *. 

OF EiJg.s*'*:*^?... 


F4 ♦. 
.* PROG *. 

...X*:* '-'Bn^'y*'^ •:*!!!.. 


♦*»»»F5*******»» 
• SET CROSS 

..x^^'iiraSo'KS' 




*. -PROGSW- .* 


• CTYPE 



•Gl 
TABXAS-THE CROSS ASSIGNMENT MASK FROM 
THE LAST TWO BYTES OF TABLE ENTRY, IS SAVED 
IN THIS LOCATION FOR COMPARISON AFTER ALL 
PROGRAMMER AND SYSTEM LUB'S HAVE BEEN 
CHECKED FOR CROSS ASSIGNMENT. 



•UPDATE LOGICAL 

• UNIT TYPE 

• •Jl 



• HI 
CTYPE IS THE COMPUTED LOGICAL UNIT 
TYPE AS DETERMINED BY THE DEVICE 
TYPE CODE IN THE PUB. 



X 

• »•* 

» * 

J5* 



•Jl 
EACH TIME AN EQUAL PUB POINTER IS FOUND, THE VALUE IN CTYPE IS 
ORED INTO COMXAS TO BUILD A LOGICAL ACCUMULATION OF BITS TO 
BE COMPARED TO THE VALUE IN TABXAS. COMXAS CONTAINED THE 
LOGICAL UNIT TYPE AS IT WAS SET IN NEWTYP BY THE SUBROUTINE 
SYSXXX. CTYP CONTAINS THE LOGICAL UNIT TYPE HEX 04 IF 
PROGRAMMER LUBS ARE BEING SCANNED, OR THE COMPUTED 
VALUE SET IN THE SUBROUTINE SFPPE IF SYSTEM LUBS ARE 
BEING SCANNED. 



• J5 

RETURN TO THE SFPPE 
SUBROUTINE BY 
BRANCHING TO THE 
ADDRESS IN LINKR4. 
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Chart CA. ASSGN Statement Processor- $JOBCTLD (Verify and 

Store UA or IGN Assignment; (Part 3 of 10); Refer 
to Job Control, Chart 04 



•OPERAND* 

LENGTH 

EC3UAL 3 

CHAR 



•HOVE IGN MASK, ♦ 

•HEX FE, TO BYTE* 

X» OF NEWLUB • 

• -ASSUME IGN- ♦ 



C2 ». 

•OPERAND* 

LENGTH 

EQUAL 2 

CHAR 



» MOVE UA MASK, • 
•HEX FF, TO BYTE^ 

• OF NEWLUB ♦ 

• -ASSUME UA- • 



C3 •. 

• IS * 

OPERAND 

IGN 



E2 •• 

• IS ♦ 

OPERAND 



E3 ». 

.• IS ♦. 

.• UNIT •. 

.SYSRDR,SYSIPT. 

•.OR SYSIN .• 



• BL • 

• E4» 

NVSERR 
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Chart CB, ASSGN Statement Processor- $JOBCTLD (Complete 
Scan of Operands; Part U of 10); Refer to Job 
Control^ Chart 04 



♦Cl 
THE 3RD AND 4TH 
OPERANDS ARE BOTH 
OPTIONAL. THIS SCAN 
MAY BE FOR EITHER. 
IF PRESENT, THE 3RD 
OPERAND IS EITHER 
X'SS' OR ALT. THE 
4TH OPERAND. IF 
PRESENT, MUST BE 
TEMP. 



♦ 6 * 

* * 



HI ♦. 

DEVICE 

A 

1052 

*• • 

*• •* 
♦NO 



IS 

SYSRDR 
.ASSIGNED 



♦bV« 



♦ SET RETURN 
♦SWITCH, RETSW, 

♦ OFF 



♦*•• 
5 ♦ 



.♦ DID ♦. 

.♦ A BLANK ♦ 
♦.END THE LAST 
♦. SCAN .♦ 



ASSGN A04 

1 

YES 



.♦ DID ♦. 

♦ A BLANK ♦ 

END THE LAST 

«. SCAN .♦ 



X 

•♦♦ 

♦ 3 



ASSGN14 X 

««*««C2^ ♦♦♦♦♦♦♦♦♦ 
♦SCANR3 BF^ 

♦ POINT TO 3RD OR^ 

♦ 4TH OPERAND ♦ 

♦ ♦Cl ♦ 



D2 ♦. 

.♦ DID ♦. 

.♦ A COMMA ♦ 
.♦.OF BLANK END 
♦.THE SCAN .♦ 



IS ♦. NO 

DEVICE .♦... 

TAPE .♦ 
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Chart CC. ASSGN Statement Processor- $JOBCTLD (Final 

Verification for Normal Assignment; Part 5 of 
10); Refer to Job Control, Chart 04 
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Chart CD. ASSGN Statement Processor- $JOBCTLD (Make Normal 
Standard Assignment; Part 6 of 10) ; Refer to Job 
Control, Chart 04 
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Chart CE. ASSGN Statement Processor- $JOBCTLD (Make Normal 
Temporary Assignment; Part 7 of 10); Refer to Job 
Control r Chart 04 
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Chart CF. ASSGN Statement Processor- $JOBCTLD (Make 

Alternate Assignment; Part 8 of 10); Refer to Job 
Control y Chart O** 
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Chart CG. ASSGN Statement Processor- $JOBCTLD (Terminate 

Assignment and Open Files — Part 1 of 2) ; Refer to 
Job Control, Chart 04 (Part 9 of 10) 
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Chart CH. ASSGN Statement Processor- $JOBCTLD (Terminate 

Assignment and Open Files — Part 2 of 2); Refer to 
Job Control, Chart 04 (Part 10 of 10) 
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Chart CJ. RESET Statement Processor- $JOBCTLD (Part 1 of 
2) ? Refer to Job Control, Chart 05 
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OPERAND* SYS 
XXX. SET • 
PROG SH ON.^ 



•■•••C4* ••••••••• 

•RESTORE POINTl • 

• TO POINT • 

• TO OPERAND • 

• SYSXXX • 



.•IS OPERAND •. 


YES 


. SYSIN OR . 


• •... 


•. SYSOUT •• 




• • •• 




• ■ ■• 


X 


• NO 


• •••• 




•CY • 


• 


• Bl« 



•••••F4«^^* •••••• 

I SET NO IN • 

• CLASS* SNICL, • 

• TO A 1. • 
•SINGLE OPERAND • 



SET POINTl 
FOR SYSTEM 
CLASS -0- 



•••••G4«*»*«***^^ 



REG POINTl 
FROM LOC 
CLAORD 



• ••• 

• • 

• 1 • 

• • 

• ••• 



• 2 • 
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Chart CK. RESET Statement Processor- $JOBCTLD (Part 2 of 
2) ; Refer to Job Control, Chart 05 



RESETll 

••»»»B1« 
*G€TLAN 



COMPUTE LUB 

ADDR AND 

NO. IN CLASS 





•*«««A 3* **««**»«* 




• MOVE LUB AODR • 




» TO LUBAD FROM ♦ 


RESETll ♦ 


• WRKFLD2 FOR « 


♦ 


* RSTSTO SUB- ♦ 




• ROUTINE * 



COMPUTE LUB 
ADDR OF 
SYSLOG 



COMPUTE LUB 
AODR OF 
SYSLNK 



•♦♦•»C1»»«««»»»» 
•SAVE LUn COUNT 
» IN LOC COUNT. 

• SAVE LOGICAL 

• UNIT CLASS IN 

• WRKFLOl 



-BANK, BIT 7- 



* MOVE LUB 

• ADDR TO SLADD 
» FROM LUBADD 



RESET2 

•♦•••Gl»»»»»»*»»* 

• SAVE NO. IN ♦ 

• CLASS AND LUB ♦ 
•ADDR IN WRKFLD2* 

• FROM SLADD • 

• AND SNICL ♦ 



♦ MOVE LUB TO » 
♦JIBCHN. UPDATE • 
♦SLADD AND SNICL* 



RESET5 X 
•••**C?*** 
•CHKASG 



CURRENT 

LUE EQUAL 

. SYSLST . 



.♦STORED ♦. 
STANDARD 
ASSIGN EQ 

. SYSLST . 



RESET JOB 

CONTROL LINE 

COUNT TO 1 



.♦ IS 

SYSLOG 
♦.ASSIGNED 



IS 

SYSLNK 

.ASSIGNED 



CURRENT 

LUB EQUAL 

. SYSLOG . 



I/O 

PENDING 

.ON SYSLOG. 



RESET4 

•••♦»F3+» 
♦RSTSTD 



RESET LUB TO 

STANDARD 

ASSIGNMENT 



CURRENT ♦. NO 
LUB EQUAL .♦... 

. SYSLNK .♦ 



E4 ♦. 

.♦STORED ♦. 
STANDARD 
ASSIGN EQ 

. SYSLNK . 



♦SET LINK OPTION 

♦ BIT OFF IN ♦ 

♦ JBCSWl BIT ♦ 



RESET3 


X 




••*«*E5^^^****» 










♦ LOAD 


WRKRGl 




♦WITH REMAINING 




♦ LUB 


COUNT 











»•»»♦ 
♦CU ♦ 
♦ D2* 



RETURN BY ♦. YES 

LINKR3+4 

♦ J2 .♦ 



*»«»*F5^+^ ♦♦♦♦♦♦♦ 

•RESTORE LOGICAL^ 

♦ UNIT CLASS IN ♦ 

♦ POINTl AND ♦ 

♦ INCR BY 1 ♦ 



REMAINING 
LUB COUNT 
. EQ 



♦ J2 

THE RSTSTD SUBROUTINE 
RETURNS CONTROL TO 
LINKR3+4 IF THE 
SWITCH RESETSW 
IS ON. CHART CU. 



RESETS 

«**««H3^ ♦♦♦♦♦♦♦♦ 

♦ RESTORE LUB 

♦ POINTER AND 
♦COUNT IN SLADD 
♦AND SNICL FROM 

♦ WRKFLD2 



♦ MOVE LUB TO ♦ 
♦JIBCHN. UPDATE ♦ 
♦SLADD AND SNICL^ 



♦ H4 
THE DVCDN ROUTINE 
USES THE RESET 
ROUTINE AS A 
SUBROUTINE TO RESET 
LUB ASSIGNMENTS TO 
STANDARD. THE SWITCH 
DDSW IS SET ON BY THE 
DVCDN ROUTINE TO 
FORCE CONTROL TO 
BE RETURNED. 



♦RESET OPEN FLAG^ 

♦ IN DFBS USING ♦ 

♦ THIS DEVICE ♦ 



CONTROL 


) 


( 














J5 


*. 






. ♦ 


♦ . 




NO . 


* 


♦ « 




. . . ♦• 


DDS 


4 ON 


• 




♦. *l 


i4 .♦ 












X 


♦ ■ 


. • 








»YES 




• BB ♦ 








♦ Bl^ 








• ♦ 








* 








CONTROL 




( 




i 


•••K5» 




• 


RETURN 


TO THE 


♦ 




DVCDN ! 


lOUTINE 




• 






♦ 
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Chart CL. Subroutine— $JOBCTLD (CLOSES) ; Refer to Job 
Control, Charts 0^, 05 



CLOSES 



CLOSE 11 X 

•••••A5* *•••••**• 

• LOAD DIB AOOR * 
« OF SELECTED • 
•UNIT IN P0INT2 # 

• FROM POINTl » 



INIT WORK 

AREAS AND 

REGISTERS 

• B2 



• E2 
l.WORKAREAS, WRKFL02 

AND URKFLD3»ARE 

SET TO ZERO. 
2.POINT2 IS LOADED 

WITH THE DIB TABLE 

ADDRESS. 
3. POINTl IS LOADED 

WITH THE DIB TABLE 

ADDRESS OF SYSPCH. 



CI ♦. 

♦ IS 
UNIT 
SYSPCH 



C3 ». 

.* IS • 

SYSRDR 

ASSIGNED 



*«««D1********** 

LOAD POINTl « 

WITH THE DIB ♦ 

TABLE ADDRESS ♦ 

OF SYSLST ♦ 



X 
•♦♦•♦Fl**»»»*»»* 

* LOAD WRKRG3 
♦WITH LUB TABLE 

* DISPLACEMENT 

* OF SYIPT 



• SYSRDR 

AND SYSIPT 
«. SAME 
•DEVICE.* 



E3 *. 

• IS 
UNIT 
SYSIN 



•••*F 3* *•**»•• 
» RETURN TO 
» CALLING SEQ 



*»m*C5» ********* 

SET CURRENT * 

ADDR EQUAL TO * 

END ADDR, IN • 

DIB OF • 

SELECTED UNIT • 




• ♦♦♦ 

♦ 2 * 



CLOSEIO 

*»«««F4 «»••«••• 

* LOAD POINTl 

* WITH ADDRESS 

* SYSIN DIB 



NOEXC X 
••••«D5**«** 

• ZERO THE KDD 

• FIELD OF 

• CURRENT ADDR 

• IN DIB OF 

• SELECTED UNIT 



•««»E5*** •*••*** 

STORE CURRENT • 

ADDRESS, • 

BBCCHHRKDD, ♦ 

IN WRKFLD2 * 



X 

it*»**fS******** 

* BUILD SEARCH 

* ADDRESS IN 

* WRKFLD3 



♦••tt^Gl*******^ 
♦CHKASG B 

♦ CHECK SYSIPT 

• ASSIGNMENT 



.• IS » 

SYSIPT 
ASSIGNED 



SAVE SYSIPT 

PUB POINTERS 

IN WRKRG4 

FROM WRKRGl 



I.REG 1 IS LOADED WITH 

THE SYMBOLIC UNIT ADDRESSt 

CLASS AND ORDER, 

OF THE SELECTED 

UNIT. 
2. REG IS LOADED 

WITH ADDRESS OF 

THE WRITE FILE 

MARK CCW. 



»«**«G5* ««*••*••• 
•INIT REG 1 AND • 

• REG FOR • 

• WRITING FILE » 
•MARK ON SELECTD» 
•UNIT •HS* 



••»**H5»«*^^^^^»^ 

EXCP CT 

*WRTTi*FILE"MARK 

• ON SELECTED ♦ 

UNIT 



*****K1 •***•***• 

• LOAD WRKRG3 
•WITH LUB TABLE 
» DISPLACEMENT 

• OF SYSRDR 



• •*• 
» 1 



CL0SE12 

• ZERO CURRENT 

• ADDR IN DIB 
» FOR SELECTED 

• UNIT 



*«*^K5 ••*•••*•* 

• RETURN TO • 

• CALLING SEQ • 
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Chart CM. Subroutines— $JOBCTLD (TXCUU, TXCUU3, HEXCON and 
CLOSED; Refer to Job Control, Charts 04, 05 



HEXCON 



**»A4* ******** 
CLOSEl 



»B3 
1. FIRST CHARACTERS MUST 

BE AN X. 
2. LAST CHARACTER MUST 
EE AN APOSTROPHE. 



.*CHARACTERS *. NO 




NO .* VALID «. 






*. IN LENGTH .* 




.X.. 


..*. FORMAT .♦ 












». *B3 .* 






* • • * 












«. •* 




X 


*. .* 






*YES 


*BL • 


♦YES 








* 


bA* 














•C3 












WHEN ENTERED FROM 




NVS6RR 




CHART BN BLOCK K2 THE 


X 








DEVICE IS ALWAYS A 


«***«C1*«******** 






*«*««C 2*** ******* 


PROGRAMMER TAPE UNIT 


*HEXCON CM* 






* TRANSLATE * 


AND THE CLOSE SWITCH 








* EBCDIC -CUU- * 


IS 


OFF. 


• CONVERT HEX » 






* TO HEX -CUU- * 






* CUU TO * 






*-A-F TO FA-FF- * 






* BINARY * 






X 




*D3 
l.A WRITE TAPE MARK 
COMMAND IS SET IN 


X 










THE CCW, WRKCCW. 


»»»»»DI********** 






D2 *. 




2.P0INT1 IS LOADED 


* LOAD WRKRG3 ♦ 






.* VALID *. 




KITH THE SYMBOLIC 


♦WITH PUB TABLE ♦ 






.•CHARACTERS *. NO 


UNIT ADDRESS, CLASS 
AND ORDER, OF THE 
DESIRED TAPE UNIT. 


* ADDRESS FOR * 






*. FO-FF .*. 




* LOOK UP. ♦ 






*. .* 




• * 






*. .* 




3.P0INT2 IS LOADED 








*• . * 


X 


WITH THE PUB 








*YES 


• BL • 

• E4* 

NVSERR 


imUl 35.?^' 








X 






«*«**EI*********« 






**«**E2*** *♦♦**** 






* SEARCH PUB * 






♦ PACK HEX-CUU- • 






* TABLE FOR • 






♦ TO BINARY-CUU ♦ 






•DESIRED DEVICE • 






♦ MAKE RESULT * 






* -SEARCH FOR ♦ 






* AVAILABLE * 






* CUU- * 






• IN WRKRG3 * 






X 

.*• 

Fl «. 






X 






.♦DEVICE *. 












.» FOUND IN *. NO 




* RETURN TO • 






*. PUB TABLE .*. 


., 


, 


* CALLING SEQ • 






*. . * 




• 


• * 







«««B4**^^**** 
INIT WRKRG3 
AS POINTER 
TO PUB FOR 
THIS UNIT. 



CA *. 

* IS 
DEVICE 
TYPE 
DISK 

*. •CS . 



»*«*C5*^^*^**** 
RETURN TO ♦ 
CALLING SEQ ♦ 



*N0 



*«»»0 A-* ******** 

INIT CCW 

AND REGISTERS 

TO WRITE ON 

DESIRED UNIT 

*D3 



*****E4******* 

EXCPROG 

**WRITi*TAPE" 

* MARK 



*»»*»F4****»***«* 
•CLEAR I/O AREA * 
*BUFFER TO BLANK. 

* MOVE TRAILER * 
•IMAGE TO BUFFER* 

* FROM CEOVl • 



• 1 ♦ 

» ♦ 

«*•« 



•*«F5******* 

MODIFY CCW 

TO REWIND 

AND UNLOAD 



SAVE DEVICE 

TYPE AND 

PUB ADDRESS 

•H2 



•G2^^^** 
TXCUU3 



•««G4***«*** 

MODIFY CCW 

TO WRITE 

TAPE 



••••G5*«******«* 

EXCPROG CT 

—»—»—•—*—»—♦— •R* 

REWIND 
* AND * 

UNLOAD 



•** J 1 *••*•*♦* 

RETURN TO 

CALLING SEQ 



l.THE PUB ADDRESS OF THIS DEVICE 
IS SAVED IN THE LOCATION NEWPUB. 

2. THE DEVICE TYPE IS SAVED IN THE 
LOCATION DEVTYPE FROM THE PUB. 



PUB DISPLACEMENT DIVIDED BY 8 EQUALS 
THE PUB POINTER. 
.THE PUB POINTER IS SAVED IN THE 
LOCATION NEWLUB. 













X 














H5 •. 


EXCPROG 


CT 




.♦ IS • 




-•— » 


NO .• THE CLOSE 


WRITE 




... * 


SWITCH ON 


• TRAILER 


• 




*. *C3 




• * 


X 


*. •• 
• . .• 



***J4******* 

MODIFY CCW 

TO WRITE 

TAPE MARK 



*****J5**«***^ 

* SET CLOSE • 

* SWITCH OFF. 

* -BANKl, BITO- 



excprog ct 
""wrTtI'tape"*" 

• MARK » 


X 
•••«K5*^* ****** 

♦ RETURN TO 

* CALLING SEQ 







«•*• 

* • 

• 1 * 

• ••* 
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Chart CN. Subroutines — $JOBCTLD (SCNLUB^ SCNJIB, and 
CHKOPN); Refer to Job Control, Charts 04, 05 



♦Al»««*» 
SCNLUB 



»A2»»«»» 
SCNJIB 



M^tttA 3* ****** 
CHKOPN 



SET SWITCH 

EOLSW ON, 

TO INDICATE 

END OF LUBS* 



»*»»C1********* 

LOAD THE NO. 

OF LUBS OF 

THIS CLASS TO 

BE CHECKED, IN 

WRKRG3 



*»*E1»****** 

SET SWITCH » 

EOLSW OFF, 

-NOT END OF 

LUBS- 



*«»»F1******** 
LOAD WRKRG4 
WITH ADDR OF 
NEXT LUB TO 
BE CHECKED 
FROM SLADD 



MOVE THE LUB 

TO WORK AREA, 

JIBCHN 

-2 BYTES- 



*INCR WRKRG4 TO 

* POINT TO NEXT 
♦LUB. SAVE THIS 

* ADDR IN SLADD 



♦DECR WRKRG3 BY 

* 1 TO INDICATE 
•NUMBER OF LUBS 

* REMAINING AND 

* SAVE IN SNICL 



♦»»K1»»******* 

RETURN TO 

CALLING SEQ 



THERE A *. 

JIB 
POINTER .* 



»»*»*C2*»»****** 

• COMPUTE ADDR 

• OF JIE. - JIB 
» POINTER X 4 
*PLUS JIB TABLE 

• ADDR- 



♦ MOVE STORED 

♦ LUB TC JIBCHN 
♦FROM JIB BYTES 

♦ AND 1 



INIT DFB CTR 

TO 6 IN REG 

P0INT2 



CHK0PN2 


• *. 

B4 *. 




.* 


NO 


**. 


LAST 

DFB 

CHECKED 



CHKOPNl X 

•*«**C3******** 

♦ LOAD POINTl 

♦ FROM P0INT2 
« AND MULTIPLY 

♦ POINTl BY 4 

♦ ♦E4 



• LOAD THE ADDR 

♦ OF DFB TO BE 

* CHECKED IN 
♦POINTl ^£4 



♦♦♦•E2*******« 

RETURNING TO 

CALLING SEO 



* LOTVD LUB * 
•POINTER FOR THE* 
*ASSOCIATED LUB ♦ 

♦ IN WRKRG3 * 

• ♦F4 * 



#»»«F3*»****»*** 

CHKASG BK* 

-•—♦-•—♦-»—•-*—» 

CHECK ASSIGN- * 

MENT FOR THIS • 

UNIT • 



SET SYSLOG 

ASSIGNMENT 

SWITCHES 



•«**D4******** 

RETURN TO 

CALLING SEQ 



*E4 
THE RESULT IS AN INDEXING VALUE 
IN REGISTER POINTl USED TO SELECT 
THE CORRECT DFB ADDRESS. 
THE DFB'S ARE CHECKED IN THE 
FOLLOWING sequence; LGO, LGI , 
LNK, LST, IPT, and RDR. 



LUB POINTER 


DFB 


. 08 


LGO . 


. OA 


LGI . 


. 10 


LNK . 


: '66 


-Lsr: 


. 02 


-ipf*: 


. GO 


RDR . 







.* THE DFB ♦ 

.FOR THIS DEV. 

*. COMPARE .* 

♦. CUU .* 



«*»««J3«*«««*««* 

* SET OPEN FLAG 

* OFF IN DFB 

* FLAG BYTE 



• K2 
IF THE LAST PUB OF A CLASS 
HAS BEEN PROCESSED, RETURN 
IS TO THE ADDRESS IN LINKRl. 
IF MORE LUB'S ARE TO BE 
PROCESSED, RETURN IS TO 
LINKRl+4. 
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Chaxt CP. Subroutines— $JOBCTI*D (DVCDN3, UNPA, ONPAl, and 
UNAENT); Refer to Job Control, Charts 04, 05 



• DVCDN3 * 



• LOAD WRKRGl • 

• HJTH COUNT pF^,» 
«2 TO SIARCH SYSK 

• AND Ig LUBO • 



••^ROGRAHMING*. NO 
• ENVIRONMENT ••... 



««««A3*«*»«**«* 

• UNPAl • 

• • 
••••••••••••••• 



• LI 

• Si 

• OF 



TH THE AO&R 

LUB TO BE 

iSSIGNED. 

OM LUBAO 



._ SEARCH SYS, 

BG. FG2, AND 

^Gl LUBS 



••■••«••«••«««• 



»«»«B3«««««*««*« 

LOAD HRKRCS • 



••••C3*««*«*«_ 



SET • 

'In" .' 



•ex • 



STORE COUNT • 

IN LOCATION • 

COUNT FROM • 

WRKRGl • 



••••E4««***«*«« 
* UNANENT • 



r. 



RETURN TO 



F ENTERED AT UNPAl THE LUB IS 

BE UNASSIGNED AND SSTOLUB 

ONTAINS HEX FFFF. 

F ENTERED AT UNPA THE LUB IS 
.0 BE ASSIGNED AND SSTDLUB 
CONTAINS THE STORED STANDARD 
ASSIGNMENT-IF NONE X»FFFF«. 



UNANENT 

••«««F3«**«««o*«* 

• ZERO URKRG4, • 

• LOAD THE ADOR • 

• OF LUBCOM IN • 

• WRKRG3 "HI • 



•••••G3*4 
•CHKAS63^ 


******bkS 



•CV • 
• B5* 



COMPUTE PUB 

POINTER IN 

URKRG4 



•HI 



m. 



LUB THAT IS TO BE USED BY THE 
SUBROUTINE CHKASG3. 



SFPPE3 X 

•••••J3*^«^^«^«* 

•GETLAN CR- 

•-•-•-•-•-•-•-r 

• NO. IN CLASS 



X 

••••• 
•CV • 
• 02^ 



c 



330 DOS System Control 



Chart CO. Subroutines — $JOBCTLD (SKIPLN, OUTPUT, OUTPUTS, 
and OUTPUTl); Refer to Job Control, Charts 04, 05 



'•.EAR BUFFEr 
TO FORCE 



• RETURN • 
.X« TO • 

• CALLING SEQ • 



•••••84 ••••••»•• 

•OUTPUT CO 

•-•-•-•-r - - - 



PRINT 
ON 
OR 



SYSLOG 



•••••C2*«*«* 

• SET BITS 
ANC 2 OFF 



•SKIPLN CQ« 

•—•—••>•-•-•-•-•>• 

• PRINT A BLANKS 
•LINE TO EFFECT • 

• A SPACE • 



...•. CPERATCR 


• 


•.STATEHCNT,* 


« ♦. .• 




X •. .* 


X 


••••• • 


• •••• 


• BE • 


•BE • 


• A3^ 


• ei» 



0UTPUT2 X 

•••••04««*»*»«««« 
•CLEAR TEMPORARY* 

• FIELDS, TMOOE • 

• AND TCMNT. IN • 

• TRANSIENT • 
•AREA TO BLANKS • 



CLEAR THF I/O 

BUFFER TO 

BLANKS 



• CALLING SCO 



Appendix H. Detailed Flowcharts 331 



Chart CR, Subroutines — $JOBCTLD (GETIANr INITL, CfiKRNG, 

and NUMCON) ; Refer to Job Control, Charts 0^, 05 



• GETLAN • 



COMPUTE LUB 

ADDRESS OF 

DESIRED UNIT 

IN HRKRG2 

• Jl 



••••A3******** 
r CHKRNG 



****AA*** ****** 
• NUMCON * 



••••CI********* 

MOVE NUMBER 

IN CLASS FROM 

NICL TO 

WRKRG3 



•••••B2********* 

* ZERO SH BANKl 

* LCAD HRKRG2 

* AS POINTER TC 
*ROrT PHASF i/n 

* AREA 



••••C?*«*«**** 

INIT CCW, 

WRKCCW, WITH 

THE I/O AREA 

ADDRESS OF 

BUFFER 



****B3* ******** 



*»^^^B4** ******.** 

* SET MAXIMUM * 
•CHARACTER TO F9* 

* IN RNGTOP * 

* OF THE CHKRNG * 

* SUBROUTINE * 



.* IS *. 

.* UNIT IN *. NO 
.SYSTEM CLASS 



••••EI******** 
DECREMENT 
NUMBER IN 

CLASS. URKRG3» 



GETLAN2 X 

•••••Fl********* 

SAVE NUMBER 

IN CLASS IN 

NOC AND SNICL 

FROM WRKRG3 



****G1******* 

SAVE LUB 

ADDRESS IN 

SLADD AND 

FLOC FROM 

WRKRG2 



...X. 

X 

• *• 

C3 *. 

* IS * 

CURRENT 

CHAR LT 





D3 *. 
.* IS *. 

* CURRENT * 

CHAR GT MAX 

*. CHAR .* 

•• *J4 .* 



•••••C4**** ****** 

*CHKRNG CR* 
•<••-•-•-•-•-•<-•«•■ 

*CHECK PARAMETER* 
*FOR CHAR RANGE * 
* OF F0-F9 * 



•PACK PARAMETER * 
•IN WRKFLDl CON-* 
♦VERT TO BINARY * 
*IN WRKRG3. STORE* 
IN WRKRd4+4 



*N0 



•••••••I 



• INCR WRKRG3 

* TC POINT TO 
•NFXT CHARACTER 



F3 *. 
.* LAST *. 

NO .* CHARACTER *. 
,..*. CHECKED 



•••••••• 



••••••• 

RETURN TO * 

CALLING * 

SEQUENCE * 



HRKRG3 IS SET TO THE PARAMETER 
START ADDRESS FROM PQINTl. 
MRKRG4 IS SET TO THE NUMBER OF 
CHARACTERS IN THE PARAMETER BY 
LOADING A VALUE 1 GREATER THAN 
THE CONTENTS OF P0INT3. 



• Jl 
1. 
2. 



UNIT CLASS IS IN POIMl. = SYSTC^, 1= PROGRAMMER . 
FICL ADDRESS ♦ UNIT CLASS EGUALS LUB POINTER TO 
1ST UNIT OF A CLASS, SYSTEM CR PRCGRAMMER. 
LUB POINTER X 2 EQUALS LUB TABLE DISPLACEMENT. 
LUB TABLE ADDRESS PLLS DISPLACEMENT EQUALS 
LUB ADDRESS OF THE FIRST UNIT TF THF DESIRED 
CLASS. 



RNGTOP IS A COMPARE IMMEDIATE 
INSTRUCTION. THE CALLING 
SEQUENCE MOVES THE MAXIMUM 



*K4 
THE CHARACTER COUNT IN URKRG4 IS 
DECREMENTED BY 1 AND CHECKED FOR 
ZERO. THE ROUTINE LOOPS UNTIL 
■ ECO"-- 



MRKRG4 BECOMES ZERO. 



( 
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Chart CS. Subroutine — $JOBCTLD (SYSXXX) ; Refer to Job 
Control, Charts 0^4, 05 



SYSXXX 



SAVE SCAN POINTER 
POINTl IN P01NT2. 
WRKRG2 EQ 0. 
WRKRG3 EQ TABLE 
ADDRESS LESS 5 BYTES. 
WRKG4 EQ END OF TABLE 
ADDRESS. 



RESTORE THE SCAN 
ROUTINE POINTER 
POINTl, FROM P0INT2. 
INCREMENT POINTl BY 
3 BYTES TO POINT TO 
XXX OF SYSXXX. 
SET P0INT3 TO A 2 
TO INDICATE A PARA- 
METER LENGTH OF 3. 



SYSXXX4 X 

**»»*f^it ********** 

* SET REGISTERS ♦ 
•FOR THE NUMERIC* 
•CONVERSION SUB ♦ 

* ROUTINE * 

* •A3 • 



• OPERAND 
START WITH 

• . SYS 



••••*C1^»^^«^^** 

• LOAD REGISTER 

• POINTS WITH 
•THE ADDRESS OF 

• THE 1A4ND 

• ERROR MSG RTN 



* EA» 
NVSERR 



WRKRG2, ORDER WITHIN A 
CLASS, TIMES 2 PLUS THE 
VALUE IN FOCL, ADDRESS OF 
THE FIRST UNIT IN THE 



«««»CA •*•*•••••* 

SET POINTl TO ♦ 

A 1 TO INDICATE* 

PROGRAMMER ♦ 

CLASS * 



SYSXXX5 X 

•***«A5»^**«**** 

• SAVE SYMBOLIC 

• UNIT ADDRESS 
•IN CLAORD FROM 

• POINTl AND 

• HRKRG2 



••**«B5**^ »*••••• 

• COMPUTE LUB » 

• ADDRESS OF • 
•SPECIFIED UNIT • 
•IN WRKRG2, AND • 
•LUBAD •CS^ 



**«««C5^*^ *••***• 
•INIT REGISTERS • 

• WRKRG3 AND • 

• WRKRG4 FOR • 

• THE CHKASG3 • 
•SUBROUTINE *J3* 



SYSXXXl X 

*»***E1^^^^^^^^* 

• INIT REGS 

• FOR SYS TABLE 

• LOOK UP 



• A2 



(«**»«•« 



SYSXXX2 X 

*««««F1^^^«^^^^ 

♦ INCREMENT 
•TABLE POINTER, 

• WRKRG3, BY 5 

• TO POINT TO 

* NEXT ENTRY 



••»*G1*^^^*^^^ 

SAVE 

DISPLACEMENT 

FROM WRKRG2 

IN WRKRFLD2 



.CHAR .• 
'•YES 



.• IS • 


. NO 


•. UNIT 


• *. . « . 


*. SYSOUT .» 




• . .* 




• . .• 






► YES 




> 


( 




♦»»»»F3^ ••*•*•* 


^* . 


• SET 


• . 


* DISPLACEMENT 




♦ IN WRKFLD2 


« . 


* TO 0002 FOR 




SYSPCH 


» 




X I 



•••G2^*»^^^^ 

INIT FOR 

PROCESSING 

SYSIN 

• G5 



SYSXXXOl X 

**it««G3^^ •••••••• 

• SET LOGICAL ♦ 
•UNIT TYPE FROM ♦ 
•TABLE, ARGUMENT* 
» PLUS 3 BYTES, « 

• IN NEWTYP * 



• COMPUTE LUB 
•ADDRESS AND N3. 

* IN CLASS •H3 



♦»»«*F4*^^^^^^*^» 

♦ LOAD WRKRG2 • 
•WITH THE BINARY^ 
•VALUE OF XXX TO^ 
» BE USED AS A • 

• DISPLACEMENT • 



*«**G4^** *•*•*•* 

HEX 0400 IS I 
MOVED TO THE • 
FIELD NEWTYP • 



COMPUTE PUB 

POINTER IN 

WRKRG4 



««*««E5^^^ ••••••• 

• SAVE PUB • 

• POINTER AND • 

• RESTORE • 
•REGISTER P0INT4^ 

• •J4 • 



♦•♦»F5^*^^^^» 
RETURN TO 
CALLING 
SEQ 



WRKFLD2 EQ 
NEWTYP EQ HEX 
0003. 



INIT POINTl 

TO ZERO FOR 

SYSTEM CLASS 



THE LUB ADDRESS OF THE FIRST UNIT OF A CLASS 
IS RETURNED IN THE FIELDS FLOC AND SLADD. 
THE NUMBER IN CLASS FOR THE SPECIFIED UNIT 
IS RETURNED IN THE FIELDS NOC AND SNICL. 



«*««K1****«»** 

INCREMENT 
DISPLACEMENT, 
WRKRG2, BY 1 



**»**J2********** 
•GETLAN CR^ 
»—♦—»—»—•—»—«—«-♦ 
• COMPUTE LUB • 
•ADDRESS AND NO.^ 
•IN CLASS *H3^ 
•»♦»«»«»»»»«»»♦«» 



»***»K2********* 

* RESTORE CLASS 

• -LOGICAL UNIT 
•TYPE-IN WRKRG2 

♦ FROM WRKFLD2 



«J3 

WRKRG3 CONTAINS LUB 
ADDRESS OF UNIT. 
WRKRG4 IS ZEROED. 



•H5 
THE BINARY VALUE OF XXX 
MUST BE EQUAL TO OR LESS 
THAN THE NUMBER OF 
PROGRAMMER UNITS AS 
SPECIFIED IN NOC, THE 
NICL VALUE. 



THE PUB POINTER IS 
SAVED IN OLD PUB FROM 
WRKRG^t. 

REGISTER POINTif IS 
RESTORED AS A POINTER 
TO THE INVALID STATE- 
MENT ERROR ROUTINE. 
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Chart CT. Subroutines — $JOBCTLD (EXCP, EXCPROG, EXCPROGl, 
and SVCBTRANS) ; Refer to Job Control, Charts 04, 
05 



• SAVF RETURN 

• ADDRESS IN 

• LINKSA 



• EXCPROG • 



•••«B3«**««** 

SET • 
TRANSIENT 
ACTIVE SW 



• LPDATE SYSIN 

• OIF 

• -IJSVSIN- 



•C2 
1. STORE CCM ADDRESS 
IN CTF+8 FROK 
REGISTER 0. 
2. STORE SYKbOLIC 

UNIT ACO^LSS, CLASS 
AND ORDER* IN 
0TF*6 FRPP 
REGISTER I. 



: '*?«gM°l[ii'?J 


• • 




• ST MODE 








• 





••••A5«**«««»«« 
• EXCPR061 • 






•C3» 



LOAD REGl 

UITH AOOR 

OF THE 

TRANSIENT NAME 

ISBLSTIO 



•MTNCNT 

•RELEASE SYSTEM 

• AND SET SYST 

• MASK TO HEXFF 



SVC 

EXECUTE 

SPECIFIED 

I/O 



BK« 



IFV SET • 
OE CCM • 
STANDARD • 



BK« 

•RELEASE SYStIm"* 
• AND SET SYST • 
•MASK TO HEX FF • 



WRITE 
TAPEMARK 

• COMMAND 



••••E3«**^««««* 

• SVC-2 FETCH • 

• ISBLSTIO • 
•CHART EV "FB • 



»«««E4 •••••••••• 

SET CHAIN • 

BITS OFF • 

IN CCW • 



• •E5« 

SET CHAIN 
BITS ON 



•SVC 7 WAIT FOR 

• SPECIFIED I/O 

• TO COMPLETE 



•F3 
THE SUPERVISOR 
TRANSFERS CONTROL 
TO StBLSTIC. 
SSBLSTIO PERFORMS 
INITIALIZATION 
AND RETURNS 
CONTROL TO THE 
ADDRESS IN LINKR2. 
LINKR2 HAS BEEN 
LOADED BY THE 
CALLING ROUTINE. 



EXCPROG^ X 

•••••F4»^^ ••••••• 

INITIALIZE • 

REGISTER • 

FOR EXCP • 

• F5 • 



•F5 

l.SYMBOLIC UNIT ADDRESS* 
CLASS^ANO ORDER IS 
STOREb IN REGISTER ONE 
fHO * — • 



•••••GI* ••••••••• 

•MTNCNT BK« 

•—•-•-•-•-•—•-•-• 

• SEIZE SYSTEM • 

• AND SET SYST • 
•MASK TO HEX FF • 



••• VGA* ••••••••• 

EXCP CT* 

EXECUTE • 

SPECIFIED • 

I/O • 



•••••HI^**^^*^»< 
•RESTORE RETURN 

• ADDRESS IN 

• LINKRl FROM 

• LINKSA. 



••••H4 ••••••••• 

• RETURN TO • 

• CALLING • 

• SEQUENCE • 



( 
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Chart CU. Subroutines — $JOBCTLD (RSTSTD, and GETJIB) ; 
Refer to Job Control, Charts 04, 05 



RSTSTD 



•••*»B1» ••••••* 

• INIT SSTDLUB 

• TO HEX FFFF 

• -STORED 

• STANDARD 

• LUB ID- 



••»»*C1*«*»»***«* 

• MOVE JIB • 

• POINTER FROM * 

• CURRENT LUB • 

• TO WORK AREA* * 

• JIBCHN+1 ♦ 



•MOVE STORED LUB* 
•IF ANY* TO LUB • 
• WORK AREA • 



••••A4»«*** 
• GETJIB 



•*«B4*«*«*«» 

LOAD THE 

ADDRESS OF 

FAVP IN 

WRKRG3 



•CK-G2 
CK-FA 



MOVE JIB 

POINTER FROM 

FAVP TO 

JIBCHN+1 



GETJIBl X 

•»«««B5******«« 

• MOVE JIB 

» POINTER FROM 

• CURRENT LUB 

• TO JIBCHN+1 



««*C5*** *•*•*«• 

INIT P0INT3 ♦ 

AS POINTER • 

TO PREVIOUS • 

LUB • 



RSTSTD4 

D2» 

•UNPA 



• COMPUTE ADDR 

• OF FREE JIB 

• CHAIN START 



GETJIB2 X 

*• ••♦OS •**•**•• 
•SCNJIB C 
♦-♦—♦-«-•-♦-»-» 

♦ COMPUTE ADDR 

♦ OF NEXT JIB 

♦ IN CHAIN 



RSTSTDl .•. 

Fl •. 
.* DOES •. 
.•JIB CONTAIN*. NO 
•STORED STANDARD*... 
♦. LUB .» 



RSTSTD3 X 

•••••Gl***«**** 

• MOVE STORED 

• STANDARD LUB 

• TO SSTDLUB 

• FROM JIB 



••••«H1»******** 
•SET STORED STD 

• LUB FLAG OFF 

• IN JIB+2 

• -BIT 0- 



Jl •. 

.* ENTRY *. 
.* FROM THE ♦. NO 
.RESET ROUTINE.*... 
*. ♦H2 .♦ 



END 

OF JIB 

CHAIN 



*«»««F^******** 
*SAVE JIB ADDRt 

• OF FIRST JIB, 

• IN WRKRG4 

• FROM POINTS 



••••G2******** 

♦ RETURN TO 

♦ CALLING SEQ 



*H2 
THE SWITCH, RESETSWt IS ON 
IF ENTRY WAS FROM THE RESET 
ROUTINE. THE RESET ROUTINE 
IS USED FOR RESET STATEMENT 
PROCESSING AND AS A SUB- 
ROUTINE FOR DVCDN STATEMENT 
PROCESSING. 



* 1 * 

• « 
• *•• 



END 

OF JIB 

CHAIN 



•••»«F5********* 

* MOVE FAVP TO 

* CHAIN BYTE OF 

* LAST JIB 
» IN CHAIN 
» 



«*«««G5 •*•***•** 
« MOVE JIB 

• POINTER OF 

• FIRST JIB IN 

• CHAIN TO FAVP 



••••»J5*«*«*****» 

♦ LOAD THE ADDR • 

♦ OF 1ST JIB IN ♦ 
•CHAIN IN P0INT3* 

♦ FROM WRKRG4 • 



••••Kl^*^*«**** 

• RETURN TO • 

• RESET ROUTINE • 

• •K2 • 



RETURN IS TO THE RESET ROUTINE 
BY BRANCHING TO THE ADDRESS IN 
LINKR3+4. THE ADDRESS OF 
RSTSTD4 IS SET IN LINKR4 AS A 
RETURN TO THIS SUBROUTINE. 



•••••*• 
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Chart CV. Subroutine— $JOBCTLD (SFPPE; Part 1 of 3); Refer 
to Job Control, Charts 04, 05 



•A2»»*«» 
SFPPE 



*BQ-B5 
BQ-E3 
CP-J3 



••»«B2»»#*«»*« 
MOVE THE PUB 
POINTER TO 
LUBCOM FROM 
NEWLUB FOR 
COMPARISON 



SET SWITCHES 
RETSW - ON 
LIOSW - OFF 



SFPPE2 X 

•*»**02* ********* 

* SET WRKRG2 ♦ 
♦TO A 1 TO START* 

♦ SCAN AT ♦ 

♦ BEGINNING OF ♦ 

* LUB TABLE ♦ 



G4* 



SFPPE02 

»#*♦♦£ 2* ♦♦♦*♦♦♦♦• 

• STORE SCAN * 
♦CONTROL CHAR IN^ 

• CTYPE FROM • 

• WRKRG2 ♦ 



SFPPE5 .♦. 

A3 ♦. 
.♦ DOES ♦. 
NO .♦ THIS LUB ♦. 
...♦HAVE EQUAL PUB. 
*. POINTER .♦ 



B3 ♦. 

RETSW 



♦♦♦»C3^^^^^^^^^ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE *m* 



.♦. 


SFPPE7 X 


B4 ♦. 


*»««»B5^***^^**** 


.♦ IS *. 


♦ INCR CLASS BY ♦ 


THERE A ♦. 


♦ 1 TO INDICATE ♦ 


PUB ADDR IN .♦ 


♦ PROGRAMMER ♦ 


. OLD PUB .♦ 


♦ CLASS-POINTl ♦ 




♦EQ POINTl + 1- ♦ 







PUBMSK 

»»»*«C4^^^ ♦♦♦♦♦♦♦ 

♦ SET FREE PUB ♦ 

♦ FLAGS IN PUB ♦ 

♦ + 7, BITS 5-7 ♦ 

♦ OFF ♦ 



.X. 
X 
• •«« 

♦cx 



03 ♦. 
.♦ IS ♦. 

$$BLSTIO 
TRANSIENT 
. ACTIVE . 



*««««E3*^^*^^^^^^ 
♦CLEAR TEMPORARY^ 

♦ OUTPUT AREAS ♦ 

♦ TMODE AND ♦ 

♦ TCMNT TO ♦ 

♦ BLANKS ♦ 



♦SCNLUB*'*****CN* 

♦ MOVE LUB TO • 

♦ WORK AREA ♦ 

♦ JIBCHN ♦ 




« « 
SFPPE12 




x 

GZ'*'*. 
.♦ ♦. 
.♦ END *. NO 




G3 ♦. 

♦. ACTIVE .♦ 
*%YES 


. NO 


♦. THIS .♦ 
♦.CLASS. ♦ 

"'♦YES 






SFPPE4 .♦. 

H2 ♦. 

NO .♦** RETSW *'♦. 
...♦. OR LIOSW .♦ 

♦. ON .♦ 

X *♦. .♦* 

»♦« ♦YES 

♦ . 

2 ♦ 

♦ . 


« 
• 
« 

* 

» 
* 
♦( 

SFPP 


X I 

<m**H3********** 

CLEAR OUTPUT ♦ 

AREAS TMODE ♦ 

AND TCMNT ♦ 

TO BLANKS ♦ 

'♦ 

♦ • . 

:w ♦... 

J5» ,X r 


X 
««««J2^ ♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 
♦SEQUENCE ♦J^^ 


IS! J. 

J3 ♦. 

• ♦ ♦• 

!* LIOSW ON 

♦ . .♦ 


. NO 



♦J4 
THIS RETURN TO THE CALLING SEQUENCE IS MADE 
WHEN THE END OF THE LUBS IS DETECTED. LINKR4 
IS NOT INITIALIZED TO RETURN CONTROL. 



♦K4 

THIS RETURN TO THE CALLING SEQUENCE INITIALIZES 

LINKR4 TO RETURN CONTROL TO SFPPE12, CHART CW-B2 



♦♦♦♦K3^^^^^*^^^ 

• RETURN TO ♦ 

♦ CALLING ♦ 
♦SEQUENCE ♦K^^ 
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Chart CW. Subroutine — $JOBCTLD (SFPPE; Part 2 of 3); Refer 
to Job Control, Charts 04, 05 



• A3 
CV-E3 OR FROM 
THE CALLING SEQUENCE 
WHEN LINKR4 HAS BEEN 
LOADED WITH THE ADDRESS 
OF SFPPEi2 



SET THE STD 
ASSIGNMENT 
FOUND SWITCH 
STOFDSW, ON* 



TURN OFF STD 
FOUND SW. 
STDFDSW 



••«*«C1 ***«*••*»« 
•SAVE THE STORED* 
•STANDARD LUB IN* 

• SSTDLUB FROM * 

• BYTES AND I » 

• OF JIB • 



.* DOES ». 

.» THIS LUB *. 

•HAVE EQUAL PUB. 

*. POINTER .* 



• B5 
THIS RETURN TO THE 
CALLING SEQ 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPE8, 
CHART CW-D2 



FROM THE CALLING 
SEQUENCE WHEN LINKR4 
HAS BEEN LOADED WITH 
THE ADDRESS OF SFPPE8. 



♦-»-«-»-♦-•-»-• 




• • 


RETURN •. 


NO 


• GET ADDRESS 




•SWITCH, RETSW, 




* OF JIB 




» 


ON .• 


, 


» 


»♦ 




***YES 
X 


X 

♦ «»«# 

•cx ♦ 

• B3« 
» » 

* 


X 






« * 


SFPPEI3 








» 2 • 




E2 *. 






• « 










»»•» 




.♦ END * 


. YES 








*. OF JIBS 











SSPLSTIO 
TRANSIENT 
. ACTIVE . 



•CLEAR TEMPORARY* 

* OUTPUT AREASf ♦ 

* TMODE AND ♦ 

* TCMNT TO » 

* BLANKS ♦ 



SFPPE8A .«. 

H2 ♦. 

.* DOES *. 

.*JIB CONTAIN*. 

♦. STORED STD . 

*. LUB .♦ 



J2 *. 

.» DOES ♦. 
*JIB CONTAIN* 

AN ALT 
♦. ASSGN .• 



G3 «. 
.• IS ♦. 

$$BLSTIO 

TRANSIENT 

. ACTIVE . 



♦»*«H 3* •****•*» 

MOVE CHARS, 

ALT, TO THE 

COMMENTS WORK 

FIELD 

TCMNT 



.» ENTERED • 
.FROM LIST 10 
*. ROUTINE .* 



»N0 
X 
1 * 



F^ *. 
.* IS •. 

• THE STD ♦ 

ASSGN FOUND 
•. SW ON .* 



SFPPE201 

vvvvaGA- •*•••**•*• 

• LOAD LOGICAL ♦ 
•UNIT TYPE, SCAN* 

• CONTROL CHAR, • 

• IN WRKRG2 AND ♦ 

• DOUBLE IT, * 



•«*«*G 5*** *•**••* 
•MOVE THE STORED* 

• STD LUB FROM * 
*SSTDLUB TO THE * 

• WORK AREA ♦ 
*JIBCHN FOR CMP ♦ 



SSBLSTIO 
TRANSIENT 
. ACTIVE . 



»»*J 5* *••**•• 
MOVE CHARS, 
STD, TO THE 

COMMENTS 

WORK FIELD 

TCMNT 



* RETURN TO 
» CALLING 
•SEQUENCE •as 
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Chart CX, Subroutine— $JOBCTLD (SFPPE; Part 3 of 3) ; Refer 
to Job Control^ Charts 04, 05 



SFPPE13 X 

*«««»B3*« •*•*•«•• 

• MOVE THE • 
♦CURRENT LUB TO • 

• JIBCHN FROM • 
» LUBCOM FOR • 

• ALT SCAN • 



THE FREE JIB ADDRESS IS LOADED 



IN WRKRG4 FROM P0INT3. 
THE JIB TABLE ADDRESS . 
FROM WRKRG4 LEAVING THE 



IS SUBTRACTED 

._ _ . E FREE JIB 

DISPLACEMENT IN WRKRG4. 
THE DISPLACEMENT IN HRKRG4 IS DIVIDED 
BY A TO DEVELOP THE FREE JIB POINTER. 
THE RESULTANT POINTER IS STORED IN 
FAVP FROM WRKRG4. 



SFPPE15 X 

•••••C 3* ********* 
*SCNJIB CN* 
»—•—•—»—»—•—•—•—♦ 

* GET ADDRESS * 

* OF JIB • 



END 

OF JIB 

CHAIN 



•••••E3* ••*•*•*** 

* MOVE THE • 

* LUB TO LUBCOM ♦ 

* FROM JIBCHN * 



••««E4* ******* 

* RETURN TO 

* CALLING 

* SEQUENCE 



SFPPE16 X 

«*««*F3********* 

• LOAD THE 
•ADDRESS OF THE 

• FAVP IN 

• WRKRG3 



•••••G3********* 

* MOVE JIB 

* POINTER FROM 
*FAVP TO BYTE 3 
*0F CURRENT JIB» 

* JIBCHN 



•«*««H3* ********* 

* COMPUTE FREE * 

* JIB POINTER * 

* AND STORE IN * 

* FAVP. * 

* *H1 * 



J3 *. 

.* DOES *. 

.*JIB CONTAIN*. 

.A STORED ALT . 

*. LUB .♦ 



•ZERO THE FIRST 
X* THREE BYTES 
• OF THE JIB 



•*•••••»* 



•ZERO THE FIRST 

• THREE BYTES 

* OF THE JIB 
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Chart CY. Error Routines— $JOBCTLD (ILUS, INDVTP, 

TXCUUl+8, IVDS, SFNC, TIAERR, CNIOAG, FNIOAG, 
NOMRJB, ASSGN43, and ERRRTN) ; Refer to Job 
Control, Charts 04, 05 



*A2 
BN-E3 
BZ-01 
CF-E2 



ILUS X 

••«*»B1*«****«*» 

• POINT TO 

• ERROR 

• MESSAGE 

• -1A4N0- 



POINT TO 

ERROR 

MESSAGE 

-1A2ND- 



TXCUUl+8 X 

♦#«»»B3»»«»»» 

♦ POINT TO 

♦ ERROR 

♦ MESSAGE 

♦ -1A5ND- 



IVOS X 

»»«««B4**»**» 
» POINT TO 
» ERROR 

• MESSAGE 

♦ -1A7ND- 



»*B5«»»»** 

POINT TO 

ERROR 

MESSAGE 

-1A90D- 



• Cl 
BM-C3 
BY-D3 



TIAERR X 

• POINT TO 
» ERROR 

• MESSAGE 
» -1A6ND- 



•C2 
BY-G5 
BZ-C5 



CNIOAG X 

•*«*»02****** 

• POINT TO 

♦ ERROR 

♦ MESSAGE 

* -lAlND- 



♦ C3 
CA-E3 
CB-E5,J1 
CC-Kl 
CE-Jl 
CF-J5 



♦»D3»»»»»» 

POINT TO 

ERROR 

MESSAGE 

-lAOND- 



♦ C4 
CE-E2 
CU-E4 



NOMRJB X 

» POINT TO 

» ERROR 

• MESSAGE 

♦ -1A3N0- 



.ERRRTN 

, »«»»*D5»»»*»*»«*« 

♦SAVE POINTER TO* 

• MESSAGE TO BE » 

• DISPLAYED IN • 

• WRKFLDI FROM ♦ 

• POINTI * 



• El 
BN-G3 
BS-E3,F3 
BY-Hl 
CJ-E4 
CR-D3 
CS-C2 



♦ POINT TO 

♦ ERROR 

♦ MESSAGE 

♦ -1A80D- 

«»»»»»*«♦»««♦• 



X 

»BL ♦ 

» B3» 



*««»*F5»»**»*«»*» 
•LOAD WRKRG3 AS * 
•POINTER TO LOG-* 
•ICAL TRANSIENT ♦ 

* BUCKET IN THE * 

* ATTENTION PIB * 



•«»*G5** ******* 
MODIFY PSW IN 
SAVE AREA TO 
FORCE RETURN 
TO ERRRTN2 



•SVC II-SIMULATE* 

* RETURN FROM B * 

* TRANSIENT * 



ERROUT GOES 
TO ERRRTN IN 
ROOT PHASE 
VIA THE BRANCH 
VECTOR TABLE. 



ERRRTN2 X 

• « »*«J5*** ****** 
*MTNCNT ERROU 

*RELEAsi SYStIm" 
» SET SYST MASK 

• TO HEX FF 



..X 



ERRRTNl X 

***»*K5******** 

• RESTORE REG, 
» POINTI, WITH 

• POINTER TO 

• MESSAGE TO 

• BE DISPLAYED 



Appendix H. Detailed Flowcharts 339 



Chart DA, CANCEL^ and STOP Statement Processors — $JOBCTLG; 
Refer to Job Control, Charts 07, 08 



Bl ^ ♦• 
.• IS • 

JOB IN 
PROGRESS 



CLEAR 
OUTPUT 
BUFFER 



B2 ». 
.* WAS *. 

• JOB OUT ♦ 

OF SEQUENCE 
♦. •BA .♦ 



••»««C2********** 
♦RSTASG DV» 
#-•-»-»-«-*-♦-•-• 

♦ RESET ALL ♦ 

♦ I/O • 

♦ ASSIGNMENTS • 





*BC • 
















• E3» 
















« • 
















» 






































NDTF 


Gl 


ON 




X 

B3**'*. 




CHART 


DB. 






















.• IS ♦. 
















.» MULTI- 


*. NO 












PROGRAMMING .» 














•.SUPPORTED. 


* 














«. .• 
















♦ . .* 


















tYES 




• BL • 

• E4^ 
• « 

NVSERR 












:c 














•»»»»C3««****< 


«•• 












•MTNCNT 


RK» 
















•— » 














RELEASE 
















CONTROL 














* 




••« 













PUT JOB NAME • 

INTO CANCEL • 

MESSAGE * 



•BB • 
• Bl« 



LOAD ADDRESS 

OF NON- 
EXISTENT CCB 
IN Rl 



••••*E1^**^^^^^*^ 
♦MOVE MSG. 'JOB • 

♦ JOB NAME CAN- • 

♦ CELED OUP TO • 
•OPTR INTER.' T0« 

♦ OUTPUT AREA • 



»*«*»F1^^^^^^^^^* 
•LOGOUT BE^ 
*-»-»-♦-»-♦-»-#-♦ 

• OUTPUT • 

• MESSAGE ON • 

• SYSLOG ♦ 



«»«««G1^^^^*^^»** 
♦LSTOUT BE* 
♦—♦—♦—»—♦—♦—«—•—• 

• OUTPUT • 

• MESSAGE ON • 

• SYSLST • 



•E3**^^^*^^* 
SVC 7 • 
WAIT • 



•**»»F3* ••••••••• 

•MTNCNT BK^ 

* MAINTAIN*"*"* 

• CONTROL • 



X 

•BB • 
• Bl^ 

• • 

CONTROL 



•F4 
THE SUPERVISOR CALL WAS MADE 
USING A NON-EXISTENT CCB 
FORCING A TRANSFER TO TASK 
SELECTION FOR CHECKING FOR 
OTHER PROGRAM EXECUTION 
TAKING PLACE. THE SVC7 
ROUTINE IN THE SUPERVISOR 
INITIALIZES THE SVC 
OLD PSW TO RETURN TO 
THE ADDRESS OF THE 
SVC7-I0 BYTES. WHEN 
TASK SELECTION IS 
COMPLETED THE SVC OLD PSW 
IS LOADED TO RETURN CONTROL. 



•••««H1^«^*»*^ 

• SET CANCEL • 

• AND SYSRDR • 
•INPUT INDICATOR^ 

• SWITCHES IN • 

• JBCSWO •HZ* 



THE CANCEL CODE IS SET 
FOR OPERATOR 
INTERVENTION CANCEL 



• 1 • 

* • 



r 
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Chart DB. EOJ (/S) Statement Processor- $JOBCTLG (Part 1 of 
2) ; Refer to Job Control, Chart 07 
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SET UP FOR 

LABEL 
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AND JBCSW3 

TO STD 
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TO NONAME 
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'EOJ JOBNAME' 
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« 
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X 




«• .« 
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♦YES 
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» 








RSTCOM 












X 


** 
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* 
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* 
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♦ 




TABLE 



♦♦♦♦E5^ ♦♦♦♦♦♦ 

SET HDR ♦ 

LIST SWITCH, 

TEBHDR, 

TO NOP 



LOG 

•EOJ JOBNAME* 

ON SYSLST 



RESET 

LINE COUNT 

TO 1 



RESET LINKAGE 

CONTROL BYTE ♦ 

IN JBCSWl 

BITS 0, 2, ♦ 

3, 4, AND ?♦ 
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Chart DC. EOJ (/S) Statement Processor- $JOBCTLG (Part 2 of 
2) ; Refer to Job Control, Chart 07 



••••• 
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• ••« 



• ••• 

• • 

• ■ 

• ••• 



• 2 • 

• • 



• ••• 

• • 

• • 
•••• 



END 

OF PUB 

TABLE 



•DP • 



Dl •. 
• IS •. 

UNIT •. VFS 

A FG 

UN I T . • 



COMPUTE 

ADDRESS 

OF TEB 

ENTRY 



• ANY 

NON-ZFRO 
». ENTRIES 



TEBHDR .*. 

Gl «. 
.• NOP •. 

.• FOR • 

•.PRINTING TEb 
•. HEADER .• 



PUT FIRST 
BUFFER 



LOG 

•MAGNETIC 

TAPE ERRORS' 



GET NUMBER 

OF BYTES TO 

BE LISTED 



• GET ADDRESS • 

• OF FIRST • 
•PRINT POSITION • 



••••••••••••••••« 



•••• 

• • 
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• • 
• ••• 
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CLEAR 

OUTPUT BUFFER 
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PRE ROE WTE 

ERG NRC 
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OUTPUT 
BUFFER 
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•••••Jl«»««***«« 
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• ••• 

• • 

• I • 



•RFPRESENTATION 



••««J3«« ••••••• 

PUT CHANNEL 

AND UNIT 
NUMBER INTO 

OUTPUT 

BUFFER 



BYTE FROM TEB 

AND CONVERT 

TO PACKED 

DECIMAL 



• PUT COUNT IN 

• OUTPUT BUFFER 

• AND CLEAR 

• COUNT IN TEB 



••• •HA* •••••••• 

GET ADDRESS 

OF NEXT 

COUNT BYTE 

AND PRINT 

POSITION 



J4 •• 

• ANY •• 

MORE • 
COUNT 
BYTES .• 



•••••K4 ••••••••• 

•MSGOUT BE 

•-•-•-•-•-•-•-•-• 

• OUTPUT 

• LINE 
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Chart DD. EXEC Statement Processor- $JOBCTLG (Part 1 of 4) ; 
Refer to Job Control^ Chart 08 



EXEC X 

•••••B2 •*•***•*** 

• CLEAR PHASE ♦ 
» NAME STORAGE • 
•AREA TO BLANKS * 

• AND INSURE * 
•NON-ZERO REG 10» 



X 

LOAD ADDRESS 

OF DIB 

TABLE INTO 

HRKRGI 



GET NAME 
OF PHASE TO 
BE FEtCHED 
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ZERO SYSLNK 
ADDRESS ENTRY 
AND INDICATE 

SYSLNK DTF 
TABLE CLOSED 



IS 
PROGRAM 
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•••••Gl*^***^^* 

• RESET INPUT 

• DISK ADDR OF 

• DIRECTORY TO 

• ADDR OF L/E 

• PHASE DIR. 



•••*H1 *•••«•• 
SET SWITCHES^ 

GTNAME AND * 
COPYSW TO NOP 
-COMPILE AND • 
GO MODE- » 



X 

• • 

• 3 • 



DID 
BLANK END 
. SCAN 



WAS •. 

OPERAND 
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F2 ♦. 

.• PHASE *. 

.* NAME SIZE ♦ 

.TOO LARGE OR 

*, TOO .♦ 
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RESFCH 


.♦. 
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D5 •. 
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X 


*. .* 
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«•*•• 
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*♦•♦« .YES 
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• DY • 
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• ♦ . 
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• • 
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, 
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•«• 
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♦ LOAD ADDRESS » 




SET LOAD • 
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• AND SETUP • 


»»♦ 




• ENTRY STMNT. • 



• MULTI- • 

PROGRAMMING 
•. SUPPORTED. • 



♦DY • 
♦ C5» 



• NO 



»***«G £••••*•• 

• STORE THE 

• PHASE NAME 

• IN SAVE 

• FIELD 



•9**f5*«***»»* 

LOAD ADDRESS 

OF SYSLNK DFB 

INTO 

REGISTER 1 



CHANGE THE- 

FETCH SVC 

INSTRUCTION 

TO LOAD SVC 



H2 •. 

• EXEC ♦ 

LINKAGE 

EDITOR 

REQ 



MOVE 
SLINKEDT 
TO PHSNMF 
FOR FETCH 



..X. 
X 

• ♦» 

* 
♦ 1 



X 

SVC 7 
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..X. 
X 

♦ 
* 2 
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Chart DE. EXEC Statement Processor- $JOBCTLG (Part 2 of U); 
Refer to Job Control, Chart 08 



CLEAR 
OUTPUT 
BUFFER 



• A3 
THE NUMBER OF FULL BLOCKS 
TIMES 1728, PLUS THE NUMBER 
OF BYTES IN THE LAST BLOCKt 
PLUS THE LOAD ADDRESS EQUALS 
THE ADDRESS OF THE UPPERMOST 
BYTE OF THE PHASE. 



SPACE ONE 
LINE ON 
SYSLST 



♦CHECK PREVIOUS 

♦ LABEL 

♦ OPERATIONS 



STLNKA X 

**«««C 2* ******* 

* LOAD ADDRESS 

* OF DIB 

* TABLE INTO 

* WRKRGl 
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POINT 

TO 1ST 

CIDIR 

ENTRY 



*C4 
NO MEANS NOT 
COMPILE AND GO 
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MEANS COMPILE 
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X 
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PUT 

ENTRY 

IN OUTPUT 
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SYSLNK 
FILE 
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TRACK 
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STORE 
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CYLINDER 
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.♦ FETCH *. YES 


OF A $ 
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*. PHASE .* 












*. . • 




X 
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*DF 

« 
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CLRDOA DF» 




—•-«-•—«—•—»—•- 


-« 




CLEAR 






OUTPUT 






BUFFER 
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LOAD ADDRESS 

OF DIRECTORY 

INPUT DFB 

INTO WRKRG3 



03 *. 

.* PHASE *. 

*NAME SWITCH*. NO 

FOR COMPILE .*... 

*AND GO MODE* 

*. *C4 .* 

***YES 



«*»»»E3»****** 

* SET PHASE 

* NAME SWITCH, 

* GTNAME, TO Bl 
*FOR NOT COMPI 

* AND GO 



* SAVE NAME 

* FOR INITIAL 

* FETCH AND 

* SAVE LOAD 

* ADDRESS 




GTNXNT X 

*«*««E4******** 

* INCR INPUT 

* AREA POINTER, 

* POINTl, FOR 

* NEXT CIDIR 

* ENTRY 
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.* IS IT • 








« GREATER 




. NO 


*. 
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*. MAX 


« 





•**F5****»*»» 

STORE THE 
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R 


— »- 


READ A 




* 
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RECORD 

X 

• * . 

J2 *. 


• *« 






.* 


'nr 


• 


* 


CIDIR 


.* 



G3 *. 
.♦ END *. 

OF 

DIRECTORY 

*G4 



.* ENTRY *. 
* TO BE * 

INCLUDED IN 
*. PHASE DIR.* 



•G4 

AN ASTERISK (♦) 
MEANS LOGICAL 
END OF DIRECTORY. 




X 
♦ 3 



•»«G5* 
INCR OUTPUT 

AREA POINTER, 
P0INT2, FOR 
NEXT ENTRY 



H5 *. 

* END 
OF 
OUTPUT 
AREA 



WRITE BLOCK 
IN SYSRES 
PHASE DIR 



•K3 
IN COMPILE AND 
GO MODE THE 
ANSWER IS ALWAYS 
YES. 
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Chart DF. EXEC Statement Processor- $JOBCTLG (Part 3 of 4) ; 
Refer to Job Control, Chart 08 



IS THE START OF THE 
BACKGROUND AREA 
GREATER THAN THE END 
OF THE LABEL AREA 
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• 


GET 
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* 
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* 
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»«*C1«*»»»»«» 
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RELOAD OF 
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• FROM REG 9 • 



•«»«C4 *•**•*•* 
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ZERO REG 4 * 


• SET BASE « 
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X 
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♦**G3^»******** 






«*«**G5 •*••*♦•*•* 
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OF FILE .* 
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FROM PIB TO 






REGISTER 
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P0INT2 




«* 
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X 
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AND ADD TO • 


. • 




INSTRUCTION 
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*« 
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♦OR LOAD SVC AND^ 
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♦J4 
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A -1 SO THAT IF 
THE USER PROGRAM 
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REG Oi OTHERWISE, 
BECAUSE OF THE 
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WHEN A PHASE IS 
FETCHED REG 
WILL CONTAIN AN 
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J5 ». 

.• IS ♦. 

.* P0INT4 *. YESX 

•.GREATER THAN .*. 

«. WRKRGl .* 
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Chart DG. EXEC Stat-^nent Processor- $JOBCTLG (Part 4 of «*); 
Refer to Job Control, Chart 08 
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H3 •• 

.•P0INT3 • 

POSITIVE 
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Chart DH. PAUSE, LOG and NOLOG Statement Processors — 
$JOBCTLG; Refer to Job Control, Chart 08 
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OPLCG 

••••«C2******* 
TURN ON • 
LCG SWITCH 
IN JOB CTRL 
SWITCH 



••••C3******* 
TURN ON • 
LCG SWITCH 
IN JOB CTRL 
SWITCH 3 



.• WAS •. 

•• STMNT •. 
•.FROM OPERATOR. 



TURN OFF • 
LOG SWITCH 
IN JOB CTRL 

SWITCH 3 



TURN OFF • 
LOG SWITCH 
IN JOB CTRL 

SWITCH 



••**El******* 
SET PAUSE • 
FOR NEXT 
ENTRY 
SWITCH 
ON • 



••••C3**»««««**< 
LSTCUT BE 

OUTPUT ON 
SYSLST 



• Bl« 

CONTROL 



• •••• 

• BB • 

• Bl* 



• •••• 

•BB • 

• Bl» 



JCB CONTROL SWITCH 
NC. A IS CHECKED 
FCR CPERATOR 
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Chart DJ. OPTION Statement Processor- $JOBCTLG (Part 1 of 
3) ; Refer to Job Control, Chart 06 
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*»»»»B3»»***»«*» 

* LOAD ADDRESS 

* OF NEXT 

* OPERAND ENTRY 

* INTO POINTl 



C3 •. 

.» DOES ». 
♦ TABLE » 

ENTRY EQUAL 
*. OPERAND .» 



El ». 
.« DOES * 

.» OPERAND 
.START WITH 



ADJ REGS FOR 

-NO- OPTION. 

*J2 



«B4 



««»»D3*»***»*» 
LOAD ADDR OF 

CORRECT 
ROUTINE INTO 

LINKRG3 



»»»E3»**»*** 

EXIT TO 

CORRECT 

PROCESSOR 

SEE TABLE A 



»D4 



F3 ». 
.» DID *. 

NO .♦ A BLANK • 
...».END THE LAST 
«. SCAN .» 
*. »C4 .* 



OPERAND 

1 TO 8 

CHAR IN 

•LENGTH.* 



STORE OPERAND 

IN OPTION 

TABLE AS 

DELIMITER. 
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Chart DK. OPTION Statement Processor- $JOBCTLG (Part 2 of 
3); Refer to Job Control, Chart 06 
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Chart DL. OPTION Statement Processor- $JOBCTLG (Part 3 of 
3); Refer to Job Control, Chart 06 
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Chart DM. ALLOC Statement Processor- $JOBCTLG (Part 1 of 
3) ; Refer to Job Control, Chart 08 
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Appendix H« Detailed Flowcharts 351 



Chart DN. ALLOC Statement Processor- $JOBCTLG (Part 2 of 
3) ; Refer to Job Control, Chart 08 
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IS ENSURED. INITIALLY 
POINTl EQ ATAbLE - 16 
P0INT2 EQ PIB TABLE ADDRESS 
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REQUIRES ANOTHER ITERATION OF THIS ROUTINE 
TO COMPLETE OPERAND PROCESSING. 
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Chart DP. ALLOC Statement Processor (Part 3 of 3) and MAP 
Statement Processor — $JOBCTLG; Refer to Job 
Control, Chart 08 
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Chart DQ, JOB Statement Processor- $JOBCTLG (Part 1 of 2) ; 
Refer to Job Control, Chart 07 
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Chart DR. JOB Statement Processor- $JOBCTLG (Part 2 of 2) ; 
Refer to Job Control, Chart 07 
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Chart DS. Subroutines — $JOBCTLG (OPNLNK, RSTLAD, CHKLNK, 

lOROUT, and GTMXHN) ; Refer to Job Control^ Charts 
06-08 
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Chart DT. Subroutines — $JOBCTLG (RASCAN, LUBSCN, GETPUB, 
and JIBSCN) ; Refer to Job Control, Charts 06-08 
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Chart DU. Subroutines-- $JOBCTLG (SCNINT, and UASCAN) ; 
Refer to Job Control, Charts 06-08 
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Chart DV. Subroutines— $JOBCTLG (GETIME, TIMOUT, RSTASG, 
and RSPASG) ; Refer to Job Control, Charts 06-08 
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Chart DW. Subroutine — $JOBCTLG (LBLODT)? Refer to Job 
Control^ Charts 06-08 
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Chart DX. Subroutines — $JOBCTLG (CNVBCD, CHGSTT, STUCRL, 

STUSPC, and STUFIU) ; Refer to Job Control^ Charts 
06-08 
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Chart DY. Error Routines — $JOBCTLG (LAXERR, PNPERR, 

NDTERR, NVAERR, OTSERR, and LANERR) ; Refer to Job 
Control, Charts 06-08 
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Chart EA. RELSE, and HOLD Statement Processors — $JOBCTLJ; 
Refer to Job Control, Chart 11 
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Chart EB. UCS Statement Processor- $JOBCTLJ (Part 1 of 2) ; 
Refer to Job Control, Chart 11 
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Chart EC. UCS Statement Processor- $JOBCTLJ (Part 2 of 2) ; 
Refer to Job Control, Chart 11 



• EB • 

• J3. 

xl 

X 
UCSSCN .», 

B2 •. 

YES .♦'did blank* 

END LAST 

•. SCAN 

**«N0 



UCSDN X 

• •,4««C1 ••••«•• 
•MTNCNT BK 



«•«•••«• •«iK«*««*< 



«««N« ••01 ••••••••••• 

SVC 4 

• LOAD THE UCS • 

PHASE FROM 

♦ CI LIB • 

•C3 



.• DID •. 
BLANK OR •. NO 
COMMA END .«... 

. SCAN .» 



•••(••E I •••«•••••• 

•MTNCNT BK« 


E2 •. 
.•' LENGTH *♦. NO 


E3 ♦. 
.•'"length '*•. 


NO 




E^ 

.•**LENGTH 

EQUALS 

•.6 CHARS. 

♦. . 


• SEIZE THE 

• SYSTEM 




•••A CHARS. 


<" *..5 CHARS. .. 




< 


• •••••-••••••••• 


»• 


• YES 


> *. •• 

•YES 






'•YES 


X 

• ••••Fl«*«4t***^»^ 

• STORE THE UCS • 


X 

F2''*». 

.♦''operand''^. NO 
•. FOLD 


X 

F3***«. 

.•* OPERAND *•. 
♦. BLOCK 


NO 




X 

F4* *♦. 

••* OPERAND 
NULMSG 



*'excprg'******bh*' 
~ ixicuTi I/O*"* 

♦AS SPECIFIED ♦ 
IN WRKDFB 


•••••G2^«^«^«^ 
•MODIFY L0DCCW2 

• -opcode'"equal'^ 

• HEX F3- • 

• • 


•••••G3«««»^^^ 
•MCDIFY L0DCCW3 

• TO INHIBIT • 
« DATA CHECKS. • 

• -HEX 73- • 

• • 


•MODIFY L0DCCW2 

• SET CHAIN BIT^ 
•OFF TO PROHIBIT 

• WRITE. • 

• • 


* 


I 




.....xlx. .......... 


I 


X 

• BB** 

• Bl^ 

• • 

CONTROL 






X 

• • 

• 2 • 

• ♦ 
• ••• 





Appendix H, Detailed Flowcharts 365 



Chart ED. ACTION, and INCLUDE Statement Processors- 
$JOBCTLJ; Refer to Job Control, Chart 09 
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Chart EE. MTC Statement Processor — $JOBCTLJ; Refer to Job 
Control, Chart 09 
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Chart EF. LBLTYP, and VOL Statement Processors — $JOBCTLJ; 
Refer to Job Control, Chart 10 
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Chart EG. DLAB Statement Processor — $JOBCTLJ; Refer to Job 
Control, Chart 10 
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Chart EH. XTENT Statement Processor- $JOBCTLJ (Part 1 of 
2); Refer to Job Control, Chart 10 
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Chart EJ. XTENT Statement Processor- $JOBCTLJ (Part 2 of 
2); Refer to Job Control, Chart 10 
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•MTRSVD AS LAST* 


NO 


.-va^^iWSiis^ 


• SO EXTENT • ...• 


• • 




• . UNIT ,* 


• • 


X 

• ••• 


• . •• 

• • ■• 
•YES 


• •• 






• • 








• 7 • 








* • 








• ••• 




X 






••«*«C3 ••••••••• 




C4 •. 


•SET WRITE DISK * 




.• BIN •. 


• DATA LENGTHt 


NO 


.* NO EQ. 


• DTALGT. TO 




•PREVIOUS BIN 


lOA BYTES 




*. NO. 


• 


; 


•« .• 



•••• 

• • 

• 5 • 

• • 



XTUNIT X 

•••••B5 ••••••••* 

I NIT WRKRG3 
AS POINTER TO 
•START OF LABEL 
SAVE AREA 



•••••03^«**^*^ 


• SET BITS 


3 


• OFF AND 


4 


• ON IN 




• JBCSW4 




• •GS 





D4 *. 

.• VOL. ». 

.•SER. NO. EQ* 

♦.PREVIOUS VOL 

•. SER NO. .• 



• CONVERT B2 

• TO BINARY IN 

• WRKRGI 



•••••F2«^^^***** 

• STORE CURRENT 

• CELL NUMBER, 

• B2t IN XTB2 

• OF LABEL AREA 

FROH WRKRGI 



OUTPUT EXTENT 

TO VOL AREA 

OF SYSRES 



«N0 

xl 


NODCUX X 

• SET NO • 

• XTENT • 

• FLAG • 

• • 


• ••* , 

• • . 

• 7 -.X. 

• • 

PACKAG** X 



• THIS 
TRACK FULL 

• . •HS 



**«««05*«»****** 

• INCREMENT 

• EXTENT COUNT 

• BY 1 IN LABEL 

• SAVE AREA 

• PLUS 8 



. •*•• 






. • ♦ 






.X.^ 2 • 

. • ♦ 
X •«•• 
UT .•. 

.• FILE TYPE •. NO 
•.^SEQUENTIAL ^ 


2. 


BIT 3 OFF INDICATES 
LABEL BLOCK. 
BIT 4 ON INDICATES 
ONLY VOL STMNT CAN 



SET eiT . 

• OF MTRSVD ON • 
•TO FORCE LIOCS 

• LOOK AHEAD • 



•OUTPUT PREVIOUS* 

• XTENT TO VOL • 

• AREA - SYSRES • 



• UPDATE LBLPTR 

• WITH ADDRESS 
•OF NEXT EXTENT 

• SAVE AREA 



•••••G5********** 

• INCREASE BYTE • 
•COUNT IN WRITE • 
•DISK DATA LNG, • 

• DTALGT, BY 1 • 
•EXTENT. 20 BYTES* 



•CONVERT SYSXXX 

• TO SYMBOLIC 

• UNIT ADDRESS 



***««H2*^* ••••••• 

•INIT P0INT4 AS • 
•POINTER TO PREV* 

• -lOUS EXTENT • 
•AND ZERO SWITCH^ 

• BANK MTRSVD • 



•H3 
IS THE EXTENT 
COUNT IN CURRENT 
EXTENT EQUAL TO 
OR GREATER THAN 
175. 





RESTORE WRITE « 




DISK DATA • 




LENGTH TO 84 ♦ 




BYTES IN • 




DTALGT ♦ 



SET 

SWITCH 
JBCSWt 



• •«!«•*«•« 



•••••Jl»«« 

•STORE SYMBOLIC 
• UNIT ADDRESS 



••«•••»• »••••*••• 



• MOVE CURRENT • 

• EXTENT TO • 

♦ OUTPUT AREA • 

♦ OVERLAYING • 
♦PREVIOUS EXTENT* 



Kl •• 
•• LAST • 

• OPERAND 
STOP CHAR 

•. BLANK 



BIT 3 OFF INDICATES 
LABEL BLOCK. 
BIT 5 ON INDICATES 
ONLY AN EXTENT OR VOL. 
STATEMENT MAY FOLLOW. 



• ••• 

• • 

• 3 • 
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Chart EK. TPLAB, and DATE Statement Processors — $JOBCTLJ; 
Refer to Job Control, Charts 09, 10 



♦ E3« 
« « 


• • 

• 1 • 

• • 


* 


• ••» 


TPLAB X 

•««««B1*«««»«*«** 

♦ADDRESS OF THE • 

• INVALID STMNT • 

• ERROR ROUTINE • 


TSHORT X 

••*««B2********** 
« MOVE SHORT • 
•STRING TO LABEL* 

• SAVE AREA AND • 
•PAD WITH 7-0'S • 

• AND 13 BLANKS • 



DATE X 

•••••B4*^^*^^*^^' 
•SCANR2 BF 

—•—•-•—♦-•—•— 
POINT TO 
OPERAND 



.CONTINUATION*. 

CARD 

•.SPECIFIED.* 



••■•ii»Dl*< 
*CONCAT 

*buIld complete" 
* card image in 

*BUFFR1, BUFFR2 



EP* 



El *. 
.• HAS *. 

VOL STMNT 

BEEN 

.PROCESSED. 



• 2 •.X. 

« • . 
• ••• . 

TPLEND X 

•••••C2******* 

• SET JBCSW4,* 

• BIT 4 ON TO * 

• INDICATE ONLY 
» A VOL STMNT * 

• MAY FOLLOW • 



•••••D2^^*^^**** 

• SET JBCSW4, 

• BIT 3 OFF TO 

• INDICATE A 
•LABEL IS READY 

• TO WRITE 



SET DATA 

LENGTH TO 80 

CHARACTERS 

IN DTALGT 



.*• 

C4 •. 

.• DID • 

A BLANK 

STOP THE 

. SCAN 



••••E4^**^^*^^*^ 

MOVE DATE TO ♦ 

COMMUNICATIONS • 

REGION • 

-COMREG*0~ • 



• ••••Fl* «■•••** 
•SCANR2 

♦ POINT TO 

• OPERAND 

♦ -FILE ID- 



•«««F2**^**^«*** 

SET FILE TYPE • 

IN FILTYP TO • 

A T TC INDICATE^ 

TAPE ♦ 



• •••• 

• BB • 

• Bl^ 



Gl •. 
.• IS •. 

.THE 1ST CHAR*. 
.AN APOSTROPHE. 



• «i»«*Hl •••<>>•••••• 

•INITIALIZE REG • 

• P01NT4 AS • 
•POINTER TO THE • 

• LABEL STORAGE • 

• AREA • 



.♦ SHI 



• Bl^ 
CONTROL 



SHORT •. 
STRING •. YES 
•.49 CHARACTERS.^.... 



Kl •. 

• LONG •. 
STRING •. 
CHARACTERS. 



•••••K 2 ••••••••• 

• MOVE STRING 

• TO LABEL SAVE 
.X^ AREA, 

• NC PADDING 



• NO 
.x! NVSERR 
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Chart EL. SET Statement Processor- 
Control, Chart 09 



$JOBCTLJ; Refer to Job 



.» DID ». 

.♦ AN EQUAL * 
».SIGN END THE 
♦. SCAN .« 



CI * 
DATE 



THE OPERAND POINTED 
TO BY THIS SCAN MAY 
BE DATE, CLOCK, UPSI, 
LINECT, RCLST, RCPCH. 



IF THE YEAR IS A 
LEAP YEAR THE 
COMPUTED JULIAN 
DATE IS INCREASED 
BY 1 BEFORE IT IS 
STORED. 



.* DISK «. 

.* I/O FOR 
. SYSLST OR 
*. SYSPCH . 



* FIELD « 
LENGTH 
EQUAL 6 



* FIELD 
LENGTH 
EQUAL 4 



^CONVERT DATE TO 
♦BINARY. MM/DD/ 
»YY OR DD/MM/YY 



* STORE DATE 

* IN SYSDAT, 
» COMREG+79 



•COMPUTE JULIAN 
• DAY AND STORE 
» IN COMREG+85 



POINT TO UPSI 
PARAMETER 

-NNNNNNNN- 



F2 *. 
.» SCAN ♦. 

.» ENDED BY «. NO 
•BLANK OR COMMA.*... 



E3 ». 
.♦ SCAN «. 

NO .« ENDED BY ». 
...•BLANK OR COMMA. 



C4 
CJ.OCK 



»«*»*A5 *••••••••* 

♦ INIT. WRKRG3 • 
•WITH DIB TABLE • 
•ADDRESS, P0INT4» 

♦ WITH SYSLST • 

♦ DIB ADDRESS » 



IS 

OPERAND 

RCLST 



••♦*C5*«»«»^*«* 
SET P0INT4 
AS POINTER TO 
SYSPCH DIB 



YES .♦ VALUE 

X •. LESS THAN 

♦ . 30 



.• DID ». 
NO .» A BLANK •. 
,.-•. END LAST 

•. SCAN .• 



DIBRC 

«*»«»E5» 
•SCANR3 



CONVERT TIME 
TO BINARY 
HH/MM/SS 



TIMER 
EXCEEDS 
.23.59.59 



•CONVERT TIME TO* 
•SECONDS, MULTI-^ 

• PLIED BY 300. • 
» RESULT IS IN » 

* POINTl * 



POINT TO 

PARAMETER 

-NNN- 



.* SCAN • 
NO .♦ ENDED BY 
...*. BLANK OR 
♦. COMMA 



NO .« PARAM AT ♦. 
...*LEAST 3 CHAR IN* 
*. LENGTH .* 



«««««H3»****«**^* 




»»»»»H5**»*** 


» SAVE OLD LINE • 


« « 


•NUMCON 


• COUNT AND » 


•DIVIDE TIMER BY^ 




•STORE NEW COUNTS 


»256 AND ADO TO • 


• CONVERT RC 


• IN LINCNT. • 


•PREVIOUS RESULT* 


♦ PARAMETER 


• -COMREG+78- • 




» TO BINARY 



*COMP NEW NO. OF* 
•REMAINING LINES^ 
* ON CURR PAGE » 
♦FOR JOB CONTROL* 
*-MIN VALUE EQ 1* 



STORE RESULT 
IN SYST TIME 

OF DAY 
-HEX LOC 54- 



*STORE IN SYSLST* 

* OR SYSPCH » 

* DIB+14 * 
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Chart EM. UPSI Statement Processor — $JOBCTLJ; Refer to Job 
Control, Chart 09 



POINT TO 

OPERAND 

-NNNNNNNN- 



CI ♦. 

» DID ». 

A BLANK 
STOP THE 


♦ . 

« 


YES 


SYSUPIl 
• • .X»i-8 


. •* 

C2 *. 

* VALID • 
LENGTH 
CHARACTE 

**«N0 


*. 

IS. 


YES 


♦»»«»C3**«»****»» 

♦ IN TIALIZE • 

♦ REG STERS FOR • 
....X»SETT NG BITS nN« 


SCAN 








» AND OFF 
♦El 


« 


•NO 

!x... 


• 1 -.x! 

* » . 

UPSICH .». 




X 

#»♦* 

» 2 * 













P0INT3 
WRKRG3 
WRKRG4 



LOOP CONTROL 

BIT ON MASK, HEX 0080 

BIT OFF MASK, HEX FF7F 



THIS 

CHARACTER 
. AN X 



THIS *. NO 

CHARACTER .♦ 

A 1 .« 


.• THIS ». NO 
X». THARACTER .*... 


». A .» 



OR BIT ON 

USING MASK 

IN WRKRG3 



NXTBIT X 

•««««G3*«* ******* 
» SHIFT WRKRG3 » 

* AND WRKRG4 * 

* RIGHT ONE BIT * 
♦TO CONTROL NEXT* 

* UPSI BIT * 



AND BIT OFF 

USING MASK 

IN WRKRG4 



* E4* 
NVSERR 



♦*»«*H3********** 

♦ INCREMENT ♦ 
♦POINTl TO POINTS 

♦ TO NEXT CHAR ♦ 

♦ OF UPSI PARAM * 



LAST 


♦ . 


YES 


UPSI CHAR 




*. . • • 


CHECKED 






*. .* 










X 


♦NO 




***** 
*EL * 






* HI* 


X 




* * 








* • 




SETEXT 
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Chart EN. RSTRT Statement Processor — $JOBCTLJ; Refer to 
Job Control^ Chart 09 



INITIALIZE 

ERROR LINKAGE 

REGISTER 



POINT TO 1ST 

OPERAND 

-SYSXXX- 



POINT TO 1ST 
PARAMETER 

-NNNN- 



•♦•♦•B 4* »»♦»••*•» 
» INIT REGISTER # 
» P0INT4 AS • 

* POINTER TO • 
•LABEL SAVE AREA* 

• +8 BYTES * 



CI *. 
* DID ». 

A COMMA *. NO 
END THE .»... 

SCAN .♦ 



•CONVERT SYSXXX 

• TO SYMBOLIC 

• UNIT ADDRESS 



C2 ♦. 
.» DID ♦. 

.» A BLANK ♦ 
.OR COMMA END 
*. SCAN .♦ 



D2 ». 
.» VALID ». 
NO .-LENGTH 1-4 
...». CHARACTERS 



SYSXXX ♦ 


NO 


«-«»-«-«- «-«-*-*- 


PROGRAMMER 


• 




•VALIDITY CHECK 


. UNIT .* 






♦AND CONVERT TO 








♦BINARY •EB 










• YES 




♦ ET * 










♦ B2» 




















NLUERR 












♦•Fl*-***^»* 






♦♦♦««F2^ •••»»»*• 








•SAVE CHECKPOINT 


COMPUTE LUB 






♦ NUMBER, RIGHT 


POINTER IN 






♦ ADJUSTED, IN 


WRKF 


IG3 


« 




♦ CHKPTN 



*E3 
THIS SUBROUTINE IS USED 
TO VERIFY THAT EACH 
CHARACTER IS OF THE 
RANGE 0-9. THE RESULT 
OF THE BINARY CONVER- 
SION IS IGNORED. 



C4 ♦. 
.* HAVE •. 
.LABEL STATE-*. NO 
. MENTS BEEN .•... 
•.PROCESSED.* 



•CHECKPOINT 

UNIT A SEQ. 
*. DISK 



• SET BIT 1 ON 

• IN MTRSVD TO 

• INDICATE LAST 
•SEQ DISK ENTRY 




OUTPUT LABEL 
♦ TO VOL AREA 
OF SYSRES 



CHECK THE 

ASSIGNMENT 

FOR THIS UNIT 



G2 «. 
.• DID •. 

.• A BLANK •. YES 
.END THE LAST ...... 

». SCAN .* 



«««««G4^«* *•••♦• 
•PROHIBIT WRITE 

• OPERATION ON 
» SYSRES. PIB 

• ASSIGN FLAG, 

• BIT 8 OFF 



»**J1*»»»^»»« 

SAVE PUB 

POINTER IN 

PUBADR FROM 

WRKRG4 




BLANK PHASE 

NAME ID CHAR 

-PHSNAM+7- 



POINT TO 2ND 

PARAMETER 

-FILENAME- 



.♦ DID •. 

.• A BLANK ♦ 
.END THE SCAN 



K2 *. 
.» VALID •. 

.• LENGTH ♦. NO 
•1-8 CHARACTERS. •... 



•RELEASE SYSTEM 






NVbtKK 




AND SET SYST. 


• 






• 


MASK TO FF 


• 






* 


, 














• J5 












1. 


REGISTER IS SET TO 
THE ADDRESS CONTAIN- 




X 






ING THE SYMBOLIC UNIT 






ADDRESS, UNIT AND 




NIT REGISTERS 






CLASS. 




AND 1 FOR 




2. 


REGISTER 1 IS SET TO 


« 


FETCH 






THE ADDRESS CONTAIN- 




• J5 






ING THE NAME OF THE 










B TRANSIENT TO BE 


• 


t***#**i 








FETCHED. 



«»»K4^«**»»»* 
SVC 2 FETCH 
B-TRANSIENT 
-$$BRSTRT- 



Appendix H. Detailed Flowcharts 375 



Chart EP. Subroutines — $JOBCTLJ (LBLOUT, and CONCAT) ; 
Refer to Job Control, Charts 09-11 



«A1««»»» 
LBLOUT 



♦•»A4*»**» 

CONCAT 



.» LABEL ». 
.«BLK PRESENT*. YES 

.-JBCSW4, BIT .* 

». EQ 1 .» 



RETURN TO 

CALLING 

SEQ 



SAVE DATA LNG 
IN WRKRGI. 

ZERO KEY AND 
DATA LENGTH 



»«»*C1**»**** 
SET BLOCK NOT 
PRESENT FLAG « 
ON IN JBSCW4, 
BIT » 



» COMPUTE AND 
•STORE BYTE CNT 
« IN WRITE AND 
* VERIFY CCWS 



•THERE ROOM 
ON TRK TO 

».HOLD LBL . 
«. ♦HZ .« 



• LABEL 

MODE 
». STANDARD 



* INCR HH BY 1 
♦AND SET RECORD 

* NUMBER TO 



» STORE NEW 
» RESIDUAL CNT 
•tIN REMCAP FROM 
» WRKRG2 



UPDATE HHR OF 

SEARCH ADDR. 

INCR WRITE 

RECORD NO 



WRITE EOF ON 

ALL BG TRACKS 

EXCEPT 

« TRACK * 



♦»»»»E3**«»*«»** 
♦SET KEY LENGTH 

♦ TO 8 AND 

♦ RESTORE DATA 

♦ LENGTH FROM 

♦ WRKRGI 



♦ SAVE 1ST CARD ♦ 
»IMAGE IN BUFFRl* 
» FROM BUFFER ♦ 



♦♦C4*^««»^** 



READ CONTINU- 

♦ ATION STMNT ♦ 

INTO BUFFER 



♦♦♦♦D4«**«*^*» 

MOVE OPERAND 

FIELD FROM 

BUFFER TO 

BUFFR2 



♦♦♦♦♦B5**^**«**» 
♦RESTORE BUFFER 

♦ FOR ERROR 

♦ LOGGING 

♦ ONLY 



♦♦♦♦♦C5*^*^*^** 

♦ UPDATE REGS 
♦POINTl, P0INT2 

♦ FOR SCANNING 

♦ BUFFERl AND 
♦BUFFER2 



E5^ 



RETURN TO 

CALLING 

SEQ 



♦ E5 
THE COMPLETE RECORD, 
STMNTl AND STMNT2 IS 
PROCESSED IN BUFFERl 
AND BUF^FER2. 



WRITE LA 
IN SYSR 
VOL ARE 



♦♦♦♦♦G2» 

♦ COMPUTE NEW 
♦RESIDUAL COUNT 

♦ IN WRKRG2 



♦RELEASE CONTROL^ 
♦ OF SYST. SET ♦ 
♦SYST MASK X'FF'^ 



♦H2 
RESIDUAL COUNT LESS 
(CURRENT BYTE COUNT 
TIMES 537, DIVIDED BY 
512, PLUS 82) EQUALS 
NEW RESIDUAL COUNT. 
IF NEW RESIDUAL COUNT 
IS NEGATIVE, THERE IS 
NO ROOM ON TRACK. 



♦ SEIZE CONTROL ♦ 

♦ OF SYST. SET ♦ 
♦SYST MASK TO FF* 



RETURN TO 

CALLING 

SEQ 





♦ ♦♦♦ 


LOGOUT 


BE 






LOG 




♦ STATEMENT 


♦ 


ON SYSLOG 






X.... 




X 








G4 ♦. 








.♦ LOG 


♦ . NO 


. ON S 


fSLST 





♦♦♦Jl^^*^^^^« 
INITIALIZE 
REGISTER 1 
TO POINT TO 
SYSRES CCB 



♦ J2 

THE MAXIMUM HH VALUE 
IS COMPARED TO THE 
CURRENT HH VALUE. 
CURRENT HH CAN NOT EXCEED 
MAXIMUM HH. 



.♦ THIS THE ♦. NO 
.FIRST RECORD .♦... 
♦.ON TRACK .♦ 
♦ . 1 .♦ 
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Chart EQ. Subroutines — $JOBCTLJ (TXCUU, HEXCON, and 
CNUNCO); Refer to Job Control, Charts 09-11 



*A2*»»»» 
HEXCON 



^»CHARACTERS 

IN 
». LENGTH . 



TXCUUl X 

* SEARCH PUB » 
» TABLE FOR * 
♦DESIRED DEVICE.* 
» SEARCH FOR « 

♦ CUU ♦ 



.» DEVICE « 
.FOUND IN PUB 
♦. TABLE .» 



TXCUU2 X 

»»»»*F !»*»»»»»»* 
» SAVE DEVICE 
« TYPE AND PUB 
• ADDRESS. COM- 
» PUTE THE PUB 
•POINTER. ♦HI 



♦•»«C2»*«»»»»»« 

CONVERT 

EBCDIC TO HEX 

AND SET UPPER 

CHECK LIMIT 

TO FF 



.« CHECK ■»• 
NO .» FOR CHAR 
..». RANGE 
♦ .FO TO FF 



•*»»C3»»«*»»»» 

SET POINTER 

P0INT2 FOR 

SYSIPT TABLE 

ENTRY 



PACK HEX 
TO BINARY 
IN I ORGS A 



RETURN TO 

CALLING 

SEQ 



SYSIN, 

SYSXXX, 

.OR OTHER 



• THIS A 

PROGRAMMER 
*. UNIT 



LOOK UP SYS 

UNIT IN 

SYSTEM UNIT 

TABLE SYSUTB 



PRGUNT 

*»***C5 ********* 
♦INIT REGISTERS 
♦FOR PROGRAMMER 
...X^ UNIT. 

♦ SYS000-SYS255 

♦ »H4 



CHECK XXX 

AND CONVERT 

TO BINARY 



FIRST TWO CHARACTERS 
MUST BE X' 
LAST CHARACTER 
MUST BE '. 
(AS IN X'CUU' ) 



UNTFND X 

« **«*F 4 ««'««« *«•« 
♦SET UNIT CLASS 

♦ AND SYSTEM 

♦ CLASS IN SAVE 

♦ AREA UNCLOR 

♦ «H2 



SAVE 

PROGRAMMER 

UNIT NUMBER 

IN UNCLOR 



NUMBER IN 

LUB 
♦.TABLE. ♦ 



RETURN TO 

CALLING 

SEQ 



THE SYSTEM CLASS, NICL AND FICL 
POINTER, IS SET TO A 1 IN 
UNCLOR BYTE 0. 



RETURN TO 

CALLING 

SEQ 



SET SYSTEM 

CLASS IN 

BYTE OF 

UNCLOR 

♦G2 



THE DEVICE TYPE IS 

SAVED IN DVCTYP 

FROM THE PUB. 

THE PUB ADDRESS IS 

SAVED IN REGISTER 

P0INT4. 

THE PUB POINTER IS 

COMPUTED IN WRKRG3. 



LUd KuiiNitK, li THE FUNCTION OF THE 
SYS ARGUMENT IN THE TABLE SYSUTB, 
UNCLOR, BYTE 0, THE SYSTEM CLASS, 
NICL AND FICL POINTER, IS SET TO ZERO 
BECAUSE THE ROUTINE IS WORKING WITH 
A SYSTEM UNIT. 



• H4 

1. POINTl IS 
INCREMENTED BY 

3 TO POINT TO THE 
FIRST CHARACTER 
OF XXX. 

2. P0INT3 IS 
INITIALIZED TO 

A 2 AS A CHARACTER 
COUNT REGISTER. 



»»H5^*«*»^» 

RETURN TO 

CALLING 

SEQ 
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Chart ER. Subroutines — $JOBCTLJ (UPDSAV, LNKOUT, NOMCON, 
and GTMXHN) ; Refer to Job Control, Charts 09-11 



« UPbSAV » 
• e 



«av«««6I»««i»«««6*< 



LNKOUT • 



NUMCON • 



••••A5«**«***** 

GTMXHN • 



•COMPUTE ADDRESS* 
• OF NEXT • 

«availa:ole area 



o«^ ••«••«•<)#••««• 



SVC 7 WAIT • 
FOR PREVIOUS • 
I/O ON SVSLNK • 



THE OLD BLOCK COUNT, 
BLKCNT IS SAVED JN 
REGISTER URKRGl 
NEU BLKCNT EQUALS 
OLD BLKCNT PLI^S I 



1. THE INITIAL VALUE 
OF BLKCNT IS 

2. OLD BLKCNT. URKRGl* 
TIMES 80 EQUALS 
DISPLACEMENT IN 

OUTPUT AREA 

3. DISPLACEMENT PLUS 
OUTPUT AREA STARTING 

ADDRESS. LNKBFl, 
EQUALS ADDRESS OF 
NEXT AVAILABLE AREA 



••e««El««o««»«»o« 
eMOVE STATEMENT • 

• FROM INPUT • 

• BUFFER • 

• TO SYSLNK • 

• OUTPUT AREA • 



«««*C3*****«**< 
SET OUTPUT 

BLOCK COUNT IN 

CNTFLD FROM 

BLKCNT 



****C5*«****** 
SET UPPER HH 
VALUE TO 9 
-ASSUME NO 
MULTI 
PROGRAMMING- 



OUTPUT 

•STATEMENT ON • 

SYSLNK •G^ 



DA •. 




05 •. 


• CHECK ». 




.• IS •. 


FOR •• 


NO 


.• MULTI 


CHARACTER . 


• • • • • 


•. PROGRAMMING 


RANGE FO .* 




•.SUPPORTED. 


♦.TO F9.* 


. 





PACK INTO 
IGRGSA AND 
CONVERT TO 

BINARY IN 
MRKRGl 



RETURN TO 

CALLING 
SEQUENCE 



SYSLNK OUTPUT AREA IS 
322 BYTES STARTING 
AT CNTFLD 
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Chart ES. Subroutines — $JOBCTLJ (DOP34, XT0P12, XTOP34, 
and BINCON); Refer to Job Control, Charts 09-11 



»A1»*»*» 
D0P34 



»A3»»»*» 
XT0P34 



»A4»*«*» 
BINCON 



• B5 

1. MM/DD/YY 

2. DD/MM/YY 

3. HH/MM/SS 



POINT TO 3RD 

OPERAND 

-CR DATE- 



.* DID ♦. 

.♦ A COMMA » 
.END THE SCAN 



VALID 

LENGTH 

5 CHARS 



»»»»»F1»»«*»**»» 

• STORE BINARY 
•YEAR IN DACRYR 

• FROM WRKRGl 



.» IS «. 

♦ BINARY 

DAY 366 OR 
*. LESS 



POINT TO 

OPERAND 

TYPE/SEQ NO. 



C2 ♦. 
-• DID ♦. 

. » A COMMA * 
.END THE SCAN 



•PT. TO OPERAND » 
•LOWER AND UPPER» 
• EXTENT • 



POINT TO 

PARAMETER 

»B5 



ALID 

NGTH 

CHAR 



CONVERT TO 
BINARY IN 
WRKRGl 



CONVERT TO 

BINARY IN 

WRKRGl 



C4 ♦. 
.* DID ». 

.• AN EQUAL ♦ 
.SIGN END THE 
•. SCAN .♦ 



IF PROCESSING THE 

DATE operand: 

POINTl CONTAINS MM OR DD 

P0INT2 CONTAINS DD OR MM 

P0INT3 CONTAINS YY 

IF PROCESSING THE CLOCK 

OPERAND 

POINTl CONTAINS HH 

P0INT2 CONTAINS MM 

P0INT3 CONTAINS SS 



.» BINARY *. YES 


YES 


• IS ♦. 


•• VALUE GT .»... 


..X...^ 


EXTENT .» 


• . DOFF .♦ 




». ZERO .♦ 








♦. .* 


X 


• . .• 


•NO 


*•««« 
*ET ♦ 
* E2* 
« « 
* 
NLSERR 


• NO 


X 




X 


•«**«G2^ **•*•*••» 


«»^*»G3^ ••••••••• 


• STORE BINARY » 




SAVE Bl IN • 


» VALUE IN • 




SVXTB BUILD » 


•EXTENT SEQ NO. » 


•EXTENT INFO IN • 


• -XTSEQN- * 




LABEL AREA • 


• •KS • 




FROM WRKRGl * 



•*«*«F4^ •*•••*** 
•CONV PARAMETER 

• TO BINARY IN 

• REGS POINTl, 

• P0INT2, AND 
» P0INT3 •CS 



RETURN TO 

CALLING 
SEQUENCE 



♦•H2^^»^^^^ 
RETURN TO 

CALLING 
SEQUENCE 



••H3^^^**^^ 
RETURN TO 

CALLING 
SEQUENCE 



*»^*J1^ »•*»»*•• 

STORE BINARY 

DAY IN DACRDY 

FROM WRKRGl 



THIS ROUTINE IS USED TO PROCESS THE LOWER AND UPPER LI-MIT OF EXTENT 

STATEMENT. 

THE VALUE OF Bl IS SAVED IN SVXTB FOR THE CALLING SEQUENCE. 

ClCl, C2C2C2,H1,H2H2 ARE STORED IN THE LOWER AND UPPER 

LIMIT FIELDS OF THE LABEL AREA. 

C2C2C2 IS CHECKED AGAINST THE MAX. CYLINDER NO. OF 199. 



»«K1^^^*^^* 
RETURN TO 

CALLING 
SEQUENCE 



*K2 
THE REGISTER POI NT4 POINTS TO THE CREATION DATA FIELD 
IN THE LABEL AREA WHEN PROCESSING THE CREATION 
DATE. IT POINTS TO THE EXPIRATION DATE FIELD IN THE 
LABEL AREA WHEN PROCESSING THE EXPIRATION DATE. THE 
CALLING SEQUENCE UPDATES AND RESTORES P0INT4 



»K5 
WHEN RETURN IS MADE TO THE 
CALLING SEQUENCE THE 
DESIRED BINARY VALUE 
IS IN WRKRGl AND IN 
THE EXTENT SEQ 
NUMBER FIELD XTSEQN. 
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Chart ET. Error Routines — $JOBCTInT (NDTERR, NLUERR, 
DNEERR, NDSERR, INAERR, NLSERR, LAXERR, and 
OTSERR) ; Refer to Job Control^ Charts 09-11 



EB-03 
EE-F3 
EE-HU 



EN-El 
EQ-F5 



••Bl»«»«»« 

POINT TO 

DESIRED 

MESSAGE 

-1A20D- 



• •B2 • 

POINT TO 
DESIRED 
MESSAGE 
-1A40D- 



*«B3« 
PCINT TO 
DESIRED 
MESSAGE 
-1A50D- 



INAERR X 

•••••£!«•••*• 

• POINT TO 

• DESIRED 

• MESSAGE 

• -ICIOA- 



EG-B3 
EH-K5 
ES-F2 



••E2«**«*« 

POINT TO 
DESIRED 
MESSAGE 
-ILOOD- 



EH-Gl 
EJ-C5 
EP-F2 



POINT TO 
DESIRED 
MESSAGE 
-ILIOD- 



•#B4»»*«»» 

POINT TO 

DESIRED 

MESSAGE 

-1A70D- 



• •B5 

POINT TO 
DESIRED 
MESSAGE 
-1C30A- 



• A 
ED-B1 
ED-B3 
EF-C3 
E6-05 
EH-DU 
EK-El 
EN-CU 



POINT TO 
DESIRED 
MESSAGE 
-ISIOD- 
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Chart EV, Initialize and Return to Fetching Routine- 
$$BLSTIO; Refer to Job Control, Chart 05 



o SSDLSTIO • 



X 

• INITIALIZE • 

• TRANSIENT SU 

• BANKT TO OFF 

• STATUS 

• -HEX 00- • 



••••C3**««*»*** 

GET 

COMMUNICATION 

REGION AODR 

FROM LOC 

HEX 16 



a«***D3«*«*««*** 

• GET PIB TABLE 

• AODR FROM 

• COMMUNICATION 
•REGION PLUS 90 



• E4 
L.T.B. CONTAINS THE ADDRESS OF 
SAVE AREA UHERE REGISTERS 
X HAVE BEEN SAVED BY THE 

««««*E3*««»«««*** SUPERVISOR. 

• GET AODR OF • 

• LOGICAL TRANS • 
•BUCKET. L.T.B. »• 
•FROM PIB TABLE • 
•PLUS 72 •EAa 



•F4 
REGISTER 15 IS THE BASE REGISTER 
FOR THIS TRANSIENT. IT IS NOT 
X RESTORED BY THIS ROUTINE. 

• a«4i«F3^«« ••••••• 

• RESTORE REG • 
•9-lA FROM SAVE • 

• AREA PLUS 16 • 



RETURN TO THE ROUTINE THAT FETCHED 
SSBLSTIO BY BRANCHING ON REG LINKRr 
LINKR2 WAS LOADED WITH THE RETURN 



ADDRESS BY THE FETCHING 
ROUTINE. IT WAS SAVED BY 
THE SUPERVISOR. IT WAS 
RESTORED BY THIS ROUTINE. 
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Chart EW. Build Printline in Workarea Subroutine — $$BLSTIO 
(PUIF); Refer to Job Control, Chart 05 



••••Al«»»« 

• PUIF 



••••Bl ••*.••••••• 

LOAD BASE REG • 

HRKRG3 WITH • 

CURRENT PUB • 

AOOR FROM • 

TPUBAOO • 



•••••Cl**»«**« 

• UNPACK AND 

• TRANSLATE 
CHANNEL AND 



••••C4*«****** 

LOAD WRKRG3 

WITH LOGICAL 

UNIT CLASS. 

-0, I, 2, 3- 



• IK* ••Dl •*•••••••• 

• MOVE CHANNEL • 

• AND UNIT TO • 

• TCHNL AND • 

• TUNIT • 



^^1 .. 

IS 

DEVICE 
DOWN 



«««*«D3«««»«*«**« 


04 ♦* 


•CONVERT LOGICAL* 


.» 


• UNIT NO. TO • 


NO .» SYSTEM 


♦ EBCDIC IN •X... 


CLASS 


• TLUNIT+3 • 


• . -0- 


• -SYSXXX FF- • 


• • 



IS 

DEVICE 

TAPE 



Gl *. 

.♦ MULTI •. 

.•PROGRAMMING*. 

. ENVIRONMENT . 



•UNPACK, TRANS- • 
•LATE. AND STORE* 

• MODE, SS, IN • 

• TMODE • 



•COMPUTE CURRENT^ 

• PUB OWNER • 
.X^ MOVE OWNER • 

• ID TO TOWN • 

• •JZ • 



• K2 

*. .* 
•NO 

X 

• ••• 

• • 

• 1 • 

• « 

• ••• 



• MOVE ARGUMENT 
.X^ XXX TO TLUNIT 

• +3t SYSXXX • 



BUILD LOGICAL 

UNIT POINTER 

IN WRKRG3 



MULTIPLY 

POINTER BY 5 

TO DEVELOPE 

TABLE 

DISPLACEMENT 



♦ ADD SYST UNIT • 

♦ TABLE ADDRESS • 
♦TO DISPLACEMENT* 

♦ FOR LOG. UNIT * 

♦ ADDR IN TABLE • 



POINTl = CLASS 0,1,2 OR 3 

CLASSX2 = OWNER x 

DISPLACEMENT ••»»J2» 

OWNER TABLE ♦ DIS- * RETURN TO 

PLACEMENT « ACDRESS * CALLING 

OF OWNER ID • SEQUENCE 



•K2 
THE SWITCH. TPROGSW, IS ON IF 
A SINGLE ASSIGNMENT IS BEING 
PROCESSED. A SINGLE ASSIGNMENT 
OR ARGUMENT IS SPECIFIED BY 
THE OPERAND SYSXXX. 
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Chart EX. Identify the LISTIO Operand Subroutine— $$BLSTIO 
(FNDARG); Refer to Job Control, Chart 05 



•••• 

• • 

• • 
•••• 



• mOAKG • 



• I NCR HRKRG4 
•X* BY 4 

• -URKRG4 EQ 4- 



: 'mi\\m 



LUB COI 



Jys 

• ••* 

•NO 



R06 

.a 



• 2 • 

• • 
• ••• 



.•NULTI- •• 
NO ••PROGRAMNING*. 
.•••• ENVIRONMENT .• 



• • 


• . 


YES 


•.. ^-^r" 




• •••• 


,• 




•• •• 






•• •• 






•NO 




•••• 






• 






• 3 






• 






•••« 


X 






••• 






Gl •• 







•• •• YES 

•• OPERAND 

•• F2 •• • 



X 
• ••• 

• • 

• 1 • 

• • 
•••• 



•• MULTI •. 
•■PROGRAMHING*. 
. ENVIRONMENT .• 



XYES •• •. NO 

>•. OPERAND •••.. 
•. CUU .• 



INCR WRKRG2 • 

BY 2 TO SET • 

LUB COUNT • 



E4 *. 

• • 

OPERAND 



INCR WRKRG4 

BY 4 

-URKRG 4 EQ 8- 



• INCR WRKRG4 < 
%• BY 4 

•-WRKRG4 EQ 12- < 



• X^ 



INCR WRKRG4 
•-WRKRG4 EQ 16- 



BY 4 

-WRKRG4 EQ 20- 

ASSUHE SYSXXX 

OPERAND 



• ••• . 

• • • 

• 3 '.X. 

• • . 

• ••• , 



•F5» 



• ••• 

• • 

• 2 • 



•i! 



URKRG^.EQUALS 0. ^~ 




iifi?^^"^'^ 



EXIT FROM THIS 
ROUTINE IS Tr 
-RANCH TABLE 

:CT BRANCI 



IN 
S THE 



TO TRANS- 
TO THE 
ICESSING 



EXIT X 

•••••J5 •••••••••• 

• LOAD LOGICAL • 

• UNIT CLASS • 
•0tlf2t OR 3 IN • 

• POINTI FROM • 



REL. 

WRKRG2~CQNTA INS THE 
LUB COUNT 1* 2» OR 



01NT2 Contains 

OGICAL UNIT CLASS. 

RKRG2 Cr- - 

" - COUN 
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Chart EY. Build Header Subroutines — $$BLSTIO (PSHRTN, and 
LHRTN) ; Refer to Job Control, Chart 05 



•«««A1********* 
I PSHRTN 



•••••««•••• 



X 
i««*Cl**«* 

BUILD 

PHYSICAL UNIT 

HEADER 



• LHRTN • 

• • 




X 

•••••B3***«****** 

• WRKRG4 • 

• -0,1.2,3- • 

• ♦BA • 


1Ks8litS° 
Pi i§!JSt 1 


X 

••««*C3«««*«***** 

• LOAD WRKRG4 • 

• WITH DIS- 

• PLACEMENT TO • 
•CORRECT HEADER • 

• "CA • 


• C4 
SYS EQUAL HEX 70 
BG EQUAL HEX 84 
F2 EQUAL HEX 98 
FL EQUAL HEX A9 



LOAD WRKRGA 

WITH ADDRESS 

OF CORRECT 

HEADER 



• D4 
HEADER ADDRESS EQUALS 
PLUS DISPLACEMENT, 
•C5 PLUS THE CONTENTS 
OF REGISTER 15. REG. 
15 IS THE BASE REGISTER 
OF THE $$BLSTIO 
TRANSIENT. 



1 SYS HEADER«»»-SYSTEM-»«« 

2 BG, HEADER««»-PROGRAM-«»» 

3 F2, HEADER«»»-F0REGR0UND2- 

4 Fl, HEAOER«»«-FOREGROUNDlr 



RETURN TO 
CALLING 

SEQUENCE 



CHNL UNIT OWNER—I/O UNIT- 
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Chart EZ. Build Print Line Subroutines — $$BLSTIO (SULB, 
and SEUOB) ? Refer to Job Control, Chart 05 



ewi««i A 1 ««wtf»a •««• 

» SULO * 
o « 



SEUOD 



a<^■o•Bl•a«|• {!••«•« 



OAD URKRG3 • 

TH ADDRESS • 

I/O BUFFER • 

• 



• L( 

• ^1 

• OF 



INIT REGISTERS • 

URKRG3 EQ • 

BUFFER ADDR • 

URKRG4 EQ • 

PUB ADDR • 



•«^ ••CI* •««•*•••• 

• MOVE TLUNIT « 

• TO tUNiT IN • 

• BUFFER+l • 

• -SYSXXXr • 

• sjl • 

• «>«|a«e«iB ••••••••• 



CLEAR I/O 

BUFFER TO 

BLANKS 



•Dl«»^«>«««' 
OVE TCMNT 



••• 904 •*•••••••• 

HOVE CHANNEL • 

TO BUFFER • 

FROM • 

TCHNL. • 

1-BYTE • 



IS 

LUB 
UA 



IS 

LUB 

IGN 



•••E3*««««**«*i 
MOVE TCHNL 
TO LCHNL II 
BUFFER+20 



• ••s»E4***««*<»>* 

• MOVE UNIT 
•TO BUFFER FRCM 

• TUNIT. 



MOVE ••IGN»« 

TO LCHNL IN 

BUFFER+20 



I •••F3« ••••••• 

MOVE TUNIT 

TO LPUNIT IN 

BUFFER+26 



IS 
DEVICE 
DOWN 



♦ MOVE -DOWN- 
.X*TO THE I/O UNIT 
•FIELD IN BUFFER 



MOVE TMODE 

TO LMODE IN 

BUFFER+33 



BUILD 

REMAINDER OF 

PRINT LINE IN 

BUFFER 



•*H3^««^*^^ 
RETURN TO 

CALLING 
SEQUENCE 



• Jl 

LUNIT 

-SYSxxa- 



LCMNT LCHNL 

— XXX- ••-UA-* 

••-IGN-« 



• J4 

1. MOVE OMNER TO OWNER FIELD 

2. MOVE MODE FROM TMODE TO MODE FIELD 

3. MOVE LOGICAL UNIT FROM TLUNIT TO THE 
I/O UNIT FIELD 

A. MOVE THE COMMENT FROM TCMNT TO THE 
COMMENT FIELD-MODE LESS 6 BYTES 
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Chart FA, SUPVR Macro — General Entry; Refer to Supervisor, 
Chart 12 



: fJiHIiliSbT : 



••«(io«««k*e««o 



••••B2*****«*«* 

• SUPERVISOR • 

• CALL • 

• INTERRUPT • 



./t; 



•« I incK «• 

••FEATURE OR • 

. USER INTRPT 



♦ PROGRAM • 

♦ CHECK • 

♦ INTERRUPT • 



••••B<t«******** 



C3 •• 

.» USER ♦. 
•PROG CHECK 

ROUTINE 
• . "OS 



•*B5****«^«** 
I/O • 
INTERRUPT • 



• •••• 
♦FE • 

• B4* 



• B2» 



SUPERVISOR GENERATION 
OPTIONS (FOR ROUTING 
IN FLOWCHARTS) 



STORAGE 

PROTECT 

• 05 



E3 •. 

.• USER •. 
• INTERRUPT • 

KEY ROUTINE 
•. •DS .• 



F3 •. 

.INTERVAL^ 

TIMER 

ROUTINE 

• 05 



• •••• 
•GQ • 

• Bl» 
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Chart FB, FOPT Macro — General Cancels and Program Check 
without User PC Routine; Refer to Supervisor, 
Charts 14 and 16 






mr 



Wr 



m^rmn. 



•• •• 

• • •• X 

•NO ••• 



•••••B3«*««***««* 



X 
•B3«*« - - 

MODIFY 

• fiPSIBAL EXIT • 
•ROyilfiE TO LOAD* 

• PROGRAn CHECK • 

• OLD PSH • 







•• DA so •• 

•FILE PROTECT*. NO 
•OR 2311 SYSTEM.*... 



• 02 .* 
-. .* 

*YES 



••••*•• 



•C3*** 

'k a . .. 



.AVE REGS 



•••••05 
•CNLSVl 



W 



•••••••••• 

FB* 

• STORE CANCEL • 



:ss5!?i*i{jrTSR* 

•AT PCHKSM * 
•IN PROG CHECK * 
•INTERRUPT RTN. • 



-•-•-•-•- 



GET PIB 

SS ANL 

REGS 



ESTABLISH 

*EXT9g AS CANCEL* 

- — ACORESS * 

REG 8 • 



;to2 
xTt 

IN I 



••^••El^********* 

•CNLSVE FB* 

•-'•-•-•-•-•-•-•-• 

• STORE CANCEL * 
« CODE AND * 

• SAVE REGS * 



Fl *. 
.*MULTI- *. 
.*PROGRAM>IING*. NO 
OPTION .*... 
•. ^02 .* 



SET TO BRANCH WHEN 
I/O IS ATTEMPTED ON 
A FILE PROTECTED 
DASD. 



E3" •*. 

,* DASD *. 
NO .FILE PROTECT*. 



•D2 

.* 
*. .* 

*YES 



.*QUISH"PRO' 
*. Gr ' 



RAM CHECK 
"ONTROL . 
MITCH.* 
• . .* 

*NOP 

•xl 



X 

• •••• 
*FL * 

* H2* 



••(•••Gl* ********* 
•GETPIB FS* 

*«>•-•-•-•-•«•-•-• 
•GET PIfi ADDRESS* 

* OF PROGRAM * 
*BEING CANCELED * 

• •^•••••^••••■••••c 



••••G5* ******** 
• CNLSVE • 



••«>«»HI^^^^^^**\** 

• LOAD PIB • 

* AODRBSS INTO * 

* REG 10 * 

• • 
•»••••#••••>•••••• 



CANCEL CODE * 
QM REG U AND* 
STORE REG 11 * 
AS BASE REG * 



•••••••• 



•••••J5 ********** 
•SVEREG GX* 
•••-•-•-•-•-••••-• 
•SAVE REGISTERS • 
• FOR^CANCELED • 



•#«^^K1^«4«4««^^* 

"STABLISH ♦ 
*— UE AS • 
L EXIT • 
_ _SS IN * 
* REG 6 * 
••«••••«•«•«••••«•• 



RETURN TO 
INK AC 

IN RE 



LINK ACQRESS 



X 

••••• 
•FC • 
• B2^ 

« • 



ERRGO 
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Chart FC. FOPT Macro — General Cancel Subroutine; Refer to 
Supervisor, Chart 14 



V. 



•FB-D5, Kl 



ERR60 X 

•••••B2 ******* 
SET X«40« • 



LOAD $$BE0J3 * 



• Dl***<t*>**** 
ERR SET • 



* CANCEL 
IN 

•.PROGRESS 



POST 
CANCEL CODE 

IN PIB 
CANCEL FLAG 



*D3 
SUPERVISOR 
GENERATION 
OPTION 



El *. 

.*MULTI- *. 
••PROGRAHHING*. YES 
*. OPTION •••.. 
*. .* 

*. "03 .* 
*. .* 
*N0 



.*MULTI- *. 

.•PROGRAMMING* 

OPTION 



••«F2 **•••*• 
SET PIB * 
FLAG TO 
X«8I«. REGS 

SAVED AND 
SVC 2 BOUND* 



•••**B4« ••••••••• 

• RESET LOGICAL • 

• TRANSIENT KEY • 

• TO IN • 

• COMM REGN • 



RESET TRT • 

FUNCTION BYTE* 

TO X«03«. * 

B-TRAN AREA * 

INACTIVE * 



D4 ♦. 
.* SVC •. 

.« ISSUED 
. BY LOGICAL 
••TRANSIENT. 



• RESET LOGICAL 

♦ TRANSIENT 
♦CONTROL SWITCH 



••••E5»^*«*«» 

• BRANCH .TO 

• EXIT ACDR 
•IN REG 8 • 



.• SUPVR 
BEING 
•.CANCELED 



••••H2^*^«^*^ 
RESTORE 
REG 10 
TO ADDRESS 
OF PIB 
TABLES 



.•BACKGROUND •. 


NO • 


SET 6- 


-TRAN • 




•. PROG BEING . 




BIT X'SC • 


•.CANCELCD .• 




IN CANCEL • 




• • •• 


♦ 


BYTE OF PIB» 




•YES 


«*»«v 








• ••• , 


• FV • 








• • . 


• G4* 








• 2 -.X. 


* • 






•G5 


• • . 


• 






REFER TO NOTE 


• ••• X 


SUPCNL 






ON CHART GN. 


ERRSET 


SETL 2 X 




G3 •. 






.• •. 




EXCHANGE 




.• LOGICAL •. 


YES • 


LOGICAL TRAN « 




•. TRANSIENT . 


• • • . . • 


AND PIB SAVE 




•. ACTIVE .• 




AREA POINTER * 




». .• 
*. .• 


X ** 


•G5 





• BRANCH TO ♦ 

• EXIT AODR ♦ 
•IN REG 8 ♦JA* 



oJl 
DOES THE 
rANCBLED PROGRAM 



.• LOGICAL 
. TRANSIENT 
•. ACTIVE . 
•. *J1 .• 



••••K2 ********* 
« BRANCH TO * 
* EXIT ADDRESS • 
*IN REG 8 *J4* 



• BRANCH TO 

• EXIT ADDRESS 
•IN REG 8 •! 



• J4 
EXT02 IS THE EXIT FOR 
LOGICAL CANCELS AND 
NORMAL EOJ. 

DEQUEUE IS THE EXIT FOR 
LOGICAL I/O CANCELS. 
SEE CHART FB. 
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Chart FD. FOPT Macro — General Exits; Refer to Supervisor, 
Chart 12 



m 



EXT03 X 



Wi 



Br •. 

OPTION 



:»?*MIP' 



•••••••■< 



• 



a*«« • 

T02 X 

• SCAN PIBS 

• TO deterhTne 

•HIGHEST ACTiy 

• OR NOT SVC 7 
•BOUND PROGt • 



• 3 • 

• • 
• ••• 



•B3 
IF THE 

¥3 



YSTEH HAS BEEN 



8¥h|H 



mom 



NOT STOP 
PROBLEM 
t THE 



•••• 

• • 
» 1 • 

• • 
•••• 

:x.. 

X 



• •B4^^««^ 



V'MH 



BOUNDS 



••^••C L^««^#^».»^* 

•BRANCH INSTRUC-* 
•TION IN INTER- • 
•RUPTED PROGRAM • 
o PIB • 
••^^••••••••••••fl* 



• EXECUTE • 
•BRANCH INSTRUC-* 
•TION IN HIGHEST^ 

• ACTIVE PIB ♦ 



8C4 •• 
•CANCEL •• 
IT X»40« •. 
N IN PIB • 
CANCEL .• 
••FLAG •• 
• • •• 
•NO 



MOVE OLD 
PSM FROM 



• •«» 

• • 

• 3 • 

• • 
•••• 



•• ATTENTION 
•. ROUTINE 
• . PIB 



F2 •. 

*QUIESCE 
I/O PIB 



X 

•GX • 
• A4^ 



• ••«• 
•FZ • 

• Cl^ 



AVOIO 
RESAViNG 
REGISTERS 



BIT ON IN 

EXTERNAL 

OLD PSU 



•^••F3*^^^^^^^^ 

• LOAD EXTERNAL • 
o OLD PSW ENTER • 

• MAIT STATE • 
••••••••••••••• 



•o^^»E4^^^^*^*^^^ 
• RESTORE ALL • 
•FLOATING POINT • 
AND ALL 



••••••«•••••••••' 



••••F4^^^^*^*^^ 

• LOAD PSU • 

• FROM ERA • 

• • 
••••••••••••••• 

8fJ!il?T^CTI»E 
PROGRAM 



I LOAD ADDRESS 

• OF $$BE0J3 

• TO REG I 

• 
••••••••••••••••' 



NO . 


• 


MPS 


• •••. 




OPTION 




•• 


•H4 






•• 


X 




• • •• 






•YE 


•GL • 






• BU 






• • 




X 


• 




••••• 


SVC 02 




'."lit 



.•Supervisor*^, yes 
. interrupt ...... 



• »•• 

•x! 



supervisor generation option 



SUPEXT X 

•••••H3^^^^^^^ 
SET SUPVR 



INACTIVE 



• •««•• Jl«^«^0^«lt«» 



^mfh 
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Chart FE. FOPT Macro — General Entry; Refer to Supervisor, 
Chart 16 
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Chart FF. SGTCHS Channel Scheduler (Part 1 of 3) ; Refer to 
Supervisor, Chart 15 
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Chart FG. SGTCHS Channel Scheduler (Part 2 of 3) ; Refer to 
Supervisor, Chart 15 
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Chart FH. SGTCHS Channel Scheduler (Part 3 of 3) ; 
Supervisor, Chart 15 
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Chart FJ. SGTCHS Start I/O — No Options; Refer to 
Supervisor, Chart 15 
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Chart FK. SGTCHS Start I/O — Maximum Options (Part 1 of 3); 
Refer to Supervisor, Chart 15 
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Chart FL, SGTCHS Start I/O — Maximum Options (Part 2 of 3); 
Refer to Supervisor, Chart 15 
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Chart FM. SGTCHS Start I/O — Maximum Options (Part 3 of 3); 
Refer to Supervisor, Chart 15 
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Chart FN. SGTCHS Macro — I/O Interrupt (Part 1 of 5) ; Refer 
to Supervisor, Chart 15 
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Chart FP. SGTCHS Macro — I/O Interrupt (Part 2 of 5) ; 
to Supervisor, Chart 15 
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Chart FQ. SGTCHS Macro — I/O Interrupt (Part 3 of 5) ; Refer 
to Supervisor^ Chart 15 
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Chart FR. SGTCHS Macro — I/O Interrupt (Part 4 of 5) ; 
to Supervisor, Chart 15 
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Chart FS, SGTCHS Macro — I/O Interrupt (Part 5 of 5); Refer 
to Supervisor, Chart 15 
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Chart FT. SGUNCK Macro — Onit Check Routine Entries; Refer 
to Supervisor, Chart 17 
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Chart FU. SGUNCK Macro — Unit Check Routine Build Error 
Queue Entry; Refer to Supervisor, Chart 17 
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Chart FV. SGUNCK Macro Error Recovery Exits (Part 1 of 2) ; 
Refer to Supervisor, Chart 17 
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Ch^rt FW. SGUNCK Macro Error Recovery Exits (Part 2 of 2) ; 
Refer to Supervisor, Chart 17 
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Chart FX, SGUNCK Macro — DEQUER and RSTREG Subroutines; 
Refer to Supervisor^ Chart 17 
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Chart FY. SGUNCK Macro — Error Start I/O Subroutine; Refer 
to Supervisor, Chart 17 
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Chart FZ. SGUNCK Macro — Quiesce I/O Task; Refer to 
Supervisor, Chart 17 
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Chart GA. SGDFCH Macro — Fetch with MPS Option (Part 1 
3) ; Refer to Supervisor ^^ Chart 14 
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Chart GB. SGDFCH Macro — Fetch with MPS Option (Part 2 of 
3) , Refer to Supervisor, Chart 14 
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Chart GC. SGDFCH Macro — Fetch with MPS Option (Part 3 of 
3) ; Refer to Supervisor^ Chart 14 
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Chart GD, SGDFCH Macro — Fetch with Batch Only Option (Part 
1 of 2) ; Refer to Supervisor, Chart 14 
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Chart GFo SGDFCH I4acro — Fetch with Batch Only Option (Part 
2 of 2) ? Refer to Supervisor^ Chart 14 
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Chart GG. SGDFCH Macro- READ UPDT and RSTPUB Subroutine; 
Refer to Supervisor, Chart 14 
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Chart GH, SGSVC Macro — SVC Interrupt Handler; Refer to 
Supervisor, Chart 14 
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NO MPS . SVC02 . GL-Bl 

1*3**1 ALL I* SVc63*rGM-Bi* 

!*4**I ALL I* SVC04* ! ' GM-B3 * 
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Chart GJ. SGSVC Macro — SVC's 1, 5, 
to Supervisor, Chart 14 
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Chart GK, SGSVC Macro — SVC's 2 and 11 with MPS Option; 
Refer to Supervisor, Chart 14 
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Chart GL. SGSVC Macro— SVC's 2 and 11 vg^ith Batch Only 
Option; Refer to Supervisor, Chart 14 
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Chart GM. SGSVC Macro — SVCs 3^ 4, and 7; Refer to 
Supervisor, Chart 14 
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Chart GN, SGSVC Macro — SVC*s 8, 9, and 10; Refer to 
Supervisor^ Chart 14 



SVC 9 

• GH • 

• J2« 



SVC 10 
WITH 
(INTERVAL TIMER OPTION) 
• D2 



GET ADDRESS 

OF PROB PROG 

SAVE AREA 



STORE REGS 

AND 1 IN 

SAVE AREA 



• B2 
ADDRESS PRINTERS OF 
THE LCGICAL TRANSIENT 
SAVE AREA AND THE 
PROBLEM PROGRAM USING 
THE TRANSIENT AREA 
ARE REVERSED WHEN A 
LCGICAL TRANSIENT IS 
ACTIVE. 



LOAD SVC 

OLD PSW 

INTO REG 

C FOR SVC ' 

RETURN 



SUPFRVI SCR 
GENLRATICN 
CPTION 



•D2 .• 

''•YES 



C3« 

♦ RESTORE PSW • 

♦ ACDR FROM • 

♦ LOGICAL TRAN • 
•SAVE AREA, REGO» 
•TO SVC OLD PSW • 



• 84 

TMEKEY 



LOAD ADDR OF 
SVCIOA INTO 

REG 7, ENTRY 
VIA SVC ID 



THEKEYl 



•••C5 

LOAD TIME 

INTERVAL 

INTO REG 3 



.X. 



•SAVE REGS 12-0 

• IN PROB PROG 

• SAVE AREA 



TMEKEYl .•. 

05 •. 
.• TIMER •. 
NO .•CONTROLLED 
...♦. BY INTER- 
•. RUPTED . 
•PROGRAM^ 
X •. .• 

••♦• •YES 



STORE PPOB 

PROG ENTRY 

ADDR FROM 

REG 14 INTO 

PROB PROG PSW 



♦SAVE REGS 12-0 • 
♦IN LOGICAL TRAN^ 
♦ SAVE AREA ♦ 



•E2 
ENTEREC FRPM $$ANERRZ 
WHEN A SVC 3 IS ISSUED 
AND REG If' HAS BFEN 
LOADL-D WITH THE 
ADDRESS PF FXCAN. 



• LOAD RE-ENTRY 

• PSW ADDR FROM 

• LOGICAL TRAN 
•AREA TO REG 14 



RETURN 
LINK ADDR 



SVCIOA X 

F5» 

• GET TIME 

• ELAPSED SINCE 

• INTERRUPT 

• FROM 

• SYSTIMER 



♦ G3 
CHANGE LOGICAL 
TRANSIENT CANCEL 
SWITCH IN GENERAL 
CANCEL TO A NOP 



• G4 
TIME IS IN THE 
FORM SECONDS 
X 300 IN THE 3 
HIGH ORDER OF 
SYSTIMER. 



SET INTERVAL 

SPECIFIED BY 

REG 3 INTO 

SYSTIMER 



♦ HI 
ENTERED FROM $$ANERRO 
WHEN A SVC 3 IS ISSUED 
AND REG 15 HAS BEEN 
LOADED WITH THE ADDRESS 
OF ATNCNL. 



LCAD PIB 

ACCRESS FRO^' 

SAVE AREA, 

ERA +4 



SET 

CANCEL 
CCTE 



• J4 
SYSTOD IS THE 
TIME THAT THE 
NEXT TIMER 
INTERRUPT WILL 
OCCUR IF THE 
INTERVAL IS 
NOT ALTERED BY 
ANOTHER SETIME 
MACRO. 



• SHIFT UNUSED 
•LOW ORDER BYTE 

• FROM INTERVAL 

• AND ELAPSED 

• TIME REGS 



INCREMENT 
SYSTOD BY 
INTERVAL 
BEING SET 



• J4 



RESTORE LOGICAL 
TRANSIENT CANCEL 
SWITCH IN GENERAL 
CANCEL TO A BRANCH 



• DECREMENT 

• SYSTOD BY 
•TIME REMAINING 

• IN PREVIOUS 

• INTERVAL 



TVppendix H, Detailed Flowcharts 421 



Chart GP. SGSVC Macro — SVC's 22^ 23, 24, and 26; Refer to 
Supervisor, Chart 14 



( 



SVC 22 

WITH 

(MPS OPTION) 



SVC 23 
WITH 
(MPS OPTION) 
••••• 
•GH • 
• J2* 
• • 



SVC 24 

WITH 

(IT OPTION) 

•GH • 
• J2* 

• • 



Bl *. 

.* SVC *. 

OLD PSW *. NO 

KEY EQUAL 

.* 



83 *. 




• SVC *. 




OLD PSW *. 


NO 


KEY EQUAL . 


*• • • • 


.* 


. 



SVC24 X 

•••••B5*** *••*•• 

•TMEKEY GN 



X 
*FB 



REG 

EQUAL 

*C2 



••♦••01* 




• MOVE 


PIK 


* FROM 


COMM • 


*REG TO 


STORAGE • 


* KEY 0= SVC • 


* OLD 


PSW * 



USER HAY CHANGE THE 
SYSTEM MASK IN THE SVC 
CLD PSW VIA REGISTER 0. 



CLEAR 

PARAMETER 

REG A 



TIMER EVENT CONTROL 
BLOCK. USER 
SPECIFIES THE 
ADDRESS IN REG 0. 



SVC22A X 

•••••El******* 
*'EXCLUSIVE OR' 

* SVC 22 BOUND 

* AND SVC 2 

* BOUND BITS 

* IN PIB FLAG* 



••••Fl******* 

•EXCLIJSIVE OR* 
TRT FUNCTION * 
BYTE TO ALTER 
SCAN OF RIBS * 
*F2 * 



•F2 
THE FIRST SVC 22 ISSUED 
WILL ALTER THE PIB FLAG 
AND TRANSLATE AND TEST 





D3 *. 
















* ISSUED 


*. 


^0 




BY B-TRAN 








• . 


• 






*• •* 








*• •* 








*YES 




*GA • 
* Al* 

• • 

FCHRT2 












***E3******< 


• •• 














CLEAR FIK 








(REG 6) 








































*GA * 








• A2* 







(•••C5******** 

LOAD ACDR 

OF USER TECB 

INTO REG 1 

*C4 



•••••05********** 
*VLDA0R1 ^ GX* 

• VALIDATE * 

* END ADOR * 

OF TECB * 







****E5******* 
RESET * 
TRAFFIC BIT * 
IN USERS * 
TECB * 



•••••F5********** 
*COMPLEMENT USdR* 

* TECB ADOR AND * 

* STORE IN * 
*INTERVAL TIMER * 

* OPTION TABLE * 





••••Gl********** 




STORE LAST BYTE* 




OF REG IN * 




SYSTEM MASK * 




OF SVC OLD * 




PSW * 



SVC 26 

WITH 

(MPS AND STORAGE PROTECT OPTIONS) 



H4 *. 






.* SVC *. 






.* OLD PSW 


• • 


NO 


♦. KEY EQUAL 


•*•••« 


*. 


• 




*• •* 






*• •* 




X 


*YES 




• ••• 

• FB 

• B5 
• • 

• 


X 






• ••••J4****** »*• 




•VLDAORl 


GX< 




* VALIDATE 


, 




• ADDRESS 






• LIMITS 


»•• 





4 22 DOS System Control 



Chart GQ. SGSVC Macro — Program Check Interrupt, SVC*s 17 
and 18; Refer to Supervisor, Chart 14 
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Chart GR. SGSVC Macro — Program Check Interrupt; 
Supervisor, Chart 16 
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Chart GS, SGSVC Macro — External Interrupt with User OC or 
IT Routines; Refer to Supervisor, Chart 16 
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Chart GT- 



SGSVC Macro — External Interrupt Subroutines; 
Refer to Supervisor, Chart 16 
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Chart GU. SGSVC Macro — Program Check Interrupt; Refer to 
Supervisor, Chart 14 
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Chart GV. SGDSK Macro-Resident Disk Error Recovery (Part 1 
of 2) ; Refer to Supervisor, Chart 17 
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Chart GW. SGDSK Macro — Resident Disk Error Recovery (Part 
2 of 2) ; Refer to Supervisor, Chart 17 
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♦ CHART JA ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦D5*»**^*»+* 

* SVC 3 

* EXRTY ♦ 

* CHART FW ♦ 

t**ti***1)L^****** 



****^l^********* 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRJ ♦ 

♦ CHART NT ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦*♦♦ 



♦♦♦♦K3^^^^^^^^^ 

* SVC 3 FETCH ♦ 

* SSANERRMl ♦ 

* CHART JA ♦ 
*************** 
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Chart HP. 2321 ERP Error Analysis (Part 2 of 3) $$ANERRG; 
Refer to Supervisor, Chart 18 



♦HN ♦ 
♦ E3* 



INSERT ♦ 

MESSAGE ♦ 

NUMBER 08 * 

* 



.* * 

♦.INTERVENTION 
♦.REQUIRED .♦ 



* 

♦ INSERT 

♦ MESSAGE 

♦ NUMBER 09 

* 



.♦. 

E2 ♦. 
.♦ IS ♦. 

.♦RETRY COUNTS. 
. A MULTIPLE . 
♦. OF 16 .♦ 



FOlO 
YES .♦' 



♦ I ♦ 
ROI 



*. 



♦ SVC 3 ♦ 

* EXRTY ♦ 

• CHART FW ♦ 
*************** 



*****Qlt******* 

♦ * 

♦ TpRN ON 

♦ A-TYPE 

♦ FLAG 

♦ * 
********^nn,^i^* 



****^i^********* 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRM ♦ 

♦ CHART JA ♦ 
*********^****t 



****05********* 

* SVC 3 

* EXIGN 

* CHART FW 
********^f****** 



F3 ♦. 

♦ ♦ 

OVERRUN 



MISSING 
ADDRESS 
MARKER 



***** 
♦HQ * 
♦ A3^ 



***** 

♦ HQ ♦ 

♦ G3^ 



.♦ IS ♦. 
.♦ RETRY *. NO 
♦.GREATER THAN .♦,.. 



.♦. 

J3 ♦. 
.♦ IS 

.♦ RETRY 
COUNT 

♦ . ODD 



***«K3**««**«** 

♦ SVC 3 FETCH ♦ 

♦ S$ANERRI * 

♦ CHART HS ♦ 
*************** 



****yiit***iti*****: 

INSERT 

MESSAGE 

NUMBER 14 

***************, 



J4 ♦. 

.♦ IS ♦. 
.♦RETRY COUNTS. 
. MULTIPLE OF . 



**** 

♦ ♦ 

♦ 1 ♦ 

♦ * 
*♦** 



****K4********* 

♦ SVC 3 ♦ 

♦ CHART FH ♦ 
*************^* 
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Chart HQ 2321 ERP Error Analysis (Part 3 of 3) $$ANERRG; 
Refer to Supervisor, Chart 18 



***** 

♦HP ♦ 
♦ G3* 



* * 

* INSERT * 

* MESSAGE ♦ 

* NUMBER 18 * 

* * 
**********iti*^,***m 



TRACK 
CONDITION 
. CHECK . 



* * 

* TURN OFF 

* RETRY AND 

* IGNORE 

* FLAGS ♦ 

**********H^**:^ 



*****Q2********** 

* * 

* POST ♦ 

* CCB+3 WITH ♦X 

* -X'^0'- ♦ 

* * 
*iiHi*^t************ 



* SVC 3 

* EXIGN 

* CHART FW 



* SVC 3 FETCH ♦ 

* SSANERRH ♦ 

* CHART HR * 

**Hfi******HLit'**** 



*****^S*ti******* 

* 

* INSERT 

* MESSAGE 

* NUMBER 17 

* 
^m************** 



* INSERT 

* MESSAGE 

* NUMBER 17 

* 



^,^,it:t*y\2******* 

* * 

* TURN OFF 

* RETRY AND 

* IGNORE 

* FLAGS * 



CHANNEL 
CHAINING 
. CHECK 



* 

* INSERT 

* MESSAGE 

* NUMBER 19 

* 

*:^if*W:***********. 



^i:lf:t'**fit********* 



^tL^ti******* 



SVC 3 

EXIGN 

CHART FW , 

v**********ii* 



* SVC 3 FETCH » 

* $$ANERR^< * 

* CHART JA * 



^Lt^m^KS******^** 

* SVC 3 FETCH ♦ 

* $$ANERRMj ♦ 

* CHART JA ♦ 
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Chart HR, 2321 ERP Track Condition Check ($$ANERRH); Refer 
to Supervisor, Chart 18 



« $$ANERRH • 

• * 



•INITIALIZE REGS* 

• AND RELOCATE * 

• ADDRESS • 

• CONSTANTS • 



***«*C2*********« 

• HOVE LUBkD • 

• TO CCB • 

* AND SET UP • 

* RIK • 



**««*«D2«***4'**«*** 



READ 

• HOME * 

ADOR 



.* ALTERNATE ♦. 

TRACK 

♦ . .♦ 



*«*««C44i******«** 



«*********«**4i*4i* 



* * 

* COMPUTE ♦ 

* SEEK ♦ 

* ADDRESS ♦ 

* * 



* 

* POST END 

* OF CYLINDER 

* TO CCB 

* 



* SVC 3 * 

* EXIGN ♦ 

* CHART FW * 



X 

• ♦. 
E2 *. 



OIN 

* RESTORE CHAN 
•SCHEDULE FLAG. 

• * 



RSTFLG X 

•••44F2********** 
• RESTORE CHANQ * 
POINTER. 



«*********«****«« 



.♦ FILE *. YES 
♦PROTECT OPTION.*... 
♦. IN USE .♦ 



* ♦ 

* SET FILE 

* MASK COMMAND 

* TO NOP 

* * 



G2 *. 

.* 
.* ERROR 
ON 
*. I/O 



***«*G4********** 

* * 

* GET CHANNEL * 

* AND UNIT OF * 

* ERRONEOUS * 

* DEVICE * 



* 1 ♦ 

* • 



**«*«H4********** 

* * 

* LOAD WORK * 

* REG WITH * 
*ADDRESS OF CHK * 

* CSW ROUTINE * 



*«**J2**«**** 



J4 



.*. 



TUR 
RET 



«. 



^NORE 
FLAGS • 
•••••**•**•«* 



.* SYSTEM *. YES 
••HAVE STORAGE •*.... 
♦. PROTECT .* 
*. .* 
*. .* 
*N0 



« • 

*GET ADDRESS OF * 

.X* CSW AND * 

* STORAGE * 

* PROTECT KEY * 
**•••*••*•••••••• 



*«*«K2*******^* 
• SVC 3 FETCH • 

: mvA : 

••••••••••••••• 



«**«K4««*««**** 



•••••••••••••*• 
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Chart HS. 2321 ERP — Data Check/Missing Address Marker 
($$ANERRI); Refer to Supervisor^ Chart 18 



* $$ANERRI ♦ 



* INITIALIZE ♦ 

* REGS AND ♦ 

* RELOCATE ♦ 

* ADDRESS * 

* CONSTANTS ♦ 



lORTN HS 

*_♦_♦_♦_*_«_♦_♦_♦ 

READ 

♦ HOME ♦ 

ADDR 



E050 

* MOVE 

* HOME ADDRESS 
» TO MESSAGE 

* WRITER 



♦ 2 ♦ 

♦ ♦ 



**4c<i4cB3**4c«4i4i»4c4<4c 



*^*************** 



* ♦ 

» SUBTRACT * 

* 1 FkOM * 

* STRIP NUMBER * 

* * 



it<*4i**DA*4<4'4'*4<4'*** 



* lORTN * 

* * 



lORTN X 

♦ SAVE CHANQ ♦ 

* POINTER AND ♦ 

* CHAN SCHEDULE ♦ 

♦ FLAGS ♦ 



* INITIALIZE * 

♦ FOR » 

♦ SVC 15 » 

* ♦ 



SVC 15 

♦ EXECUTE * 

CHANNEL 

* PROGRAM ♦ 

************* 



*****f I******** 

* INITIALIZE 

* INTERNAL 

* RETRY 

* COUNTER 

*************** 

**** 

* * 

* 1 *.X. 

* * 
**** 

I X 

*****Ql******** 

* 

* SET UP 

* SEEK ADDRESS 

* I AND 2 
♦ 
*************** 



INTERNAL 
. RETRY 



****f 2********* 

* SVC 3 * 
♦FETCH $$ANERRK * 

* CHART HV * 
*************** 



************* 



****p-i********* 

* SVC 3 ♦ 

* EXKTY * 

* CHART FW * 
*************** 



CHANNEL 
QUEUE 
FULL 



****f/^********** 

RESTORE CHANC * 

POINTER AND ♦ 

CHAN SCHEDULE * 

FLAG:> * 

* 

**************** 



* RETRY ♦. YES 
A MULTIPLE ...... 

*. OF 32 .* 



B050 

*****J2********** 

♦ SET UP * 

♦ CCW IN CCB * 

♦ FOR NEXT ♦ 

♦ SEEK ♦ 

♦ * 
***************** 



* RESTORE * 

* CHANQ * 
» POINTER * 

***************** 



RSTFLG X 

*****(;^********** 

♦ RESTORE * 

* CHANNEL * 

* SCHEDULER » 

♦ FLAGS * 
***************** 



****j^t********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

♦ CHART JA * 
*************** 



****J5********* 

* ♦ 

* RETURN » 

* * 
*************** 



* 2 
♦ 
♦ ♦♦♦ 



♦♦KI********* 
SVC 3 ♦ 
EXRTY * 
CHART Fw * 
************* 



-*-*-*-*- 



SEEK ._ 

♦1ST AND LAST ♦ 

TRKS OF STRIP 

************* 



♦ 1 ♦ 

♦ ♦ 
♦ ♦♦* 



44 8 DOS System Control 



Chart HT. 2321 ERP — NRF/Missing Address Marker, NRF/Seek 
Check (Part 1 of 2) $$ANERRJ; Refer to 
Supervisor, Chart 18 



♦»A2»»»*»» 
StANERRJ 



»»»B2»»»»*«» 

INITIALIZE 

REGS AND 

AREAS 





••«*««A5»i 




»««*« 




lORTN 


HU 






-»-* 




SEEK AND 






* READ 






HA 






X 












B5 *. 






. » « 




Y 


ES .♦ I/O 


*• 




..». ERROR 


• • 




*. 










X 


*• 


.♦ 





♦.RECORD FOUND 



.*CCH OF «. 
HA EQUAL 
SEEK ADDR 



*MISSING» 
ADDRESS 
MARKER 



LOAD 

SEEK CHECK 

MESSAGE 



LOAD NO 

RECORD FOUND 

MESSAGE 



A06 


. *. 


»»***»E1«»*»«»»»»*« 


E2 ♦. 


lORTN HU 


. « «. 


*—♦—»—»-»-»-»—«-* 


LOW .♦ RETRY CNT *. HIGH 


RESTORE X.. 


». EQUALS ...... 


« STRIP » 


». 3 .♦ 



»«*E5»*»*»* 
,SVC 31 

'exign' 

CHART FW 



SEEK AND 
READ HA 
TRACK 



»«««F4***»**»» 

SET UP 

ADDRESS AND 

COMMAND CODE 

FOR SEEK 



SVC 3 
FETCH RTYEX 
CHART FW 



««*»J2»»***»»*» 
LOAD MESSAGE 
FOR NO RECORD 

FOUND AND 

MISSING ADDR 

MARKER 



«««»K 2*** ****** 



» I/O 

ERROR 
*. MESSAGE 



2 *. 

I/O 
ERROR 


*' 


* 


YES 


• »'*'**«G3*********** 
lORTN HU 
»—«—*—•-»—»—♦-«—♦ 
..•X SEEK AND 


**IORTN^*******H 
SVC 15 


• NO 




* READ HA * 
TRACK 19 


♦ SEEK I/O 


X 
• *. 

2 ». 








X 

*»«»»H3*********» 


H4'***. 


RETRY 
NTER EQ 


• 


^ 


« LOAD BLANK * 
» STRIP MESSAGE * 


.* I/O * 
». ERROR 
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Chart HU. 2321 ERP NRF/Missing Address Marker, NRF/Seek 
Check (Part 2 of 2) S$ANERRJ; Refer to 
Supervisor, Chart 18 



* lORTN * 

« « 



lORTN X 

* SAVE CHANQ • 

* POINTER AND * 
♦CHAN SCHEDULER • 

* FLAGS ♦ 

* * 



♦ INITIALIZE ♦ 

♦ FOR ♦ 

♦ SVC 15 ♦ 

4>«4i***4i4i**4i*«*4>*4i 



SVC 15 

♦ EXECUTE * 

CHANNEL 

• PROGRAM • 



RSTQPT X 

♦ RESTORE ♦ 



lOERR X 

♦ RESTORE ♦ 

* CHANQ * 
POINTER AND ♦ 



*4i4t*«c4i**4>******** 



RSTFLG X 

♦ RESTORE ♦ 
♦CHAN SCHEDULER ♦ 

♦ FLAGS ♦ 

♦ * 
***************** 



•♦♦♦J2^^^^^*4'^^ 



•*****•*««**»** 



*«**J3***««**** 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 



450 DOS System Control 



Chart HV. 2321 ERP — Continuation of $$ANERRJ ($$Z^NERRK) ; 
Refer to Supervisor, Chart 18 



* * 

* tSANERRK * 

* • 



INITIALIZE 

REGS AND 

AREAS 



•***••««**«**** 



♦ I ♦ 

* * 



•«*«*C2********** 
♦ SET UP ♦ 
•NISSIN6 ADDRESS* 
*HARKER MESSAGE • 



•*4i*«4i«*«*****«** 



RDVER X 

*4i«4>«C4******* 

POST DATA ♦ 
CHECK IN * 
CCB 
X»10« * 

* 



NO .* DATA *. 
...*. CHECK 

*. .* 



E2 *. 
.* USER *. 
.* REQUEST 
*. DATA CHECK 



• .♦ 

♦YES 



* * 

* TURN ON 

* PASS BACK 

* BIT 

************** 



***«*G2*******4><'* 

* SET UP DATA ♦ 

* CHECK * 

* MESSAGE ♦ 

* * 

* * 
****4>***«4>******* 



.* DATA 

«. CHECK ON 

»- COUNT 



* * 
• •** 



•****J2********** 

• SET UP DATA • 

• CHECK ON • 

• COUNT MESSAGE * 

• * 

••**•**•******•** 



•***K2********* 
♦ SVC 3 * 

•«*•*******•**« 



.♦ LAST ♦. 

CCW A * 

WRITE 
. COMMAND .* 



.* USER *. 
.*MANT VERIFY*. NO 
*. AND READ .*... 

*. ERROR .* 



* 
TURN ON 
PASS BACK 
BIT 

* 



**«**H4******* 

* TURN ON ♦ 

* VERIFY ERROR 

* IN CCB 

* x«20« 

* * 
************** 



•****J4********** 



***••*••**•**•*** 



NS6MTR 

X 

****iC4****«**** 

♦ SVC 3 ♦ 

«*********««*f* 
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Chart JA, Message Writer — Determine Action Type and 

Targets; $$ANERRM; Refer to Supervisor, Chart 19 



♦♦♦♦Al********* 

♦ ♦ 

♦ $$ANERRM ♦ 

♦ ♦ 



PHASEl 

♦ SET SYSTEM * 
♦MASK TO ENABLE * 

♦ INTERRUPTS ON ♦ 

♦ ALL CHANNELS ♦ 

♦ ♦ 



♦♦♦♦♦CI *♦♦♦*♦*♦*♦ 

♦ LOAD ADDR OF ♦ 
♦COMREG IN REGION 
♦ERBLOC IN REG 9* 

♦ PUB ENTRY FOR ♦ 
♦ERR DEV IN R15 ♦ 



♦ ZERO REG 12 * 

♦ TEST ERR FLAG * 
♦BYTE TO SEE IF * 
♦CCB FOR DEVICE * 

♦ IS AVAILABLE ♦ 



CCB 
AVAILABLE 

. FOR DEV . 



4t**4<*F I ♦♦♦*♦♦♦♦♦♦ 
♦INSERT POINTER ♦ 

♦ TO CHANO FROM ♦ 

♦ PUB ENTRY FOR * 

♦ DEVICE INTO ♦ 

♦ REG 12 ♦ 



*4i4<4>*Gl ♦♦♦♦♦♦♦♦♦♦ 

♦ MPY POINTER ♦ 

♦ BY A TO GET ♦ 

♦ DISPLACEMENT ♦ 

♦ IN CHANQ ♦ 

♦ * 



4c 4>4t4i4<H !♦♦♦♦♦♦♦♦♦♦ 

♦ ADD ADDR OF ♦ 
♦CHANQ TO DSPLT ♦ 
♦TO GIVE ACTUAL ♦ 

♦ ADDR OF CHANQ ♦ 

♦ ENTRY DESIRFD ♦ 



♦LD CHANQ ENTRY ♦ 
♦DATA IN R12 LD ♦ 
♦ADDR INST DROPS* 
♦ HI ORDER BYTE ♦ 
♦GIVING CCB ADDR^ 



X... 



CCBSTR 

4t***:^K !♦♦♦♦♦♦♦♦♦♦ 

♦STORE CCB ADDR ♦ 

♦ FROM R12 INTO ♦ 

♦ AREA WHERE ♦ 
♦NEXT PHASE CAN ♦ 

♦ GET IT TO USE ♦ 



♦ ♦*♦ 

* * 

♦ 1 ♦ 



♦ INSERT MSG ♦ 

♦ NUMBER FROM ♦ 

♦ ERROR QUEUE ♦ 

♦ INTO REG I ♦ 



^^.I'l'tC 3 ♦*♦♦♦♦♦♦♦♦ 

* TM THE MSG ♦ 

* NUMBER BYTE ♦ 
♦USE X'lO* MASK ♦ 

* TO SEE IF BIT * 
♦3 IS ONE *A4* 



03 ♦. 

.* MSG ♦. 

.* MUMBER IN 

*.IO'S OR 30'S 

♦. RANGE . 



♦ SUB 6 FROM ♦ 

* MSG VALUE TO * 

* CONVhRT FROM ♦ 
♦PACKED DECIMAL * 

♦ FORMAT TO HEX ♦ 



♦ A4 
FOR EXAMPLE, 
IF MSG CODE IS 
X'lO' THE MASK 
TEST IDENTIFIES 
BIT 3 AS ON. 

OOOIOOOO HAS VALUE 
OF 10 IN PACKED 
DECIMAL FORMAT AND MUST 
BE CONVERTED TO 
HEX FOR PURPOSES 
OF ADDRESSING THE 
MSG TABLE. SIX IS 
SUBTRACTED FROM IT 
LEAVING 00001010= 
HEX OA AS MSG NUM. 

EACH TABLE 
ENTRY IS TEN 
BYTES LONG SO 
THE NUMBER OF MSG 
IS MULTIPLIED BY 
.0. THE ANSWER 
HEX 6't IS THUS 
DISPLACEMENT IN 
THE MSG TABLE. 
ADO THIS TO MSG 
TABLE STARTING 
ADDRESS TO GET 
ACTUAL HEX 
ADDRESS OF 
APPROPRIATE MSG 
FOR ORIGINAL CODE. 



**4<**B5^** ♦♦♦♦♦♦♦ 

♦ LOAD ADDR OF ♦ 

♦ MSG TABLE * 
♦INTO R2 ADD Rl » 
♦TO GET ADDR OF * 

♦ ACTUAL MSG * 



* MOVE CHARS OF ♦ 

* ACTUAL MSG TO * 
*A SAVE AREA FOR* 

* USE BY OTHER * 

* MSGWTR PHASE * 



4****05*'****'***** 

* MOVE N INTO * 
» LAST CHAR POS » 
*0F FTCHNM FIELD* 

* TO IDENTIFY * 
» PHASE TO CALL * 



****£^^********* 

* SVC 3 » 

* $$ANERRN * 

* CHART JB * 
*************** 



.* MSG *. 
.* NUMBER IN *. NO 
*.20'S OR 30'S .♦... 
*. RANGE .* 



*****(^;i********** 

* SUB 12 FROM * 

* MSG VALUE TO * 

* CONVERT FROM * 
♦PACKED DECIMAL * 

* FORMAT TO HEX * 
***************** 



.* MSG *. 

NUMBER IN 
40'S RANGE 



*****j-^********** 

* SUBTR 24 FROM ♦ 

* MSG VALUE TO * 

* CONVERT FROM * 
*PACKED DECIMAL * 

* FORMAT TO HEX * 
***************** 



MSG4 

*****i(^2********** 

♦ MULTIPLY MSG ♦ 

♦ NUMBER IN Rl ♦ 

♦ BY MSG LENGTH ♦ 



***************** 



**** 

♦ * 

♦ 2 ♦ 

♦ * 
♦ *♦* 
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Chart JB. Message Writer — Determine Ownership (Part 1 of 

2); $$ANERRN; Refer to Supervisor, Chart 19 



* * 

* SSANERRN * 

* * 



•SET SYSTEM MASK* 

* TO ENABLE * 
» INTERRUPTS ON * 

* ALL CHANNELS * 

* * 



^**«*C1********** 

* LOAD ADDR OF * 

* COMREG IN RIO * 

* AND ERBLOC * 

* IN R9 ♦ 

* » 



^^'•••Ol********** 

♦ TEST ERROR * 

♦ FLAG IN ERROR ♦ 

♦ QUEUE FOR * 

♦ DEVICE FOR ♦ 

♦ OPTR INTERV ♦ 



♦♦♦♦ 

* * 

♦ I * 

» ♦ 








* * 


X 








• 


.♦. 

A2 *. 

.* ALLOM *. 

.* GNORE OR *. 

*. RETRY FLAG ON. 

*. N ERROR .* 

*. QUEUE.* 

*. .* 


X 


X 

* HOVE CHAR I * 
♦FOR INFORMATION* 

* FOR IGNORE ♦ 



«****B2********** 
*MOVE CHAR D FOR* 

* OPTR DECISION * 
*T0 ACTION FIELD* 

* BLANK OUT * 

* TARGl FIELD * 



.* ERR *. 
.* QUEUE *. NO 
♦ERR FLAG IGNORE*... 
♦. BIT ON .♦ 



«4[#4c*02****^***** 

* MOVE CHAR I • 
*INTO TARGl FLD * 

* TO INDICATE * 

* IGNORE * 

* ♦ 



♦ MOVE BLANK ♦ 
♦INTO TARG2 AREA^ 

♦ CLEARING R ♦ 

♦ PREVIOUSLY ♦ 

♦ THERE ♦ 



♦ ♦ . 

♦ 6 ♦.X.X.^ 

♦ ♦ . 

**** 
TST X 

♦ MOVE PROT 

♦ OF X'lO' I 

♦ FIELD CALL 

♦ PROTKEY II 

♦ SAVE ARE 



* * 

JC ♦ 
■ G4^ 



KEY 
NTO 
ED 



♦ 4 ♦ 

* * 



REQID 

PROG KEY 

= 



♦ INSERT BYTE ♦ 

♦ FROM LTK IN ♦ 
♦REG 10. STORE ♦ 
♦IT IN SAVE AREA^ 
•IN PROTKEY FLD ♦ 
***************** 



♦ MULTI ♦ 

PROGRAMMING 

♦.ENVIRON- .♦ 

♦.MENT .* 



.•. 


TSTRTY .♦. 




X 


El ♦. 




E2 ♦. 




*****£;i***L***** 


.♦ ♦. 




.♦ ALLOW ♦. 




*LD ADDR IN R15 


OPERATOR ♦. 


YES 


.♦ RETRY BIT •. 


NO 


♦ OF DEVICE PUB 


NTERVENTION . 


♦ . . . . 


♦.ON IN ERRFLAG. 


♦... 


♦ ENTRY GOTTEN 


.REQUIRED .♦ 




♦. OF ERR .• 




* FROM ERRQUE 


♦ . .♦ 




♦. QUEUE. ♦ 




♦ FOR DEVICE 


♦ . .♦ 


X 


♦ . .♦ 




*************** 


♦NO 


***** 
•JC * 

* 


♦ YES 







*****fl********** 

* MOVE CHAR I ♦ 
♦INTO SAVE AREA ♦ 

♦ FIELD CALLED ♦ 
♦ACTION. I MEANS^ 
♦INFORMATION MSG* 
***************** 



♦♦♦♦♦Gl ♦♦♦♦♦♦♦♦♦♦ 
♦MOVE CHAR I TO ♦ 
♦SAVE AREA FIELDS 

♦ CALLED TARGl. ♦ 

♦ I SIGNIFIES ♦ 

♦ IGNORE ♦ 
***************** 



*****y^l********** 

* MOVE BLANK TO * 
♦BYTE AFT TARGl * 

* TEST ERRFLAG ♦ 

* FOR PASSBACK ♦ 

* ACTION BIT ON * 
****************m 



*****f2********** 

♦ MOVE CHAR R ♦ 
♦FOR RETRY INTO ♦ 
♦SAVE AREA FIELDS 

♦ CALLED TARG2 ♦ 

♦ * 
***************** 



* 2 ♦.X. 

.X. 



♦♦♦♦ 
TSTCCB X 

*****Q2********** 

♦ LOAD CCB ADDR ♦ 

♦ STORED FROM ♦ 
♦PREVIOUS PHASE ♦ 

♦ INTO R14 LOAD ♦ 

♦ AND TEST REG ♦ 
***************** 



*****Cit********** 
♦ADD ADDR OF PIB^ 

♦ TABLE TO LTK ♦ 
♦TO GET ADDR OF • 

♦ PIB FOR PROG ♦ 

♦ INVOLVED * 
***************** 



*****Qi^********** 

♦ MOVE IDENT ♦ 

♦ PREFIX FROM ♦ 
♦PIB INTO PRINT ♦ 

♦ LINE AREA ♦ 

***************** 



.♦ DEV ♦. 

SHARED BY 

BG AND F2 
. JOBS 



*****QS********** 

♦ MOVE ♦ 

♦ IDENTIFYING ♦ 

♦ CHARACTERS ♦ 

♦ BG TO PRTLINE ♦ 

♦ ♦ 
***************** 



♦ DEV ♦ 

ASSIGNED TO 
♦. BG PROG .♦ 



****D^********** 

MOVE ♦ 

CHARACTERS ♦ 

Fl INTO ♦ 

PRINT LINE ♦ 

AREA » 

**************** 



.♦ DEV ♦ 

ASSIGNED 

TO Fl 

JOB 



♦ ♦♦♦ 

♦ ♦ 

♦ 7 ♦ 



F3 ♦. 
.♦ CCB ♦. 

.♦ AVAILABLE ♦. NO 
♦.ENTRY GOTTEN .♦... 
♦. DEVICE .♦ 



*****f^********** 

♦ MOVE ♦ 

♦ CHARACTERS ♦ 

♦ F2 INTO ♦ 

♦ PRINT LINE ♦ 

♦ AREA ♦ 
***************** 

**** * **** 



* 7 ♦.X.X. 



JC 



♦♦♦♦♦G3^ 

♦ ZERO REGS 12 ♦ 
♦AND 14. INSERT^ 

♦ CHANQ POINTER ♦ 

♦ FROM PUB INTO ♦ 

♦ R14 ♦ 
***************** 



CCBUNAV X 

*****Qt^********** 

♦ MOVE CODE ♦ 

♦ SP FOR SUPVR ♦ 

♦ TO PRINTLINE ♦ 

♦ AREA ♦ 

♦ ♦ 
***************** 



H2 ♦. 








H4 ♦. 


.♦ ♦ 






♦ ADD ADDR OF ♦ 


.♦ PUB ♦. 


.♦ IS 


•. 


YES 


♦LUBIDQ AND ITS ♦ 


.♦ JOB CTRL ♦ 


*. CCB ADDR 




♦ ... . 


♦ LENGTH TO R14 ♦ 


♦.FLAG SHOW DEV 


*. REG = 


** 




♦ NOW HAVE ADDR ♦ 


♦. USED BY .♦ 


♦ . .♦ 






♦OF REQID OF DEV^ 


♦. SUPVR. ♦ 


♦. .♦ 




X 


******ii********** 


♦ . .♦ 


♦ NO 




♦ ♦♦♦ 

♦ ♦ 

♦ 6 ♦ 


'. 


♦YES 


: 




♦ ♦ 
♦ ♦*♦ 


: 


• 



♦♦♦♦ . ♦♦♦ 

CALPHS3 X 

*****(^^********* 

♦ MOVE CHAR 

♦ TO LAST CHAR 

♦ POS OF FTCHNM 
♦TO IDENTIFY NXT 

♦ PHASE TO CALL 
**************** 



*****W^********** 

♦ LOAD ADDR OF ♦ 

♦ LU8TAB IN R13 ♦ 
♦TEST IF SYSLOG ♦ 

♦ LUB IS ♦ 

♦ ASSIGNED ♦ 
***************** 



.* PASSBACK *. 

*.T0 USER FLAG . 

*. ON .♦ 



* 2 ♦ 

« « 
**«* 



*****K1*«******** 

* MOVE CHAR C * 
*INTO SAVE AREA * 

* FIELD CALLED * 
9 TARGl MEANING * 
« CANCEL * 



*****J2********** 

* TURN ON * 
*BIT 2 IN BYTE 2* 
*0F CCB MEANING * 

* UNRECOVERABLE * 

* I/O ERROR * 
♦••*•**•♦♦♦**•*•♦ 



* DOES *. NO 

USER ACCEPT .*.... 
*. ERROR .* 
*. .♦ 

*. .♦ X 
♦YES ♦**♦ 

* * 

* 6 * 
X * ♦ 



*****j'i***lf****** 
*INSERT BYTE FRM* 
*REQIDQ IN R12. * 
*THIS IS KEY OF ♦ 
* PROG TO WHICH * 
*OEVICE BELONGS * 
***********i****** 



.* DEV ♦. 
YES .* SHARED BY *. 
...♦. BG AND Fl . 

*. JOBS .♦ 



NO .♦ IS 
...♦. SYSLOG 

♦.ASSIGNED . 
I". .♦ 



X 

• •**• 
•JC ♦ 

♦ B2^ 



♦ ♦♦•• 
•JC ♦ 

• Bl* 



.♦ DEV *, 




.YES .* SHARED BY 


* 


X.,.*. Fl AND F2 




♦. JOBS 


• 


*. .♦ 




X *. .* 




♦«*** «N0 




♦JC * 




* B5* 





» 3 • 

* * 
•**• 
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Chart JC. Message Writer — Determine Ownership (Part 2 of 
2) $$ANERRN; Refer to Supervisor, Chart 19 



***** 

*J8 * 
♦ J5* 



***** 

*JB * 

♦ El* 

* * 



♦JB-J4 
JB-K4 
JB-A5 



*«***B1 ********** 

* UNPACK HSG NO * 

* FROM ERRORQUE ♦ 

* AND HOVE TO • 
♦PRINTLINE AREA * 

* * 
*4i**«*4i4i«**4i4>*4i4[4i 



****»Cl*4>*:» 4141*4. 4>» 
♦MOVE CHARS FROM* 

* ACTION AND ♦ 

* TARGl FIELDS * 

* TO PRINT LINE » 

* AREA * 
*4>*************** 



*:»***01 ********** 

* HOVE CHARS OF ♦ 

* HSG STORED IN * 

* SAVE AREA BY * 
*PREVIOUS PHASE ♦ 

* OF MSGWTR RTN ♦ 

4i****4>*********** 



*****El*4t******** 

* HOVE PREFIX * 
*CODE FROM PRINT* 

♦ LINE AREA TO * 

♦ SAVE AREA FOR * 

* FUTURE USE * 

4i***4c************ 



«4i**Pl****«***4> 

♦ SVC3 * 

♦ »$ANERRO * 

♦ CHART JD * 

:»4i*4>*********** 



NOLOG X 

***4i4>B2********** 

♦ MOVE CHAR R * 

♦ TO LAST CHAR ♦ 

♦ POS OF FTCHNM ♦ 

♦ TO IDENTIFY ♦ 

♦ PHASE TO CALL * 
**4i**4i*4<********* 



.♦ ACTIUN OF *. 
. HSG TO GIVE . 
*INFORMATION* 



**4<**D2 ♦*♦*♦♦♦♦♦♦ 
♦MOVE X«FF« INTO* 

♦ SAVE AREA OF ♦ 

♦ CCB AODR AS ♦ 
♦FLAG TU SHOW NC^ 

♦ MSG PRINTED ♦ 

*;»4'************** 



*♦* 



♦ I 



**** 

EXIT X 

*4i*4>*E2^^^^^^^^^^ 

♦ MOVE CHAR S ♦ 

♦ INTO LAST POS ♦ 
♦OF FTCHNM FIELDS 

♦ TO IDENTIFY ♦ 
♦NEXT PHASE CALL^ 

4i**4[4i4c4i«:»4i*«*4i4i4E4i 



*4'**F2*^^^^^^^^ 

♦ SVC 3 ♦ 

♦ $iANERRR OR ♦ 

♦ $$ANERRS ♦ 
4< ************** 

CHART JH OR JJ 



ATYPE X 

4c****B3*^^^^^^^^^ 

♦ SET SYSTEM ♦ 

♦ MASK TO ♦ 

♦ PREVENT ALL ♦ 

♦ INTERRUPTS ♦ 

♦ * 

4i4>4c************** 



4>****C3******^^^^ 

♦ MLVE CHAR A ♦ 

♦ INTO ACTION ♦ 
♦FIELD AND BLANKS 
♦INTO TARGl AND ♦ 

♦ TARG2 FIELDS ♦ 
41 4i*4<** *********** 



4c****03^^*^^^*^^^ 

♦ LOAD ADDR OF ♦ 

♦ PUB ENTRY FOR ♦ 
♦DEV FROM ERROR ♦ 
♦QUEUE INTO R15 ♦ 

♦ * 
i******** 



£3 ♦. 

.♦IS DEV ♦. 

.♦QUEUED FOR ♦. 

♦ERROR RECOVERY. 



RESET X 

*****B5********** 
♦MOVE I CODE FOR^ 
♦INFORMATION TO ♦ 

♦ FIELD NAMED ♦ 

♦ ACTION ♦ 

♦ » 
***************** 



*****C5********** 

♦ MOVE I FOR ♦ 
♦IGNORE TO TARGL^ 
♦FIELD AND BLANKS 

♦ INTO TARG2 * 

♦ FIELD ♦ 
*****4i4i****4>***** 



***** 
♦JB ♦ 
♦ G5^ 



*4<***F3********** 

♦ MOVE X»40' ♦ 

♦ IHJO FIELD ♦ 

♦ NAMED EXTOPT ♦ 

♦ TO USE AS AN ♦ 

♦ OPTION FLAG ♦ 

4i4c4[4<** *********** 



OPFLAG 

4<****F4********** 
♦TURN ON BIT IN ♦ 
♦CHAN SCHED FLG ♦ 

♦ OF PUB ENTRY ♦ 

♦ Tu SHOW DPTR ♦ 

♦ INTERV NEEDED ♦ 
41*************41** 



*4c***G4^^^^^^^^^^ 
♦SET SYSTEM MASK+ 

♦ TO ENABLE ♦ 

♦ INTERRUPTS ♦ 

♦ ON ALL ♦ 

♦ CHANNELS ♦ 
**4i************** 



***** 
*JB ♦ 
♦ C3^ 
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♦ ♦ 

♦ $$ANERRO ♦ 

♦ * 
*************** 



* * 

* I ♦ 

* * 



* « 

♦ 2 ♦ 



* * 

» 4 ♦ 



»♦♦♦ 

* * 

* 5 * 



PHASE3+8 X 

♦SET SYSTEM MASK* 
» TO ENABLE » 

♦ INTERRUPTS ♦ 

♦ ON ALL ♦ 

♦ CHANNELS * 



**«**C1 ********** 

* LOAD AODRS OF * 

* COHREG IN RIO * 

* AND ERBLOC * 

* IN R9 * 

* * 
***************** 



SWITCH X 

*****0L********** 

* 2 XC AND 1 * 
*EXEC INSTR ARE * 
*USED TO SWITCH * 

* DATA BETWEEN * 

* 2 LOCATIONS * 
*****«*4i**:|i**«*«« 



*****E1********** 
*L0 ADOR OF DEV * 

* PUB ENTRY IN * 

* RL3 ADOR IS * 

* OBTAINED FROM * 

* ERROR QUEUE * 
***************** 



*****FX********** 
*LD ADOR OF CCB • 
*SAVED FROM PREV* 
*PHASE INTO R12,* 

* ZERO Rlt LOAD * 

* AND TEST R12 * 
***************** 



*****B2****«***** 
*CONVERT TO PKD * 
*DCML FORMAT THE* 
*UNIT NUMBER OF * 

* DEVICE AND * 

* STORE IT * 
***************** 



*****C2********** 

* UNPACK UNIT * 
*N0. INTO ZONED * 
*OCML AND PUT IN* 

* PRINT LINE * 

* AREA * 
***************** 



*****D2 ********** 

* OR X'FC * 

* TO LOW ORDER * 

* POSITION TO * 
*ELIMINATE SIGN * 

* * 
***************** 



**** 
U X 
*****E2********** 
*UNPK. CHAN AND * 

* UNIT FROM PUB * 

* ENTRY FOR DEV * 

* AND PUT IN * 
*PRINT LINE AREA* 
***************** 



**F2******* 
* TRANSLATE * 

* CHAN AND 

UNIT TO 

* PRINTABLE 
•CHARACTERS * 

*********** 



.* AODR *. 

.*0F CCW FROM*. 

*.CSW LESS THAN. 

*. 8 .* 



*****C3*********« 

* HOVE CCW ADOR * 

* FROM CSW TO * 

* SAVE AREA * 

* CALLED ♦ 

* CSHOLO * 
***************** 



*****03********** 

* LOAD ADDR IN * 
*CSHOLD INTO Rl * 

* SUB 8 GIVING * 

* ADOR OF LAST ♦ 

* USED CCW * 
***************** 



*****E3********** 

* GET CMNO CODE * 

* OF LAST USED * 

* CCW AND PLACE * 

* IN CSW PRINT * 

* ASSEMBLY AREA * 
***************** 

***♦ I 

* * . 

* 3 *.X. 

* * .X 

**** 
LACSW X 

*****P3********** 

*LD ADDR OF ERR * 
*QUEUE ENTRY FOR* 
*OEV IN Rl FIRST* 
*8 BYTES IS CSW * 

* * 
***************** 



*****BiV********** 

* GET CCB ADDR * 
*FROM AREA WHERE* 

* SAVED BY * 
*PREVIOUS PHASE * 

* UNPK CCB ADDR * 
***************** 



**CA******* 

♦ TRANSLATE ♦ 

* CCB ADDRESS * 
*INTO PRINTABLE 

* CHARACTERS * 

* * 
*********** 



CALPH4 X 

*****B5********** 
*MOVE P CHAR TO * 

* LAST CHAR POS * 

* OF FTCHNM TO * 
*IDENTIFY PHAbE * 

* TO BE CALLED * 
***************** 



****C5********* 

* SVC 3 * 

* SSANERRP * 

* CHART JE * 
*************** 



DEVICE * 
2311 DISK 
DRIVE .♦ 



E4. *. 
.* WAS ♦. 

.* ERROR A *. 

*. PROGRAM CHECK. 

*. .* 



*****F4********** 

* .TURN ON BIT * 
♦INDICATING DASD* 
♦ERROR IN ERRFLG* 

* OF ERRORQUEUE * 

* * 
***************** 



NOCCB X 

*****E5********** 
*LOAD 10 INTO Rl* 
» WILL POINT TO » 
*XXX IN SYS SYM * 
*IDENT TABLE FOR* 

* UNKNOWN UNIT * 
***************** 

* . 

* . **** 

* . * * 

* ...* 7 * 

* . * * 

**** 
SYCLAS X 

*****F5********** 

* MPY SYM UNIT * 
*N0. IN Rl BY 3 * 
*T0 DISPLACE IN * 
*SYM UNIT IDENT * 

* TABLE * 
***************** 



.*. 

Gl *. 

.* R12 *. 

.♦ EQUAL 0, *. 
. INDICATING . 
^ NO CCB .* 



*. 



,* 



*****Q2 ********** 

* MOVE X'FQ» * 
*INTO PRINT AREA* 
*CSW MAKING 1ST * 

* 2 BYTES ZERO * 

* * 
***************** 



* 6 ♦ 

* * 
**** 



*****G3***«****** 

* UNPK ADDRESSt * 
*STATUS, AND CNT* 

* FLOS OF CSW. * 

* PUT IN CSW * 
♦PRINT LINE AREA^ 
***************** 



.* CCB *. 
NO .* ADDRESS 
...*. AVAILABLE 
*. FOR DEV . 

*. .* 
X *. .* 
**** *YES 

* * 

* 9 * 

* * 

• *** . 



*****G5********** 

* LD TABLE ADDR * 
*INTO R2 ADO Rl ♦ 

* DISPLACEMENT * 

* TO GET PROPER ♦ 

* SYMBOLIC NAME * 
***************** 



*****H1********** 

* CMP SYM UNIT * 

* ADDR 1ST BYTE * 

* (LUB CLASS) « 

* WITH X'OO' TO * 
*SEE IF SYS LUB * 
***************** 



•****H2 ********** 

* TEST CSW IN * 

* ERRQUE ENTRY * 

* FOR INCORRECT * 

* LENGTH -I/O * 
*PROG CHK ERROR * 
***************** 



**H3******* 
* TRANSLATE * 

* ASSEMBLED 
CSW INTO 

* PRINTABLE 
*CHARACTERS * 

*********** 



*****H4********** 

* MOVE CCW AODR ♦ 

* FROM THE CCB * 
*INTO SAVE AREA * 
*LD AODR OF CCW * 

* INTO REG 1 * 
***************** 



IT TO PRINT 

* ASSEMBLY AREA * 

***************** 



*****J1********** 

* INSERT IN Rl * 

* THE SYM UNIT » 

* LUB NUMBER * 

* OF CLASS » 

* * 
***************** 



•« HAS *. 
.♦ DEVICE ♦. YES 
*.A SYSTEM LUB ••.... 
*. .♦ 



.* I/O *. 

.♦ PROGRAM *. YES 
*. CHECK ERROR .*... 



K2 ». 

.*AODR OF*. 

•CCW FROM CSH*. NO 

••WITHIN UPPER •*... 

*• STORAGE .* 

♦.LIMIT.* 

• • .♦ 

*YES < 



*****j3********** 
♦GET SENSE BYTE * 
*OATA FROM ERROR* 
*QUEUE AND UNPK * 

* PUTTING IT IN * 

♦ PRINT AREA ♦ 
***************** 



«*K3******* 



DATA INTO 
♦ PRINTABLE 
♦CHARACTERS ♦ 
****•*♦••** 



♦ 7 ♦ 

* * 



*****J4********** 
♦LD ADOR OF SEEK* 
♦FIELD INTO REGl^ 
♦ UNPK 1ST TWO ♦ 
♦BYTES (BB) AND ♦ 
♦PUT IN PR AREA ♦ 
***************** 



**** 
UNPCH X 

**K4^^^***^ 
♦ UNPK CCHH ♦ 



♦IT PLUS BB TO^ 
♦PRINT CHARS^ 
*********** 



♦ I ♦ 

* • 
*♦♦♦ 



♦ 5 ♦ 

• • 
*•*♦ 



Appendix H. Detailed Flowcharts 455 



Chart JE. Message Writer — Output Message; $$ANERRP; 
Refer to Supervisor, Chart 19 



* 1 ♦ 

* * 



**** 

* * 

* 2 ♦ 

* * 






• SSANERRP * 

* * 



PHASe4+8 X 

*SET SYSTEM MASK* 

* TO ENABLE * 

* INTERRUPTS ♦ 
*0N ALL CHANNELS* 

* * 



* LOAD AODRS OF * 

* COMREG IN RIO * 

* ERBLOC IN R9 * 
♦START OF PRINT ♦ 

* LINE IN Rl ♦ 



.*. 

Dl ♦. 

.♦SYSTEM ♦ 

IN HULTI 

PROGRAM 

.ENVIRON- 

♦.MENT .♦ 

♦ . .♦ 

♦NO 



♦ LA OF PLINE+3 ♦ 
♦IN RI2 TO SKIP ♦ 

♦ PROG ID PRINT ♦ 
♦SET LOWER BYTE * 

♦ COUNT IN CCWl ♦ 



RELOC X 

♦♦♦♦♦F I ♦♦♦♦♦♦♦♦♦♦ 
♦SET PLINE+3 AS ♦ 
♦CCHl DATA AODR ♦ 
♦LA OF STARTING ♦ 
♦POINT OF PRINT * 
♦ LINE 2 IN RI ♦ 
4<*4t*«4i****«*4i4> 41*41 



♦♦♦♦♦61 ♦♦♦♦♦♦♦♦♦♦ 
♦PUT ADDR IN Rl ♦ 
♦IN DATA ADDR OF^ 

♦ CCW2 LA OF ♦ 

♦ 1ST CCW OF ♦ 

♦ CHAIN INTO Rl ♦ 
**4i4i4<4i4i*4i4i4>4i4i4<*4i* 



*4i4[4i4'Hl ♦♦♦♦♦♦♦♦♦♦ 
♦ST ADDR OF 1ST ♦ 
♦CCW INTO LOGCCB^ 
♦LD PUBTAB AOOR ♦ 
♦IN RlAf LD LUB ♦ 
♦TBL ADDR IN R13^ 

*4r**4i4<4>*4c******** 



.♦ SYSLOG ♦. NO 
. A PRINTER .♦... 
♦. .* 



*****K1 ♦*♦♦♦♦♦♦♦♦ 

♦ MOVE CARRIAGE ♦ 
♦SKIP TO 1 CMNO ♦ 
♦CODE INTO CCWO ♦ 
♦MOVE CHAIN FLAG^ 

♦ INTO CCH2 ♦ 
***************** 



ER^TYP .♦. 

A2 *. 
.♦ ERROR ♦• 
.* REQUIRE ♦. YES 
*. OPERATOR ...... 

♦. INTERV .♦ 
♦ . .♦ 



♦ 9 ♦.X. ' 

♦ ♦ . 
**** . 

COUNTRG X 

4i4>4i*4>B2*******^^^ 

♦ LOAD 3 INTO ♦ 

♦ RIO TO COUNT ♦ 

♦ ERROR RETRIES ♦ 



♦ 5 ♦.X. 

♦ ♦ . 
**** 

LOGENT X 

****4t(;2*****^**** 
*ZERO Rl INSERT ♦ 

♦ PUB POINTER ♦ 

♦ FROM LUBTABLE ♦ 

♦ FOR SYSLOG ♦ 

♦ IN Rl ♦ 
***************** 



*****D2********** 
*MPY POINTER BY * 

* 8 TO DISPLACE * 

* IN PUBTAB TO * 

♦ SYSLOG ENTRY ♦ 

♦ ♦ 
***************** 



♦ADD PUBTAB ADDR^ 
♦TO Rl FOR ADDR ♦ 

♦ OF ACTUAL ♦ 

♦ SYSLOG ENTRY ♦ 

♦ * 
***************** 



♦ MOVE CHANQ ♦ 

♦ POINTER BYTE ♦ 

♦ FROM PUB INTO * 

♦ INSTR NAMED * 

♦ RSTQPT * 
************** 



*****G2******* 

* MOVE CSFLAG* 

* BYTE FROM PUB* 

* INTO INST AT * 

* LABEL RSTFLG ♦ 
« * 
************** 



*****H2^^^^^^^^*^ 
♦MOVE 'FF' NULL ♦ 

♦ CHANQ POINTER ♦ 

♦ INTO PUB AND ♦ 
♦ZERO PUB CSFLAG^ 

♦ BYTE ♦ 
***************** 



.♦. 

J2 ♦. 

.♦ DASD ♦. 

.♦ ERROR ♦ 

.INDICATED IN 

♦. ERRFLAG .♦ 



*****K2^^^^^*^^^^ 

♦ MOVE LARGER ♦ 
♦BYTE COUNT INTO^ 

♦ CCH2 FOR MORE ♦ 

♦ PRINTED INFO ♦ 
♦DUE TO DISK ERR^ 
***************** 



♦ KEY 'Ol* INTO ♦ 

♦ RIK FIELD OF ♦ 
ERBLOC 



A4 *. 
.* SUB *. 
.•I AND TEST ♦. NO 
♦.REG 10 IS IT ...... 

♦.EQUAL TO .♦ 



***************** 


♦. .♦ 




♦YES 




♦**♦ 




♦ ♦ • 




♦ 4 *.X. 




♦ ♦ . 




♦♦♦« , 


X 


lOERR X 


*****B3********** 


*****B4******* 


♦LD REG 15 INTO ♦ 


* ALTER INSTR^ 


♦ REG SO ♦ 


* AT LABEL INST^ 


♦ REG WILL ♦ 


♦ FROM NOP 


♦NOT HAVE VALUE ♦ 


♦ TO BRANCH ♦ 


♦ OF ZERO ♦ 


* * 


***************** 


************** 



ACTIONA X 

*,LD AQDR TAKEN * 
♦FROM ERBLOC FOR* 

* PUB EMTRY OF ♦ 

* DEV IN ERROR * 

* INTO Rl * 
♦•**t******4i****** 



******C3*********** 

SVC 15 

♦ PRINT TWO ♦ 

LINES OF 

♦ ERROR ♦ 

INFO 

************* 



*****03********** 

* TEST REG ♦ 

* FOR ZERO - * 
*NOT ZERU MEANS * 

* CHANQ FULL * 

* * 
***************** 



*****C4********** 
♦EXECUTE RESTORE* 

♦ INSTRS AT * 

♦ LABELS RSTQPT * 

♦ AND RSTFLG ♦ 

♦ ♦ 
***************** 

*♦** I 

♦ ♦ . 

♦ 11 ♦-.. 

♦ ♦ . 
♦♦♦♦ X 

NOLOG .♦. 

D4 ♦. 

.♦ IS ♦. 

.♦ERR ACTION ♦. Nl 

♦. INFORMATION .*. 

♦. MSG TO .♦ 

♦.OPTR .♦ 

♦ . •♦ 

♦YES 



INDICATE NO 

♦ MSG PRINTED * 

***************** 





X 






• *• 

B5 *. 




YES . 


,*CSFLAG *. 
*!n PUB SHOW*. 


...*• 


DEV IS .* 




*. BUSY .♦ 






♦. •* 




X 


*. •• 




*••* 


*N0 




* 


*•** 


« 9 • 


. * 


• 


• 


.X.* 12 


• 


**♦* 


, ♦ 


• 




***• 


RTYRTN X 




*****C5********** 


* 




• 


* 


MOVE X«40« TO 


• 


* 


EXTOPT 


• 



***************** 



NO 



lODONE .*. 

E5 *. 

.* ERROR *. 

.♦ACTION CALL*. 

.FOR OPERATOR . 

*.OECISION .* 

*. .* 



**** 



*****P3********** 

* TEST TRAFFIC * 

* BIT IN CCB * 

* FOR ON * 

* CONDITION « 

* * 
***************** 



I/O 
OPERATION 
.COMPLETE . 



* HOVE ORIGINAL * 

♦ CHANQ POINTER ♦ 

♦ BACK INTO PUB ♦ 

* * 
***************** 



RSTFLG X 

*****j3********** 

* MOVE ORIGINAL * 

* CHANNEL * 
*SCHEDULER FLAG * 

* BACK INTO PUB * 

* * 
***************** 



♦ 7 *.X. 

♦ * . 
**** . 

PHASES X 

*****G4********** 

♦ MOVE CHAR S ♦ 
♦INTO LAST CHAR ♦ 

♦ POS OF FTCHNM ♦ 
♦TO IDENTIFY NXT^ 

♦ PHASE CALLED ♦ 
***************** 



****H4******^** 

♦ SVC 3 ♦ 

* SiANERRS * 

• CHART JJ * 
*************** 



CALPH5 X 

*****P5********** 
*MOVE Q CHAR TO * 

* LAST CHAR POS * 

* OF FTCHNM TO ♦ 
♦IDENTIFY PHASE * 

* TO BE CALLED * 
***************** 



INST .*. 

G5 *. 

.* SW *. 
.* BRANCH *.BRNCH 



: 

*NOOP 


****H5********* I 

|$ANERRQ • I 

**••*****•***** * 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 

* 10 * 

* * 
**** 



.* *. 

.* ACTION A *. 
. INDICATED . 
♦ . .* 



* 11 ♦ 

* * 
**** 



*****j5***«****** 
•MOVE R CHAR TO * 
- LAST CHAR POS ♦ 



***************** 



****K5********* 

* SVC 3 * 

* $$ANERRR * 

* CHART JH * 
*************** 



* 12 ♦ 

• * 
**** 
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Chart JF. Message Writer — Read Operator Reply (Part 1 of 
2) S$ANERRQ; Refer to Supervisor, Chart 19 



* • 

• 3 • 



•***A1********« 



•***•*«•«•••*«• 



«****B1****«****< 



••\*********««**> 



ALLOW 

• INTERRUPTS ON * 

* ALL CHANNELS * 



♦ IS ♦. 

SYSLOG *. YES 
A PRINTER .*.... 



•JG ♦ 
* 03* 



• GET ADDRESSES * 

• OF PUB-TABLE » 

• AND LUB-TABLE ♦ 



***«****4.««*4>**4i* 



* STL.._ 

* OF CONSTANTS 
*FOR ZEROING THE* 
4> DATA ADOR AND * 

* FLAGS OF CCH * 



«*««4iG14>********* 

* LOAD ADDRESS * 

• OF OPNND * 

♦ INVALID RESP- ♦ 
« ONSE MESSAGE * 

♦ INTO R2 ♦ 
***************** 



*****H1********** 



****«B2********** 

♦ HOVE A X«23' ♦ 
♦INTO BYTE COUNT* 

• AREA OF CCW * 

* TO REDUCE THE * 

* LENGTH BY 3 * 
***************** 

**** * 



**** 

X 
*«***(;2********** 

• STORE ADDRESS • 

* OF MESSAGE * 

• LOCATED IN R2 • 
*INTO DATA ADDR * 

♦ OF OUTPUT CCW * 
***************** 



*****D2********** 

* STORE ADDRESS * 

* OF FIRST CCW * 



***************** 



*****E2********** 

* STORE ADDR OF * 

* BYTES TO ZERO * 

* DATA ADDR AND * 
*FLAGS OF FIRST ♦ 

* CCW IN CHAIN * 
***************** 



*****F2********** 



***************** 



*****G2********** 

* MOVE PREFIX * 

* TO MESSAGE * 

* LINE ♦ 



***************** 
**** I 



♦JG *.X. 


, 


, 


* Gl* 






*•** 




X 


JNTRG X 


SSNASK X 


NOPBR .*. 


*****B3****»***** 


*****B4********** 


B5 *. 


* SET REGISTER * 


* SET SYSTEM * 


.*SW TCH *. 


*10 WITH NUMBER * 


* MASK TO * 


ON .* TO BRANCH *. 


* OF RETRIES * 


: .stisgii^TS'-bN : 


..••IN CASE OF I/O.* 


(3) * 


*. ERROR .* 


* * 


* ALL CHANNELS * 


*. -♦ 


*****4i*4t**«****** 


*********«**•««** 


X *. .* 

***** *OFF 


**«* I **** 




*JG * 


* * . * * 


* 


* B2* 



♦ 5 ♦.X.. 



JG 
* B3* 
**** 



•JG *.X. 
• D2* 
•**♦ X 
MPSTST .♦. 
H2 



* COMPARED TO A 

* X«40( FOR MPS 
ENVIRONMENT 



***************** 



*****J2********** 



* LOAD ADDRESS 
*0F CCW TO READ 

* REPLY INTO R2 



^SS CHANGE 

*••*••****••••••• 



•ADDRESS CHANGE 



• 2 • 

• * 
•••• 



•****Kl ••••****** 
•BYPASS PRINT ING^ 

• PREFIX IN • 

• OPNND INVALID • 

• RESPONSE HSG • 

• IN R2 • 
*•****•****•*•*** 



• STORE ADDRESS • 

• OF ecu INTO • 

• CCH ADDRESS • 
•AREA OF OUTPUT • 

• CCB • 
••**•***•*•«*•**• 



**** 
LOGENT X 

***«*C3***«****** 

• CLEAR Rl AND • 
•INSERT ABSOLUTE^ 

• ADDRESS OF • 

• PUB ENTRY FOR • 

• SYSLOG • 
^^^^^^t*********** 



*****D3********** 

• MOVE POINTERS * 

• TO CHANQ AND * 

• CHAN SCHED • 

• FLAGS TO SAVE • 

• AREAS • 
***************** 



*****E3*^******** 

* MOVE ZEROS * 
*T0 POINTERS TO * 

* CHANQ AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



*****P3********** 

* LOAD ADDRESS * 

* OF OUTPUT CCB * 

* INTO ADDRESS * 
» OF PUB ENTRY, * 

* REGISTER 15 * 
***************** 



*****G3********** 

* MOVE A X'Ol* * 
*INTO REQUESTORS* 

* I/O KEY FOR * 

* SYSLOG * 

* REQUEST * 
***************** 



•****H3*******«** 

* LOAD REGISTER * 

* WITH CCB * 

* ADDRESS * 

* * 

* * 
***************** 



.* 

**YES 



X 
*****04********** 




.*. 

D5 *. 


* LOAD PSW WITH * 


Iyes 


.* *. 


* WAIT ROUTINE * 




* OPERATOR * 


* AND GO NTO * 


I,,*', 


RESPONSE A 


* THE WA T * 




*. RETRY ,* 


* STATE * 




*. .* 


***************** 




*. .* 




***** 


*ND 




*JG * 






* 63* 






* * 




...X. 


KRETRY 






i 


X 




.*. 






E5 *. 


* SET SYSTEM ♦ 




.* *. 


* MASK TO ♦ 


YES 


♦ OPERATOR 


* ENABLE ♦ 


...* 


RESPONSE AN 


♦ INTERRUPTS ON * 




*. IGNORE . 


♦ ALL CHANNELS * 




*. .* 


***************** 


X 


♦ . .* 




***** 


*N0 




*JG * 






* G4* 




• 


* * 

* 


• 




EXCONT 


X 


RSTQPT X 




.*. 


*****F4********** 




F5 *. 


* RESTORE * 




.* *• 


* CHANNEL * 


YES 


.* OPERATOR 


* QUEUE POINTER * 


...* 


RESPONSE A 


♦ IN PUB ENTRY * 




*. CANCEL . 


* * 




*• •* 


***************** 


X 


*. .* 




***** 


*N0 




*JG * 






* H2* 






* * 


X 




* 


***** 




KANEXT 


*JG * 
* BL* 


RSTFLG X 




*****G4********** 




* * 


* RESTORE * 




* 


* CHANNEL * 






* SCHEDULER * 












♦ PUB ENTRY * 













H4 ♦. 

.* NON- *. 

.*RECOVERABLE*. 

*. ERROR 

*. *K5 .* 

*. .* 

*. .* 



***** 
*JG * 
• B3^ 

• • 



•*****J3*********** 






J4 •. 








.• •• 


• EXCP TO * 


YES . 


• 


EXCEPTION I 


WRITE 


..-•, 




• RESPONSE • 




* 


•.. ??o ..•• 


HSG 






•**•***•***** 


X 




•. .• 




•••• 




•NO 




• • 








• 5 • 








• • 




X 


• 


•••• 




•••• 



*I8loJiiMi8A^«9?: 



iNFORHAflON BYTES (2.3) 
OF THE CCB ARE TESTED 
TO SEE IF BIT 6 IS ON. 
INOlCATlNG^RETyRN TAPE 
READ DATA CHK OR 
2540 PUNCH EQUIPMENT 



• 3 ♦ 

• • 
••*• 



• 4 • 

• • 
•••« 
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Chart JG. Message Writer — Read Operator Reply (Part 2 of 
2) $$ANERRQ; Refer to Supervisor ^ Chart 19 



***** 

*JF * 
* F5* 



***** 
*JF * 
* 65* 



***** 
♦JF * 

* H4* 



REPERR X 


lOCOMP X 


DECCTR .*. 






B3 *. 


* UNPACK * 


* RESTORE * 


• * *• 


* MESSAGE * 


♦ ADDRESS OF * 


.* RETRIED *. NO 


* NUMBER IN * 


♦ FIRST CCW IN ♦ 


*. THREE TIMES .*.... 


* ERROR QUEUE * 


* CHAIN INTO * 


♦ . .♦ 


*ENTRY^BLOCK* 


* OUTPUT CCB * 


*. .* 




***************** 


♦ . .* X 






*YES ***** 






**** . *JF * 




': 


* » . * C3* 

*JF *.X. * * 

* K3* . * 
**** . LOGEN 




X 


NOLOG X 


*4i*4>«iCl ********** 


*****Q2******* 


*****c^********** 


• MOVE MESSAGE ♦ 


♦ SET THE * 


* EXECUTE MOVE * 


♦ NUMBER TO * 


* NOP * 


♦INSTRUCTIONS TO* 


♦ MESSAGE LINE ♦ 


* BRANCH * 


* RESTORE CHAN ♦ 


* * 


♦ SWITCH * 


*QUEUE AND CHAN * 


* * 


* TO OFF * 


* SCHED FLAGS * 









*****Jil********** 

* ZERO FIRST * 

* BYTE OF REPLY * 

* IN AREA * 



***************** 



*****^l********** 

* MOVE THE ♦ 
» PREFIX INTO ♦ 

♦ THE MESSAGE * 

♦ AREA * 

* * 
***************** 



*****fl********** 

♦ CHANGE CCW ♦ 
*ADDRE.SS IN CCB ♦ 

♦ TO ALLOW * 

♦ PRINTING ON * 

♦ 1052 * 
***************** 



*****Q2*********> 

* LOAD THE 

* ADDRESS OF 

* THE COMREG 

* INTO 

* RIO 
**************** 



***** 
*JF ♦ 
* H2* 



*JF *.X. 

* 01* 
**** 

PHASR X 

*****Q2********** 

* MOVE THE ♦ 

♦ CHARACTER * 

♦ 'R* INTO * 

♦ FETCHNAME+7 * 

* FOR EXIT CALL * 
***************** 



****£2********* 

* SVC 3 FETCH * 

* $$ANERRR * 

* CHART JH * 
*************** 



*JF-C5 

JF-D5 
***** 



*****Ql******* 

* SET THE 

* BRANCH 

************** 




X 

***** 

*JF * 

* 63* 

* * 

C0UNTR6 



***** 
*JF * 
* F5* 



KANEXT X 

*****H2******* 

* TURN OFF * 

* EXTERNAL 

* OPTION FLAGS 
* 

* * 
************** 



KRETRY 


.*. 




G3 *. 




♦ RE RY 


.* 


H^v'tlJ' 


*. 


*. 


POSS BLE 



***** 
*JF * 
♦ E5* 



64 *. 

.* DOES *. 
ERR QUEUE 
FLAG BYTE 

. ALLOW . 
*IGNORE.* 



»4c4<*H3******* 
TURN ON ♦ 
RETRY 
FLAG 

* 
************* 



YES 



*****^ii^******* 



************** 



* 7 * 

* * 
**** 



.X.X. 



PHASES X 

*****j-i********** 

* MOVE THE * 

* CHARACTER * 

* 'S* INTO * 

* FETCHNAME+7 * 

* FOR EXIT CALL * 
***************** 



****K3********* 

* SVC 3 FETCH * 

* $»ANERRS| ♦ 

* CHART JJ * 
*************** 
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Chart JH. Message Writer — Error Recovery; 
to Supervisor, Chart 19 



$$ANERRR; Refer 



• * 

• $$ANERRR * 

• * 



♦ SET SYSTEM ♦ 

♦ MASK TO * 
♦DISABLE ALL I/O* 

* AND EXTERNAL • 

* INTERRUPTS * 



4> * 

♦ SET UP ♦ 

♦ ENTRY POINTS ♦ 
♦FOR INTERRUPTS ♦ 

♦ * 



♦GET ADDRESS OF * 

♦ ERROR QUEUE ♦ 

♦ ENTRY FOR * 
♦DEVICE IN ERROR* 

♦ * 



♦ SAVE EXTERNAL ♦ 

♦ NEW PSH AND * 

♦ SUBSTITUTE ♦ 

♦ MYPSW FOR EX- ♦ 
♦TERNAL NEW PSW ♦ 



*««**F !♦♦♦♦*♦♦♦*♦ 
« * 

♦ GET ADDRESSES ♦ 
♦OF THE CC8 AND ♦ 

♦ THE PUB ENTRY ♦ 

♦ * 



♦ MOVE THE 

♦ MESSAGE 

♦ NUMBER TO 

♦ STORAGE 

♦ LOCATION 



♦ MOVE DECISION ♦ 

♦ CODE, •D», TO ♦ 

♦ MAIN STORAGE ♦ 

♦ LOCATION 1 ♦ 

« * 



*****A2«******^** 
♦MOVE CHAN. AND * 
« UNIT FROM PUB * 

♦ ENTRY TO MAIN • 

♦ STORAGE * 

♦ LOCATION 2 * 



♦*«♦ 
RESPNS X 



****««**«****•*•• 



♦♦♦♦A3*^*^*^^** 

* lOINTR * 

* ♦A^ ♦ 

* * 



lOINTR X 

* SET SYSTEM ♦ 

* MASK TO ♦ 

♦ DISABLE ALL ♦ 
♦I/O INTERRUPTS ♦ 

• * 



♦ A4 
ENTRY POINT WHEN 
I/O OR EXTERNAL 
INTERRUPTS OCCUR 
DURING THE EXECUTION 
OF THIS PHASE. 



C2 ♦. 

♦ IS ♦. 
MESSAGE ' 
i DECISION 
TYPE 



YES .♦ IS 
...♦. RESPONSE 
♦. RETRY 
♦. 
X 



♦ 4 



♦♦♦♦A5^^^^*^^*^ 

♦ EXINTR * 

♦ ♦A* ♦ 

♦ * 



B5 ♦. 
.♦ ♦. 

♦ KEYED 
INTERRUPT 



C5 ♦. 
.♦ ANY ♦. 
NO .♦ OTHER ♦. 
.,.♦. INTERRUPT .♦ 



.* 



♦ YES 



D2 ♦. 








04 ♦. 


*****05********** 


.♦ IS ♦. 








.♦ *. 


* TURN OFF ♦ 


.♦ DEVICE IN *. YES 








♦ IS ♦. NO 


♦ KEY-BIT ♦ 


♦. ERROR STILL ...... 


,,,, ,,x 




* 


RESPONSE ...... 

*. IGNORE .♦ 


* IN INTERRUPT * 


♦ . BUSY .* 




♦ CODE OF EXT 1 * 


♦ . .♦ 








♦ . .♦ . 


♦ OLD PSW 4 


♦ . .♦ 








♦. .♦ X 


****************< 


♦NO 








♦YES ****** 




- 








: :^ : 


• 


! 








**** 


! 


X 


LOPSW X 




X 

.♦. 


X 


*****E ******* 


*****E3^^^^^*^^^^ 




E4 ♦. 


*****E5**^^^^^^^^ 


* SET EXTERNAL* 


♦ LOAD PSW WITH ♦ 




.♦ IS ♦. 


♦MOVE INTERRUPT ♦ 


* OPT ON FLAG ♦ 

* TO NDICATE ♦ 


♦ALL INTERRUPTS ♦ 


.* IGNORE ♦. NO 


♦CODE BYTE FROM ♦ 


♦ ENABLED AND ♦ 


* 


RESPONSE ...... 


♦ EXT. OLD PSW ♦ 


♦ ACT ON TYPE ♦ 


» MACH CHK AND ♦ 




♦. VALID .♦ 


♦TO SPECIAL PSW ♦ 


♦MESSAGE (X*40*) 


♦ WAIT BITS ON ♦ 




♦ . .♦ 


* * 




***************** 




♦ . .♦ X 

♦YES ♦♦♦♦ 




I **** 








♦ ♦ 




♦ ♦ 








♦ 2 ♦ 




.X.^ 3 ♦ 








♦ ♦ 




. ♦ ♦ 








**** 




**** 












PHASES X 








X 


X 


*****F2********** 


X 


*****F4******* 


*****F5^^^^****** 


* MOVE AN *S* * 


****F3****^^^^^ 


* 


SET EXTERNAL* 


♦ REPLACE E T. ♦ 


♦ TO LAST BYTE ♦ 


* * 


♦ 


OPTION FLAG * 


♦ OLD PS ♦ 


* OF THE FETCH ♦ 


* WAIT * 


* 


FOR IGNORE * 


♦ WITH SPEC AL ♦ 


♦ NAME ♦ 


* * 


* 


(XUOM ♦ 


♦ PSW. ♦ 


* * 


******* 


******** 


* 


* 


♦ ♦ 



***************** 



*****G2*****^^^^^ 

♦ RESET THE ♦ 

♦ FIRST 5 BYTES ♦ 
♦OF MAIN STORAGE^ 

♦ TO ZEROS ♦ 

♦ * 
***************** 



*****H2***^^^^^^^ 

* * 

* RESTORE ♦ 

* EXTERNAL NEW ♦ 

* PSW ♦ 

* * 
***************** 



************** 



***************** 



****G5********* 

* LOAD EXTERNAL ♦ 

* PSW * 

* * 
*************** 



.* IS ♦. 

YES .♦ MESSAGE *. 
...♦. AN ACTION .* 
*. TYPE .* 



**** 

* * 

* 6 * 

* * 
**** 



**** 

* * 

* 5 * 

* * 
**** 



A DECISION 
. TYPE 
*. .* 



*****K1*******«** 

* MOVE ACTION * 

* CODE, 'A', TO * 

* MAIN STORAGE * 

* LOCATION 1 * 

* * 
***************** 



****J2********* 

* FETCH * 

* SSANERRS * 

* CHART JJ * 
*************** 



RETRY '♦. Ni 
SPONSE .♦. 



NO .* IS *• 
...*. RESPONSE 

*. CANCEL .* 



*••* 

* * 

* 2 » 

* * 
**** 



*****K4******* 

* SET EXT. * 

* OPTION FLAG * 

* FOR RETRYt * 

* X«04« * 

* * 
************** 



*****K5******* 

* SET EXT. * 

* OPTION FLAG * 
» FOR CANCELf • 

* X'OO* * 

* * 
************** 
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Chart JJ, Message Writer — Cancel, Ignore or Dequeue 
($$ANERRS) ; Refer to Supervisor, Chart 19 



♦ 5 ♦ 



* * 

♦ $$ANERRS * 



♦ SET SYSTEM ♦ 
♦MASK TO ENABLE * 

♦ INTERRUPTS ON • 

♦ ALL CHANNELS * 



* TURN OFF 

♦ NO MESSAGE 

♦ SWITCH 

* * 
************** 



.♦ IS * 

RESPONSE 

CANCEL 



*** 



************ 



*****ci*********» 

♦ GET ADDRESSES ♦ 

♦ OF COMREG, * 

♦ ERBLK, AND ♦ 

♦ OEVICE-IN- ♦ 

♦ ERROR PUB ♦ 
***************** 



NO .* IS 
...♦. DEVICE A 
*. TAPE 



*****El ********** 

♦ LOAD ADDRESS ♦ 

♦ OF TEB-TABLE ♦ 

♦ PNTR FROM ♦ 

♦ COMREG INTO * 

♦ Rl ♦ 
***************** 



IGEXIT 

* LOAD ADDRESS * 

* OF EXIGN EXIT * 

* ROUTINE FROM * 

* ERBLK INTO * 

* R15 FOR EXIT * 
***************** 

**** 



* 6 



**** 
EXIT X 

*****02 ********* 

* ZERO LAST 

* BYTE OF 

* FETCH NAME 

* FOR SVC 3 
* 

****************: 



****E2********* 
*SVC 3 RETURN * 
» TO EXIGNi * 
* CHART FW * 

*************** 



KRTY X 

*****G1 ********** 

* MOVE A X'OO* * 

* INTO RETRY * 

* COUNTER IN * 

* TEB * 

* * 
***************** 

**** '. 

* ♦ . 

* 2 *.X. 

* * . 
**♦♦ X 

MSGPRT .*. 

HI *. 

.* HAS *. 

.* MESSAGE ♦. Ni 

*.BEEN PRINTED .*. 

*. *Kl .* 



*K1 
THE SAVE AREA OF 
THE DEVICE CCB IS 
CHECKED TO SEE 
IF THE DEVICE 
HAS BEEN 
ASSIGNED. 



ZERTEB 

*****Q2 ********** 

* ZERO R2 AND ♦ 

* INSERT TEB ♦ 

* POINTER FROM * 

* PUB * 

* * 
***************** 



*****H2 ********** 

♦ MULTIPLY R2 * 

♦ BY 6 TO ♦ 

♦ ACCESS PROPER * 

♦ TEB ENTRY * 

♦ * 
***************** 



*****j2********** 

* ADD R2 TO * 

* Rl FOR ♦ 

* PROPER TEB ♦ 

* DISPLACEMENT * 

* * 
***************** 



*****K2********** 

* * 

* ZERO RETRY * 

* COUNTER IN * 

* TEB * 

* * 
***************** 



♦ 1 ♦ 

* * 
**** 



* LOAD ADDRESS ♦ 

* OF CCB INTO ♦ 

* PUBREG RI4 ♦ 

* * 
***************** 



*****B4********* 



***************** 



*****C4* ********* 

* LOAD ADDRESS ♦ 

* OF EXTRY EXIT * 

* ROUTINE FROM * 

* ERBLK INTO * 

* R15 FOR dXIT * 
***************** 



**** 

* * 

* 6 * 
» * 

**** 



**** 

♦ * 

* 3 ♦.X. 



**** 

* * 

* 5 ♦ 

* * 
**** 



*****P3***li***«* 

* SET SYSTEM 

* MASK TO 

* DISABLE ALL 

* INTERRUPTS ON 

* ALL CHANNELS 
**************** 



*****Q3********** 

* SET A X«01' ♦ 

* CODE IN * 

* FETCH NAME * 

* +7 FOR SVC 3 * 

* * 
***************** 



* LOAD ADDRESS * 

* OF PUB IN * 

* R3 * 

* * 
***************** 



*****j3********** 

* LOA'D ADDRESS * 
*0F PUBDEQ EXIT * 

* ROUTINE FROM * 

* ERBLK INTO * 

* R15 FOR EXIT ♦ 
***************** 



SETCODE 

--♦**F4* ********* 

ZERO WORK * 

REGISTER 12 * 

AND INSERT * 

PROTECTION * 

KEY DATA * 

*************** 



*****Q4*** ******* 

* * 

* ADD * 

* PIB TABLE * 

* ADDRESS ♦ 

* * 
***************** 



*****H4********** 

* OR A X«40' * 

* SETTING BIT * 

* IF PREVIOUS ♦ 

* CANCEL * 

* * 
***************** 



**** 

* * 

* 8 * 

* ♦ 
♦ *** 



*****C5********** 
*MOVE X»5A« INTO* 
*ADDRESS IN PIB * 

* TABLE FOR UH- * 

* CONDITIONAL * 

* CANCEL TEST * 
***************** 



*****£ 5********** 

* MOVE A X«59« * 

* CANCEL CODE * 

* INTO PIB FOR * 

* OPERATOR * 

* DECISION » 
***************** 



X. 

CANEXT X 

*****F5********** 

* LOAD * 

* ADDRESS OF * 

* PIB TABLE ♦ 

* INTO RIO * 



*** 



************* 



*****G5 ********** 

* SET ADDRESS * 

* OF EXCAN EXIT * 

* ROUTINE FROM » 

* ERBLK INTO * 

* R15 FOR EXIT » 
***************** 



*****H5********** 

♦ SET LAST * 

* BYTE IN * 

* FETCH NAME * 
» TO ZERO FOR * 

♦ SVC 3 ♦ 
***************** 



*************** 






*************** 
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Chart JK. Unit Record ERP — 1052 and 1056 (Part 1 of 2) 
$$ANERRU; Refer to Supervisor^ Chart 18 



* 1 * 



♦ 3 ♦ 

* * 



♦ * 

♦ 4 * 

♦ ♦ 
♦ ♦♦* 



if ♦ 

« $»ANERRU * 

* * 



ERRUR^S X 

♦ SET SYSTEM * 
♦MASK TO ENABLE • 

♦ INTERRUPTS ♦ 

♦ ON ALL » 

♦ CHANNELS ♦ 



4i*4i*«(;i4i*4<*4<***4>* 



.♦ IS ♦. 

.* DEVICE A 
». 1442 PUNCH 
*.0R RD/PCH. 



♦OBTAIN ADDR OF ♦ 

♦ LAST-USED CCH ♦ 

♦ +8 FROM CSW. ♦ 

♦ SUB 8 FOR » 

♦ LAST CCW ADDR ♦ 



♦PUB ENTRY FROM ♦ 
♦ QUEUE IN R14 ♦ 


.♦ DID ♦. 

♦. COMMAND .♦ 
♦. .♦ 

♦ . .♦ 

♦ NO 

♦ ♦ . 

♦ 2 ♦.X. 

♦ * . 
*♦♦♦ 


.♦ 


X 

♦LD ADDR OF CSW ♦ 
♦PORTION OF ERR ♦ 

:RE§"i"fE^r8sH : 

* STATUS BYTES ♦ 
***************** 


RTYONE X 

*****02 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ COMPARE ERROR ♦ 

♦ COUNT IN PUB ♦ 

♦ ENTRY FOR DEV ♦ 

♦ TO I ♦ 



NOSENSE X 

*****A3«********* 
♦TEST FOR X'OO' ♦ 
♦IN ERROR QUEUE ♦ 
♦SENSE BYTE DATA^ 

♦ X«00« SHOULD ♦ 

♦ NEVER OCCUR ♦ 
***************** 



*****B3^^^^^^^^^^ 
♦MOVE X«19« CODE^ 
♦INTO URMSG BYTE^ 

♦ OF ERROR QUEUED 

♦ INDICATING ♦ 

♦ UNKNOWN SENSE ♦ 
***************** 



IS ♦. YES 
DEVICE .♦... 
A 2540P .♦ 



*****QZ,* ********* 

♦MOVE X«02« INTO^ 

♦ TH INST AT ♦ 

♦ LABEL UNUSENS ♦ 

♦ FOR USE AS ♦ 

♦ MASK BYTE ♦ 
***************** 



WAS 


SENSE 


*, 


YES 


.♦ 


DEVICE A ♦. YES 


DATA 


EQUAL 




♦ . -. . 


♦2520P A 2520R/P^... 


. X 


00' 


4> 




♦ 


OR 1403 .♦ 


♦ . 


,* 








♦ . .♦ 




. .♦ 




X 




♦. .♦ 




♦ NO 




*♦** 

* * 

* 6 ♦ 

* * 
♦ **♦ 




♦ NO 



*****D3********** 
♦MOVE X'OF' INTO^ 

♦ TM INST AT ♦ 

♦ LABEL UNUSENS ♦ 

♦ FOR USE AS ♦ 

♦ MASK BYTE ♦ 
***************** 



.♦CHANNEL^. 






.♦ PUB ♦. 




.♦ IS ♦. 


.♦DATA CHECK ♦. NO 




.♦ ERR COUNT ♦. YES 


.♦ DEVICE ON ♦. > 


♦.INDICATED IN .♦. 






♦.EQ OR GREATER. ♦. 




♦. ERROR QUEUE .♦ 


♦. CSW .♦ 






♦. THAN I .♦ 




♦. A 1050 .♦ 


♦ . .♦ 






♦ . .♦ 




♦ . .♦ 


♦ . .♦ 


X 




♦ . .♦ 


X 


♦ . .♦ 


♦YES 


**** 


♦ NO 


**** 


♦ NO 




* 


* 




* * 






♦ 3 


* 




♦ 7 ♦ 






♦ 


* 




* * 




. 


**** 




**** 


. 


X 






X 




X 


*****fl********** 






*****P2*««******4' 




*****P3********** 


♦ MOVE X«28« TO ♦ 






* * 




♦MOVE X«03' INTO^ 


♦ URMSG BYTE OF ♦ 






♦ MOVE L INTO ♦ 




♦ TM INST AT ♦ 


♦ ERROR QUEUE ♦ 






♦ PUB ENTRY ♦ 




♦ LABEL UNUSENS ♦ 


♦ ENTRY FOR ♦ 






♦ ERROR COUNT ♦ 




♦ FOR USE AS ♦ 


♦ DEVICE ♦ 






* ♦ 




♦ MASK BYTE ♦ 


***************** 













.♦. 

Gl ♦. 

.♦ CTRL ♦. 

.♦UNIT DEVICES. NO 

♦END OR CHANNEL. ♦... 

♦.END ON IN.^ 

♦. CSW .♦ 

♦ . .♦ 

♦ YES ♦ 



IS 
DEVICE A 
. 1052 



IS 

DEVICE A 
. PRINTER 



*****££♦♦♦♦♦♦♦♦♦♦ 

♦ LA OF RETRY ♦ 

♦ EXIT INTO R15 ♦ 
♦MOVE X'OO' INTO^ 

♦ LAST CHAR POS ♦ 

♦ OF FTCHNM ♦ 
***************** 



****H2^^^^^^^^^ 

♦ SVC 3 ♦ 

♦ EXRTY ♦ 

♦ CHART FW ♦ 
*************** 



.♦ DEVICE A ♦. 
.2501,1442R/P . 
♦.OR 1442P .♦ 



*****H34i********* 
♦MOVE X«05' INTO^ 

♦ TM INST AT ♦ 

♦ LABEL UNUSENS ♦ 

♦ FOR USE AS ♦ 

♦ MASK BYTE ♦ 
***************** 



*****Q4* ********* 
♦MOVE X«OE« INTO+ 

♦ TM INST AT ♦ 

♦ LABEL UNUSENS ♦ 

♦ FOR USE AS ♦ 

♦ MASK BYTE * 
***************** 



IS ♦. YES 
DEVICE A .♦... 

. 1443 OR .♦ 
♦.1445 .♦ 



*****P4* ********* 

♦ MOVE UNKNOWN ♦ 

♦ DEVICE CODE ♦ 
♦INTO URMSG BYTE^ 

♦ OF ERROR ♦ 

♦ QUEUE ENTRY ♦ 
***************** 



UNUSENS X 

*****Q5 ********** 

♦TEST SENSE BYTE^ 
♦ DATA AGAINST » 
♦IMPOSSIBLE blT * 
♦COMBINATION FOR* 
♦PARTICULAR DEV ♦ 
***************** 



E5 ♦. 

.♦ SENSE *. 
♦ DATA 

IMPOSSIBLE 
♦. FOR DEV . 



F5 ♦. 

.♦ CSW *. 

YES .♦STATUS BYTE 

...♦.SHOW CHAININ 

♦. CHECK . 

♦.ERROR.* 



♦ NO 



*****Q5********** 

♦ MOVE UNKNOWN » 
♦SENSE DATA MSG ♦ 
♦CODE INTO URMSG^ 

♦ BYTE OF ERROR ♦ 

♦ QUEUE ENTRY ♦ 
***************** 



CNCL X 

*****H5^^^^^^^^^^ 
♦TURN OFF ALLOW ♦ 
♦RETRY AND ALLOW* 
♦IGNORE BITS IN ♦ 
♦ERROR FLAG BYTE^ 
♦ OF ERR QUEUE ♦ 
***************** 

I **** 

♦ ♦ 

.X.^ ♦ 



♦JL-D3 
JL-K2 
JL-K3 
JL-J5 



ICON 

*****K2^^*^^^^^^^ 
» TURN ON ♦ 

♦ ALLOU IGNORE * 

♦ BIT IN ERRFLG ♦ 
» BYTE OF ERROR ♦ 

♦ QUEUE ENTRY ♦ 
***************** 



*****\(^2********** 
♦MOVE X«07' INTO+ 

* TM INST AT ♦ 

♦ LABEL UNUSENS ♦ 

* FOR USE AS * 

♦ MASK BYTE ♦ 
***************** 



**** 
FTHMSGW X 

*****J5********** 

♦MOVE X«M' INTO ♦ 

♦ LAST CHAR POS ♦ 

♦ OF FTCHNM TO ♦ 
♦IDENTIFY FIRST ♦ 

♦ MSGWTR PHASE ♦ 
***************** 



****\f(,^********* 

* SVC 3 ♦ 

* iSANERRM ♦ 

* CHART JA ♦ 
*************** 
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Chart JL, Unit Record ERP— 1052 and 1056 (Part 2 of 2) 
$$ANERRU; Refer to Supervisor, Chart 18 



***** 

♦ JK ♦ 

♦ F5* 



LOGTST X 

♦ TEST PUB * 

♦ ENTRY POINTED ♦ 
*T0 BY ERR QUEUE* 
♦TO SEE IF ERROR* 

♦ IS ON SYSLOG * 

**^Ll^:t^*********** 



**** 

* * 

* 1 * 

* * 
**** 




LOGERP X 

****^Q2********** 

♦MOVE EQUIP CHK * 

* MSG CODE TO * 

♦ URMSG BYTE OF * 

♦ ERROR QUEUE * 

* ENTRY * 



♦♦♦♦ 

* * 

* 2 * 

* * 
**** 



C2 *. 
.* SENSE *. 

.* BYTE DATA *. YES 
♦INDICATE EQUIP.^.... 
♦. CHECK .♦ 



**** 

* * 

* I » 
**** 



**4<4>4c01** ******** 
♦MOVE X'E5« INTO* 

* LAST CHAR POS * 

* OF FTCHNM TO * 
♦IDENTIFY PHASE * 

* TO BE CALLED * 

*^f*:t,^,^^,********** 



^«*4>E1********* 

* SVC 3 * 

* $$ANERRV * 

* CHART JM * 
*****n,****n,*:t^* 



*****Q2********** 

* MOVE CODE FOR * 

* INTERVENTION * 

* REQ MSG INTO * 

* URMSG BYTE OF * 
*ERR QUEUE ENTRY* 



E2 *. 

.* SENSE *. 
YES .* DATA SHOW *. 
...*. INTERVENTION . 
♦.REQUIRED 



EQPCHK 

**4<#4i03********** 

*TURN ON BIT IN * 

* ERROR QUEUE * 

* ERROR FLAG TO * 

* ALLOW IGNORE * 

* * 



,* 



4:4<4i**F2********** 

* MOVE BUS OUT * 

* CODE ID URMSG * 

* BYTE OF ERROR ♦ 

* QUEUE ENTRY * 

* * 

*********i^*4i****^f 



G2 *. 
.* SENSE *. 
DATA SHOW * 
BUS OUT 
. ERROR .* 
*. .* 



*^***^2********** 

* MOVE COMMAND * 
*REJECT CODE TO * 

* URMSG BYTE OF * 

* ERROR QUEUE * 

* ENTRY * 
********^:^L*^L***$iHi 



J2 *. 

.* SENSE *. 

.* DATA SHOW *. 

*COMMAND REJECT. 

*. ERROR .* 



*F3 
BITS WHICH ARE 
RESET ARE DEVICE 
BUSY, I/O ERROR 
QUEUED FOR RECOVERY, 
AND OPERATOR 
INTERVENTION 
KEQUIRED. 



4c 4e4i4i4iK2 ********** 

* MOVE UNKNOWN * 

* SENSE CODE TO * 

* URMSG BYTE OF * 

* ERROR QUEUE * 

* ENTRY * 

*i^*Jtiitf*:f ********** 



CMOREJ 

tc^^^-^KS********** 

* RESET ALLOW- * 
*IGNORE BIT AND * 
*ALLOW-RETRY BIT* 

* IN ERROR FLAG * 
*0F ERROR QUEUE * 
****^************ 



**** 




•*♦♦ 


* * 




* * 


♦ 3 ♦ 




♦ 4 ♦ 


♦ ♦ 




* 4< 


**** 




**** 


INTREO X 




X 


*i^i$*mQit*******t** 


******S5******** 


* SET ADDR OF 


♦ 




*CCWA INTO CCB, 
*ZERO REG I AND 


* 


♦ SVC 15 


♦ 


EXECUTE 


* I^^SERT CHANQ 


* 


♦ ALARM 


* PNTR FROM PUB 


* 


CCW 




************* 



f****c^******* 

* STORE CHANQ* 

* POINTER BYTE * 

* IN MOVE INST 

* LABELED * 

* RSTQPT * 

:^*:^****^i****^,* 



^t****0^******* 

* MOVE CHANNEL* 

* SCHED FLAG IN* 

* DEV PUB ENTRY 

* INTO INST AT * 

* LABEL RSTFLG* 



:^*4t*4<E4********** 

*MOVE X'FF' INTO* 

* CHANQ POINTER * 
*BYTE OF DEV PUB* 

* ENTRY-REMOVES ♦ 
*OEV FROM CHANC-* 

^:^itL*m************ 



**4<**F4* ********* 

* RESET BITS IN * 
*CHAN SCHED FLAG* 

* IN DEVICE PUB * 

* ENTRY *F3 * 

* * 



^i*^f**Qlt*******^,** 
*ADD LUBIDQ ADDR* 

* IN Rl TO THE * 

* CHANQ POINTER * 
*VALUE. DISPLACES* 
*T0 PROPER LUBID* 
**m*;ti************ 



4i«4<**H4********** 

* MOVE DEVICE * 
*LOGICAL UNIT NO. 

* INTO CCB AND * 

* LOAD CCB ADDR * 

* INTO REG 15 * 



*^t**J^********** 
*MOVE X'Ol* INTO* 

* REQUESTOR I/O * 

* KEY FIELD OF * 

* ERROR BLOCK * 

* * 

H,iHi^^:******if***** 



4i**4:*K4*** ******* 

♦ LOAD R15 INTO ♦ 

♦ RO SO RO. WILL ♦ 

♦ NOT HAVE ZERO ♦ 

♦ IN IT ♦ 

♦ * 
*********nf*iti**4f** 



4c**4[*C5^********* 

* ♦ 

* LOAD AND TEST * 

* RO NON-ZERO * 

* REG MEANS * 

* CHANQ FULL * 



:^f****^^*****^,^^^*^l 

* TEST POSTING ♦ 

* OF TRAFFIC * 

* BIT IN CCfa * 

* * 

^f*:^**i^,*i^*^c1tiif***** 



NO .* I/O 
...*. OPERATION 
*. COMPLETE . 



RSTQPT X 

tL*^i**Q^i^*****^f**^L 

* MOVE ORIGINAL * 

* CHANQ POINTER * 

* BACK INTO DEV * 

* PUB ENTRY * 

*********:^****^l*^ 



RSTFLG 

**:lt**H5********** 

* MOVE ORIGINAL * 
*CHAN SCHfcO FLAG* 
*BYTE BACK INTO * 

* DEV PUB ENTRY * 

* * 
;t*iHim************ 

**** 

* * 
*JK *.X. 

* C2* 
**** 

AACT X 

*****j^**ni******* 

* TURN ON DATA ♦ 

* CHECK BIT IN * 
*ERROR FLAG BYTE* 

* OF DEV ERROR * 

* QUEUE ENTRY * 
m***^:**iit******nc*iti 



***** 
♦JK * 
* J5* 



***** 
*JK * 
* J5* 



***** 
*JK * 
* J5* 

* * 
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Chart JM. Unit Record ERP~ 1403, 1442, 1443, 2501, 2520, 
2540, (Part 1 of 2) $$ANERRV; Refer to 
Supervisor, Chart 18 



* • 

♦ 3 ♦ 

• * 



ERRUR«8 X 

*SET SYSTEM MASK* 



^ LOAD ADOR OF • 
■■ R9 ♦ 



•«*#^«*«««**«««*»* 



A2 •. 

.• SENSE *. 
•• DATA SHQU •• YES 
. EQUIP CHECK ...... 

*. ERROR •• 
• • .* 
♦ . .• 
•NO 



•• DATA SHOW •. 

. INTERV REQ . 

•• ERROR •• 

• . .• 



.* SENSE *. 
* DATA SHOW * 
BUSOUT PARITY 



EQPCHK X 

4t*«**B3******«*«* 
*COHP FOR DEVICE* 
YES ♦TYPE HOVE CODE ♦ 
*.••. *FOR EQUIP CHECK* 
*MSG TO URHSG IN* 
*ERR QUEUE ENTRY* 

X *•••*««****«««••* 

•*•• 






INTREQ X 

* MOVE CODE FOR * 

* INTERVENTION * 

* REQUIRED MSG * 

* TO URNSG BYTE * 
*0F ERR ENTRY « 
•*«•««•«*•«*•«*«« 



B4 ♦. 

.* CSW *. 

.*STATUS SHOW*. 

. CHAN END OR . 

*. DEV END .* 

*. ON .* 



**** 

• • 

* 3 * 



C3 *. 

.* IS *. 

•* DEVICE A *. YES 

*.2540 RDR OR A.*.... 

*. 1442 RP .* 

*. .* 

*. .* X 
*N0 ***** 
*JN * 
* 02* 
* ♦ 



*YES 



C4 *. 

.* IS * 
.* CHAN END 
. ALONE ON 



***** 
*JN * 
* 02* 



TEST FOR 

INITIAL 

SELECTION 

***************< 



**«**B5********** 

* HOVE CODE FOR * 

* BUSOUT MSG TO * 

* URMSG BYTE OF * 
*ERR QUEUE ENTRY* 

* FOR DEVICE * 
*«««**«***«•***** 



C5 *. 

.* C/U *. 
.* ENOt CHAN *. YES 
*END« OR DEV END*.... 
*. BITS ON .* 
*. .* 

*. .* X 

*N0 ♦* 



YTES FROM 
INTO FIEI 



.*. 

02 *. 

•* SENSE *. 

.* DATA SHOW *. 

. DATA CHECK . 

*. ERROR .* 

*. .♦ 

*. .* 



*DEVICE ON QUEUE* 
* LO INTO RIS * 
***************** 



*****F1********** 



*TYPE BYTE FROM * 



*****G1********** 
*ZERO R12 INSERT* 

* CHANQ POINTER • 

* BYTE INTO R12 * 
*MPY BY 4 GET * 

* DISPLACEMENT * 
***************** 



*CHANQ TO VALUE 
• IN R12 TO GET 
*ACTUr* 



**•****•*****••** 



*****J1********** 

* OBTAIN CCB * 

* AOOR FOR DEV * 

* BY LOADING * 
. .12 J 

***************** 



X 

***** 
•JN * 
* Bl* 



.* SENSE *• 
DATA SHOW *. YE 
OVERRUN •*.. 



03 *• 
.* IS *. 

.* DEVICE A *. YES 
. 2540P OR A .*.... 
*. 2520P .* 



E3 *. 

.* IS * 
.* DEVICE A 
*. 2520 R/P 



***** 
*JN * 
* B2* 



05 ♦. 

.* ERROR *. 
.COUNT IN PUB*. YES 
. FOR DEVICE .*.... 
*. EQ 1 .* 
♦ . .* 

*. .* X 



*JN *... 

* F3* 

**** . 
RTYCT X 

*****E5********** 

* HOVE A 1 * 

* INTO ERROR * 

* COUNT BYTE UF * 
*PUB FOR DEVICE * 

* * 
***************** 



F2 *. 

.* SENSE *. 
.* DATA SHOW *. 
*COMMANO REJECT. 
ERROR .* 




.* WAS *. 
.* EQUIP CHK *. NO 
*. ERROR ON THE .*... 
*. 2520P .* 



MOVE COOl 
UNUSUAL . 
BIT INFO 



:EriSE8riH?£v: 

•**•**•******•*** 



.X.* 4 * 
. * * 
*•** 
SELERR X 

^****G3********** 

■ET CCB TO * 

HOW PUNCH * 

EQUIPMENT * 

CHECK * 

* 

**************** 



H3 *. 

.* WILL *. 
•* USER *. NO 
*. ACCEPT ERROR .*... 



«****J3********** 
* SET ERFLAG IN * 
*ERR QUEUE ENTRY* 
*FOR DEV TO TELL* 



***************** 



***** 
*JN * 
* G5* 



**** 

* * 

* 5 * 

* * 
**** 



C02 
YES 



G4 *. 

.* IS *. 

* DEVICE A *. 

L403 PRINTER . 

*. .* 

*. .* 

*. .* 

*N0 



.* IS *. 

.* DEVICE A *. YiES 
*.1403 OR 1443 .*... 
*. PRINTER .* 



'OEVICI 
443 PR 



E A *. 

INTER . 
.* 



***** 
*JN * 
* 02* 



COIOO X 

•«***J4********** 
•RESET OFF ALLOW* 
*RETRY BIT TURN * 
*0N ALLOW IGNORE* 
*BIT IN ERR FLAG* 
* OF ERR QUEUE * 
***************** 



BUS2 X 

* ««**J5*«**4i**«** 

* TURN ON ALLOW * 

* IGNORE BIT IN * 
*ERROR FLAG BYTE* 

* OF ERR QUEUE * 

* ENTRY FOR DEV * 
**«««*«**««4i****« 



***** 
*JN * 
*^E2* 
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Chart JN. Unit Record ERP — 1403, 1442, 1433, 2501, 2520, 
2540, (Part 2 of 2) $$ANERRV; Refer to 
Supervisor, Chart 18 



***** 

♦ JM * 

♦ F2* 
* ♦ 



***** 

♦ JM ♦ 

* 02* 



DATCHK X 

*****Ql*****itL**** 

♦ MOVE CODE FOR ♦ 
♦DATA CHECK ERR ♦ 
*MSG INTO URMSG ♦ 

♦ BYTE OF ERROR * 

♦ QUEUE ♦ 
**}ti^m************ 



♦JM-E2 
JM-H2 

**♦♦♦ 



.* IS * 

DEVICE A 

1^03 

. PRINTER 



DEVICE 
A 1403 
PRINTER 



.* IS ♦. 

.♦ DEVICE A *. NO 
.1443 PRINTER ...... 



♦ MOVE CODE FOR ♦ 
♦OVERRUN MSG TU ♦ 

♦ URMSG BYTE OF ♦ 

♦ ERROR QUEUE ♦ 

♦ ENTRY FOR DEV ♦ 



*m***oi********** 

♦ TURN ON ALLOW ♦ 
♦IGNORE BIT AND ♦ 
♦TURN OFF ALLOW ♦ 

♦ RETRY BIT IN ♦ 

♦ ERRFLAG BYTE ♦ 
***************** 



♦ El 
JM-D5 
JM-J5 
JM-J2 
JM-J3 
JM-J4 



♦Fl 

JM-B4 
JM-C3 
JM-C4 
JM-G5 
JM-H4 



ATYPE X 

*4c4>**02 ♦♦♦♦♦♦♦♦♦♦ 
♦TURN ON ACTION ♦ 
♦A FLAG IN ERRORS 

♦ FLAG BYTE OF ♦ 

♦ ERROR QUEUE ♦ 

♦ ENTRY ♦ 

^^^iitHf:^**t********* 
**** 



X,* 3 



*♦♦♦ 



♦ EU 
**** 

MbGWTR 

Hi,t:*^,*^2********** 

♦MOVE X'M* INTO ♦ 

♦ LAST CHAR POS ♦ 

♦ OF FTCHNM TO ♦ 
♦IDENTIFY FIRST ♦ 
♦PHASE OF MSGWTR^ 

*iti*i^*iti****:^*Hi**:^* 



UCPBAR .♦. 

C3 ♦. 
.♦ CSW ♦. 

.♦STATUS HAVE^. 

♦.CHAN END BIT . 

♦. ON .♦ 



♦ I ♦.X 



**** 
MVMSG X 

*^,*^L:tc£)2********** 

♦ MOVE CODE FOR ♦ 
♦PARITY ERR MSG ♦ 
♦TO URMSG RESET ♦ 
♦ALLOW RETRY AND^ 
♦IGNORE ERRFLAGS^ 



♦*♦♦ 

♦ * 

♦ 3 ♦ 

♦ * 



**** 

* * 

♦ 2 ♦ 



***** 

♦ JM ♦ 

♦ G2^ 



UCSTST 

*:ti*^i*Qlf^**ttLiti***** 

♦ MOVE CSW DROP ♦ 
♦ISr BYTE LD CCW^ 

♦ ADDR IN R13 ♦ 
♦SUB 8 GET LAST ♦ 

♦ USED CCW ADDR ♦ 
***************** 



D4 ♦. 

.♦ LAST ♦. 

.♦ USED CCW ♦ 

♦.COMMAND CODE 

♦. SET .♦ 

♦.MODE .♦ 



.♦ SENSE ♦. 
NO .♦ DATA SHOW ♦ 
...♦.UNUSUAL CMND 
♦.SEQUENCE .♦ 



***** 

♦ JM ♦ 

♦ H2^ 



♦ NO 



*****Q^********** 

♦TURN ON BIT IN ♦ 
♦CCB TRANS INFO ♦ 
♦BYTE 3 TO SHOW ♦ 

♦ QUESTIONABLE ♦ 

♦ CONDITION ♦ 
***************** 

* ♦*** 



CONT X 

*****^^********** 

♦ LOAD ADDR IN ♦ 
♦RI5 OF EXIT TO ♦ 

♦ IGNORE ERROR ♦ 

♦ RECOVERY ♦ 

♦ ROUTINE ♦ 
***************** 





RTY .♦. 


GETMSG X 


X 


F3 ♦. 


*****f^********* 


****f2********* 


.♦ IS ♦. 


♦ MOVE CODE FOR 


SVC 3 ♦ 


.♦ ERR COUNT ♦. YES 


♦CMND REJECT MSG 


$$ANERRM ♦ 


♦.IN PUB EQUAL ...... 


♦ TU URMSG BYTE 


CHART JA ♦ 


♦. TO 1 .♦ 


♦OF ERROR QUEUE 


*************** 


♦ . .♦ 


♦ ENTRY 




♦ . .♦ X 





*****Qi^**** 

♦RESET OFF 
♦RETRY AND 
♦IGNORE BIT 
♦ ERR FLAG 
♦ERR QUEUE 
*********** 



****** 
ALLOWS 
ALLOWS 
S IN ♦ 

OF ♦ 
ENTRY^ 

**»*♦ 



RETRY X 

*****Q^********** 

♦ LOAD ADDR IN ♦ 
♦R15 OF EXIT TO ♦ 

♦ RETRY ERROR ♦ 

♦ RECOVERY ♦ 

♦ ROUTINE ♦ 



♦ ♦♦* 
♦ 3 ♦ 



*****^^********** 
♦MOVE ZERO INTO ♦ 

♦ LAST CHAR ♦ 

♦ POSITION OF ♦ 
♦FTCHNM TO CALL ♦ 

♦ NEXT ROUTINE ♦ 
***************** 



****j^********* 

♦ SVC 3 ♦ 

♦ EXRTY OR EXIG.N * 

♦ CHART FW * 
*************** 
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Chart JP. Paper Tape ERP — 2671 (Part 1 of 2) $$A.NERRX; 
Refer to Supervisor, Chart 18 



♦ A3 
THE STATUS BYTE OF THE 
CSW (4,5) ARE TESTED FOR 
PARTICULAR CHANNEL STATUS. 



♦ A4 
THE PAPER TAPE SENSE DATA BLOCK OF THE ERRuR QUEUE 
ENTRY IN THE ERROR RECOVERY BLOCK IS TESTED FOk 
PROPER ERROR CONDITION-ON BITS 



****l^l********* 

* * 

* $$ANERRX ♦ 

* * 
*************** 



iifnfitf**Qi********** 
♦LOAD ADDRESSES ♦ 
♦OF COMREG INTO ♦ 

♦ R9 AND ERROR ♦ 

♦ BLOCK INTO ♦ 

♦ RIO ♦ 
if***********nfnf*** 



*«4i]»4<C !♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD ADDRESS ♦ 

♦ OF ERBLOC ♦ 

♦ INTO WORK ♦ 

♦ REGISTER R15 ♦ 

♦ * 

******:^*^*****,lf** 



**4>4<^D1 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE STATUS ♦ 

♦ BYTE DATA ♦ 

♦ INTO CSHl ♦ 

♦ AREA ♦ 

♦ * 



*^i***El********** 

♦ LOAD ADDRESS ♦ 

♦ OF PUB INTO ♦ 

♦ WORK REGISTER ♦ 

♦ 15 ♦ 

♦ 4> 



♦ ZERO CCBREG ♦ 

♦ 12 AND INSERT ♦ 

♦ CHANNEL QUEUE ♦ 

♦ POINTER ♦ 

♦ ♦ 
*^*************** 



****Gl********** 

MULTIPLY BY ♦ 

4 POINTING TO ♦ 

THE PROPER ♦ 

ENTRY FOR ♦ 

CHANNEL QUEUE ♦ 



*4<4<^*H !♦♦♦♦♦♦♦♦♦♦ 

♦ ADO ADDRESS ♦ 

♦ OF CHANNEL ♦ 

♦ QUEUE AND ♦ 

♦ LOAD ADDRESS ♦ 

♦ OF CCB ♦ 



^^^■♦♦Jl**'*^'^***^* 

♦ MOVE A X«28' ♦ 

♦ MSG CODE INTO ♦ 
♦ERR QUEUE ENTRY^ 

♦ FOR CHAN DATA ♦ 
♦CHK ♦KZ* 
***************** 



**** 

* * 

♦ 1 * 

**** 



B2 ♦. 

.♦CHANNEL^. 

DATA ♦. NO 
CHECK .♦... 
♦ A3 .♦ 



♦ MOVE A X»19« ♦ 

♦ MESSAGE CODE ♦ 
.X^INTO THE ERROR ♦ 

♦QUEUE ENTRY FOR^ 

♦ UNUSUAL SENSE ♦ 
,m**tit:*********** 



CHDTCK 

*****C2********** 
♦THE STATUS AREA^ 
♦IS CHECKED FOR ♦ 

♦ CONTROL UNIT ♦ 
♦END, DEVICE END^ 

♦ OR CHAN END *(i.3* 



02 ♦. 

.♦ CHAN ♦. 
♦ DATA CHK ♦ 

OiM INITIAL 
♦.SELECTION.* 



BUS OUT ♦. YES 
CHECK ...... 

♦ A4 .♦ 



♦ . 



***** 

♦ JQ ♦ 

♦ D^* 

* * 



**** 
TFLG X 
**4'**E2^^^^^^^ 

♦ AND X'EB' ♦ 

♦ IN FLAG BYTE * 

♦ AREA TO TURN ♦ 

♦ OFF RETRY AND* 

♦ IGNORE BITS^ 

**** 



**** 
» 4 * 

* * 

**** 



♦JQ-El^ 
JQ-Fl^ 
JQ-D2^ ♦ ♦ 
JQ-04^^^^ 



**** 



CALLMW 

n^***f2********* 

♦ SVC 3 
♦FETCH $$ANERRM 

♦ CHART JA 

*******:ti**^itL*** 



BUS OUT ♦, 
CHECK 
♦ A4 .♦ 
.* 
*. .♦ 
»N0 


YES 
♦. . . . 




♦ JQ ♦ 

♦ C4^ 
♦ ♦ 

* 




X 
.*. 

G3 ♦. 

DATA *♦ 
CHECK 
♦ A4 .♦ 
. .♦ 
♦ . .♦ 


BUS 

DAT 

4<*4i*4'G4*********^ 

♦ MOVE A X'll« ♦ 

YES ♦ MESSAGE CODE ♦ 

♦ X^INTO THE ERROR ♦ 

♦QUEUE ENTRY FOR+ 
♦DATA CHK ♦K2* 



COMR 

♦ MOVE A X'18' ♦ 

♦ MESSAGE CODE ♦ 
♦INTO THE ERROR ♦X. 
♦QUEUE ENTRY FOR^ 
♦CMNO REJECT ♦K2^ 



♦ 2 ♦ 



♦ K2 
THE MESSAGE CODE IS 
MOVED INTO THE MESSAGE 
NUMBER AREA OF THE ERROR 
QUEUE ENTRY BLOCK (BYTE 
11) OF THE ERROR RECOVERY 
BLOCK FOR THE PROPER 
ERROR MESSAGE. 



COMMAND 

REJECT 

♦ A4 



* TURN ON BIT* 

* FOR IMTERVEN-* 

* TION REQD 

* WITH A X'40' * 

* IN ERR FLAG* 

if***^:^***,li**** 



* TEST SENSE 
♦ELOCK AND MOVE 

.X* EQUIPMENT CHK 

* MSG TO MSG 
»N0. AREA *A3 

:ftf ******* ******* 



.* EQUIPMENT 
CHECK 
*. *A'+ 



:^tii^t^t^f^^i****** 

* TURN ON BIT* 

* FOR INTERV 

* REQUIRED 

* WITH A X'40« 



^Hf***Q^:tf******** 

* TEST SENSE 
*BLOCK AND MOVE 

* INTERVENTION 
*REQ MSG TO MSG 
♦NO. AREA *K2 



YES .INTERVENTION* 
...*. REQUIRED 

*. *A4 .* 



J3 ♦. 








J4 ♦. 


4>4(4c*4cJ5**:^4'4i4c4i 


♦CHANNEL^ 








♦ ♦. 




AND X'BF' 


CHAINING 


♦ , 


YES 


.♦ 


IGNORE ♦. NO 




IN FLAG AREA 


CHECK 




♦ ,... 


♦ , 


ALLOWED ...... 




TO TURN OFF 


♦ A3 


♦ ' 




♦ . .♦ 




INTERVENTION 


♦ . .♦ 








♦ . .♦ 




REQ BIT 


♦ . .♦ 




X 




♦ . .♦ X 


♦ < 




♦NO 




*♦♦♦♦ 
♦JQ ♦ 
♦ C4+ 
♦ » 
♦ 
BUS 




♦YES ***** 
♦JQ ♦ 
♦ 01^ 
X ♦ ♦ 
***** * 
♦JQ ♦ MODCCW 




X 

♦ ♦*♦ 
♦ ♦ 










♦ Bl^ 




♦ 5 ♦ 



♦ MOVE A X'l9' ♦ 

♦ MESSAGE CODE ♦ 
♦INTO THE ERROR ♦ 
♦QUEUE ENTRY FOR^ 

♦ UNUSUAL SENSE ♦ 
m**************** 
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***** 
♦jp ♦ 

♦ J4* 



* OR A X»10» ♦ 

* INTO ERR FLAG* 

* TO TURN ON ♦ 

* IGNORE FLAG ♦ 

* • 
t************* 



* AND X«BF« ♦ 

* IN ERROR FLAG* 

* AREA TO TURN * 

* OFF INTERV ♦ 

* REQ BIT * 
************** 

**** I 

* * . 
♦JP *.X. 

* J4* 

MODCCW X 

*****oi********** 

* GET ADDRESS * 

* OF CCW AND ♦ 

* LOAD IT INTO * 

* MORK REG 15 * 

* * 
***************** 



ANY ♦. NO 
DATA .*... 
READ IN .♦ 



*****Q2********** 

* STORE UPDATED * 

* I/O AREA ♦ 

* ADDRESS IN * 

* CCH HOLD ♦ 

* AREA ♦ 
***************** 



*****Q2********** 

♦ GET RESIDUAL ♦ 
♦COUNT, ADD 1 TO* 

* IT AND STORE * 

♦ NEW CCW CNT * 

* IN HOLD AREA ♦ 
***************** 



*****Q2********** 

* GET ADDRESS * 

* OF CCW AND ♦ 
♦RESTORE UPDATED* 

* CCW IN * 

* WORK REG 15 ♦ 
***************** 



***** 
♦JP ♦ 
* D2* 



♦JP-F3 
JP-J3 

***** 



*****Qtt********** 

* MOVE A X»09« ♦ 

* MESSAGE CODE * 
*INTQ THE ERROR * 
♦QUEUE ENTRY FOR* 

* BUSOUT CHECK ♦ 
***************** 



♦05 
THE PUB ERROR COUNT 
AREA IS COMPARED TU 
A X»Ol« TO SEE IF 
RETRY HAD BEEN EXECUTED. 



RETRY 

♦05 



♦.CHARACTER. ♦ 



***** 
*JP * 
♦ F2* 



♦**♦♦ 
♦JP ♦ 
♦ F2* 



*****^i^********** 

* SET THE PUB ♦ 

♦ ERR COUNT ♦ 

♦ AREA TO X»01» ♦ 

* * 
***************** 



*****f:tt********** 

* LOAD ADDRESS * 

* OF RETRY * 

* EXIT INTO * 

* R15 * 

* * 
***************** 



*****Ql********** 

* MOVE CCW * 

* TO CCW HOLD * 

* AREA AND MOVE * 

* RESIDUAL CNT ♦ 

* TO HOLD AREA ♦ 
***************** 



NAME FOR 

* BRANCH * 

***************** 



THIS ERP EXIT RETURNS 
TO A-TRANSIENT. 



***4t4iHl ♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD CCW CNT * 

♦ INTO WORKREG * 

♦ AND SUBTRACT ♦ 

♦ RESIDUAL CNT ♦ 

♦ * 
***************** 



*****jl********** 

* SUBTRACT 1 * 

* FROM WORKREG * 

* AND ADD TO * 

* IT I/O AREA * 

* ADDRESS * 
***************** 



**** 

* * 

* 6 * 

* * 
**** 



466 DOS System Control 



chart JR. Optical Reader ERP — 1285; $$ANERR9 : 
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Refer to 



»»A2»»««»» 
$$ANERR9 



NITIALIZE • 

REGS AND • 

AREAS » 






«»♦•« 








« « « 




« » 




* 


X 

. ». 

C2 «. 

"unused **«. YES 
SENSE ...... 


UNSUPTD X 

»»«»»C3»»*»»» 

• SET MSG 

• CODE FOR 
. . . .X» INVALID 


BITS .« 


• SENSE BIT 



«»C4»*«*»* 

TURN OFF 

IGNORE + 

RETRY 

FLAGS 



♦JRA-C3 
JRA-C4 
JRA-Hl 
JRA-P3 



CHANNEL 
DATA 
CHECK 



E2*"'». 






CDATACK X 

**««*E3**«««*« 










EQUI PMENT 
^. CHECK .» 


''* 




» SET MSG CODE 
» FOR CHAN. 
« DATA CHECK 


«. . « 








*. .» 






»««««««««««««« 


«YES 






«#»» 






♦JRA 


-C2 ♦ *•..! 


X 






ONERTRY .». 


►♦*F2*«»»*««« 






F3 *. 


POST EQUIP 

CHECK ERROR 

TO CCB 


I 




.«** ONE 

». RETRY 



PUT AN M 

IN FETCH 

NAME 



SVC 3 FETCH 
MESSAGE 
WRITER 



SET OP 

INTERVEN. 

REQ'D FLAG 



PUT ONE 
IN RETRY 
COUNTER 
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Chart JRA. Optical Reader ERP~1285; $$ANERR9 : Refer to 
Supervisor, Chart 18 



.» 


NONREC 


A3 ♦. 




. • ». 




» «. YES 


» POST 


NONRECOVERY ...... 


...X* NONRECOVERY 


t, .* 


» TO CCB 



POST 

NONRECOVERY 

TO CCB 



«««««B3******«« 
» LOAD OP 
» INTERVENTION 
» REQ'D MSG. 



TURN ON 

PASS BACK 

FLAG 



X 






BUSOUT 


CI ♦. 


«»»»*C2**»»*«»« 






**♦. YES 


» SET MSG 


BUS OUT .» 


...X» CODE FOR 




• BUSOUT 






». .* 




• NO 






. «••* 




• * 




..X*JR 




» F3 


X 


»»♦» 






Dl* **.^ 


***9*0Z* ******* 






DATA *«. YES 


* POST DATA 
Y» ruprte Tn 


CHECK ^^.* 


• ••A* UliCUN lU 



♦»»*«C3«»*»*» 

* SET OP 

♦ INTERVEN. 
» FLAG ON 



LOAD 

NONRECOVERY 

MSG 



EI *. 

OVERRUN 



SET 

OVERRUN 

MSG 



»*»«F 3* ***«»♦ 
SET OP 
INTERVEN. 
REQ'D FLAG 



SET MSG. 
CODE FOR 
REJ. CMD. 



TURN OFF 

RETRY + 

IGNORE 

FLAGS 



c 
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Refer to 



GbT ADDRESS 

OF RETRY 

EXIT 



ZERO SEVENTH 

BYTE OF 

FETCH 

NAME 



» « « 


*JRA-E2 


♦ » 








X 








B4 ». 


•*«»»B5»»*«*» 


.« KEY- •. 


» POST 


BOARD ». YES 


• KEYBOARD 


CORRECTION .♦ 


.X» CORRECTION 


. REQ'D .» 


♦ TO CCB 



SVC 3 FETCH 
MESSAGE 
WRITER 



ANY 
ERRORS 
POSTED 



TURN ON 

IGNORE 

FLAG 



» SET CCB 
*FOR USER ERROR 
« RECOVERY 
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Chart JS. Physical Attention— Send Message; $$ANERRY; 
Refer to Supervisor, Chart 20 



* « 

* $$ANERRY * 

* * 



IJBPAR2-I-8 X 

*4i4>**Bl ********** 
*L0 ADOR IN REG * 

* 9 OF COMM RGN * 

* AND IN REG 13 * 

* OF PIB TABLE * 

* AOOR * 



* 1 * 

•JT * **** 

* F3 *.X. 

* * . 
•*** 

CANTLP X 

*****B2********** 
*INSERT STORAGE * 
*KEY FROM INTER-* 

* PHASE COHH * 

* RGN IN REG 10 * 

* *J1 * 



***4> 

* * 

* 2 * 

* * 




**** 
* * 








X 




• 


.*. 

B3 *. 

ENVIRONMENT . 
• .* 
*. .♦ 

*. .* 


•r!!. 


X 
******SVC*15* 

♦♦♦*♦»♦♦♦♦♦*♦ 



* FLAG BYTE OF * 


.* REG 10 *. YES 


* ATT RTN PIB * 


*. EQUAL ZERO .*.... 


♦REGS STORED AND* 


*. *J4 .* 


* SVC 2 BOUND * 


*. .* 


)([4i4<**4>**%4>**4>**4i« 


*. .* X 




*N0 ***** 




*JT * 




* F3* 


• 


X ♦ 
* 


X 


X 


i^*nf**01********** 


«****02********** 


*LD AODR IN REG * 


* ADD KEY * 


* 12 OF ERROR * 


* TO PIB TABLE * 


*BLOCK. THIS IS* 


* ADDR TO * 


* PIOCS ERROR * 


* INCREMENT TO * 


* COMM REGN * 


* PROPER PIB * 


***************** 





**4i**C3********** 
*■ SUPPRESS PROG * 
*IOENTIFICATION * 

* BY NO-OPING * 
*CCH2 AND CCHOA * 

* COMMAND CODES * 



LOGTST X 

*4>**4<03********** 

* LD LUB TABLE * 
♦ADDR IN REG 15 * 
♦GET SYSLOG PUB * 

* ENTRY ADDR * 

* IN REG 10 * 



I/O 
QUEUE 
.OVERFLOW 
*• .* 



* LD ADDR OF ♦ 

* LABEL WAIT * 

* IN WAITPSW * 

* INST ADDR * 

* BYTES * 



CHQOVFLM 

**4i*4t05********** 

* SET ATTN RTN * 

* PIB FLAGS TO * 
♦SHOW REGS STOREL 

♦ AND ATT RTN ♦ 

♦ IS ACTIVE ♦ 



««4<**E1********** 

* MODIFY PHASE * 

* NAME IN ERROR * 

* BLOCK TO * 

* $$ANERR«01« * 

* * 



* SET RIK * 

* EQUAL TO * 

* X«01» * 

* * 



**4t*4<Gl *♦♦♦♦♦**** 

*SET SYSTEM MASK* 
*T0 PREVENT EXT * 

* INTRPT. LOAD * 

* COUNTER IN * 

* REG 12 WITH 3 * 
*4i****4i4<*4<**4i4i**4i 



4i*4<*4<E2********** 

* MOVE PROGRAM * 
♦IDENTIFICATION * 

* FROM PIB TO * 
*MESSAGE OUTPUT * 

* AREA * 
4c*****4i«*4i*****4[* 



LOGRTN X 

«*4.**P2*^******** 
*PUT OUTPUT ADDR* 
*FOR MSG IN CCW2* 
*AND CCMOA. PUT* 

* TYPIN AODR IN * 
*CCW3 FOR REPLY * 
4.*4i***4t«4<4t*4c*4i4t** 

**4i* I 

* * . 
*JT *... 

* Gl* 

LOGl X 

**4c4i*G2********** 

* STORE TYPOUTl * 

* AODR IN DATA * 

* ADOR PORTION * 

* OF CCWl * 

* ♦ 



LOGWAIT .♦. 

E3 ♦. 
.♦SYSLOG ♦. 
.♦NOW QUEUED ♦. YES 
♦. FOR ERROR .♦... 
♦.RECOVERY .♦ 



.♦SYSLOG ♦. 

NOW ON ♦ 

CHANNEL 
. QUEUE .♦ 



.♦ SYSLOG 
. I/O OPER 
♦.COMPLETE 



4>4[*4<*P4*4i*****4<** 

♦ LOAD WAIT ♦ 

♦ PSW. WAIT ♦ 

♦ FOR OPERATOR ♦ 

♦ RESPONSE ♦ 

♦ * 
*******4i««****4>** 



HOLDQUE X 

*4i4>*4iG3^^^^^^^*** 
*SAVE PUB CHANQ * 

* PNTR AND CHAN * 

* SCHED FLAGS ♦ 

* MOVE X'FF* TO * 

* CHANQ PNTR * 



RSTCHQ X 

*****G4********** 

* RESTORE USING * 
*PROG CHANQ PNTR* 
*AND CHAN SCHED * 
*FLAGS TO SYSLOG* 

* PUB * 



*J1 
IF PHASE Z WHILE SCANNING 
THE PUB TABLE FOUND A 
DEVICE REQUIRING OPERATOR 
INTERVENTION! PHASE Z 
THEN IDENTIFIED THE Fl, 
F2 OR BG PROGRAM USING 
THE DEVICE, STORED ITS 
STORAGE KEY IN THIS 
INTERPHASE COMMUNICATIONS 
AREA AND CALLED THIS PHASE. 



* * . 
*JT *... 

* 02* 
«♦** 

L0G2 X 

4i*«4t*J24'***4i***** 



* PUT ADDR * 

* OF CCWOA ♦ 

* IN CCB * 

* * 
**«««*4i*«**«*4i*** 



4i4>***H3********** 

* RESET SYSLOG * 
*CHAN SCHED FLGS* 

* SO I/O OPER * 

* CAN BE * 

* PERFORMED * 
4i4i*4t**4>**«*****4i4t 



♦♦**♦ 
♦JT ♦ 
♦ B2^ 



IF REG 10 IS ZERO, NO 
DEVICES REQUIRED OPERATOR 
INTERVENTION FOR Fl TYPE 
PROGRAM WHICH IS CHECKED 
FIRST TIME THROUGH LOOP. 
SO THE LOOP COUNTER IN 
REG 12 IS REDUCED BY 1. 
REG 12 IS ALSO BEING USED 
TO INDEX THE INTERPHASE 
COMMUNICATIONS AREA IT 



***♦ 

* • 

* 2 ♦ 

* * 
**♦* 



C 
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Chart JT, Physical Attention — Read Operator Reply; 
$$ANERRY; Refer to Supervisor, Chart 20 



♦JS ♦ 
• G4* 



IS RECOVERED FROM INTERPHASE 



ETERNINED THE 



... _ WAS DETERMINED 

PROGRAM OWNED DEVICES REQUIRII 
OPERATOR INTERVENTION. THIS 
IDENTIFYING STORAGE KEY IS NOW 
MOVED TO A UNIQUE BYTE IN THE 
INTERPHASE COMMUNICATIONS AREA 
FOR USE^BY^PHASE Z WHEN IT IS 
LATER REFETCHEO. 



B2 *. 

.♦UNREC- *. 
.« OVERABLE 
*. ERROR ON 
♦. SYSLOG . 
*. .* 
♦ . .♦ 
*N0 



X 
CNCLMSK •*. 

B5 *. 

.♦ ATT •. 

••REQUEST SW *. YES 

♦.ON IN ATT RTN.*... 

•PIB SWITCH.* 

♦.BYTE .♦ 



♦ 2 ♦ 

* * 



«****C2********** 

♦ * 

♦ LD ADOR OF ♦ 

♦ CCW2 INTO ♦ 

♦ REG ♦ 

♦ * 
***************** 



•NO 



•••••C5^^^^*^^*^« 

• MODIFY PHASE • 

• NAME TO CALL • 

• »$ANERRO • 

• • 



YES 


,♦ 


UNIT ♦. 




...♦ 


.EXCEPTION ON , 


* 


• 


* 


. SYSLOG .♦ 

*• •* 




X 




♦ . .♦ 


* 


*••«* 




♦ NO 


* 


•JS • 






* 


• J2* 








• * 








• 




X 
.♦. 

E2 ♦. 

.♦ WAS •. 






,* 


OPERATOR ♦. 


YES 


« 


*» 


RESPONSE 
IGNORE .♦ 


♦.««••«•••.■•■«.. 










♦ . .♦ 





• SET ATT • 

• REQUEST SW • 

• ON IN ATT RTN 

• PIB SWITCH • 

• BYTE ♦ 



*****E5^^^^^^^^^^ 

♦ LD REG 15 ♦ 

♦ WITH AODR OF ♦ 

♦ SUPVR ♦ 

♦ ATTENTION ♦ 

♦ EXIT ♦ 



F2 ♦. 
.♦ WAS ♦ 
.♦ OPERATOR 
. RESPONSE 
♦. CANCEL 



F3 ♦. 

.♦ LOOP ♦. 
.♦ CTR IN ♦. NO 
. REG 12 ZERO .♦... 
*. ♦GS 



INVAL 

♦ LD ADDR OF 



• •^t*************! 



X 
•♦••* 
•JS • 
♦ G2^ 



POSTCAN X 

*«***G2^*^^*^^ 

• MODIFY ♦ 

• INSTRUCTION • 

• AT LABEL • 

• CNCLSW TO • 

• BRANCH ♦ 



**«*«H2*^^^^^^^^^ 
•INSERT LTK FROM^ 
•INTERPHASE COMH^ 
•RGN INTO REG • 

• TO IDENTIFY • 

• PROG CANCELED • 
**••**•**•*•••«*• 



,* 



**** 
SETARON X 



•*••***•******••< 



CNCLSW .•. 

H3 •. 

.•BRANCH : 
IF ANY 



***** 
•JS • 
• B2^ 



****FS******«** 

♦ SVC 3 ♦ 

♦ SSANERRO ♦ 

♦ CHART JW ♦ 
*«•$*********** 



♦G5 
DURING LOOP IF PROGRAM 
STOI 



IS OUTPUT ON SYSLOG. 
ITS SAMPLE FORMAT ISi 
AR 0P60D I INTERV REQ 

FOR Fl AR HERE 

THE OPERATOR IS TO 

TYPE HIS RESPONSE, 

IGNORE OR CANCEL. 

IF HIS RESPi 



ESPONSE IS 



ISSUES A MESSAGE 



•••••J2*«^^^^^^^^ 
♦STORE CANCELED ♦ 
♦ PROG LTK IN ♦ 
♦INTERPHASE COMM^ 
♦RGN WHERE CNCL ♦ 
♦INFO KEPT ♦AS ♦ 
**•**«**•*»•**«•* 



CALLSEC3 X 

••♦•♦J4^^^^^^*^^^ 
♦TURN ON ATT RTN^ 
ARFCALL SW IN AR^ 
LD AODR OF^ 



4i*«*K4^^^*^^^^* 
SVC 3 • 

$•••••••♦••• 



••>«••••: 
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«••* A 1* ******** 
$$ANERRZ • 



IJBPARl+8 

*«»«*B1*** ******* 

* GET COMM REGN ♦ 

* AND PIB TBL * 

* ADDRESSES IN * 

* A PAIR OF * 

* REGISTERS » 



FINDPUBl X 

•**«*A2* ********* 
*PUBSCN JV* 

* SCAN FOR ♦ 

* INTERVENTION ♦ 

* REQ IN PUBS ♦ 



B2 * 

♦ END 

OF 

PUB 

SCAN 



CALLSEC2 X 

•*«*«A3******* 

* SET FETCH 

* PHASE NAME 

* TO 

* $SANERRY 



**B3****** 
SVC 3 

FETCH 

$$ANERRY 

*«•***«««* 



** 


. 






*• . * 
*N0 




X 






























, 


♦ 


2 


« 
























• 






• 




»*** 






X 






X 










*« 


»*»ci******* 






**«**C 2*** ******* 










• 


SET ATTN * 






*QUEID JV* 












PIB FLAG TO * 


















REGS STORED * 






* FIND PROGRAM • 












AND SVC 2 ♦ 






♦ THAT OWNS ♦ 










* 


BOUND * 






* THE DEVICE • 








»**« 
« • 
• 3 • 


** 




««««*»««•*«•»*«•• 


















* * 










X 








! 




X 












EXIT 


X 




***D1********** 






D2* *♦. 








»***D 3* ********* 




MODIFY PHASE * 














SET REG 15 * 




NAME TO * 






,*'* Fl, ***. NO 






WITH ADDR OF » 




RET TO THE * 






*. F2 OR BG .« 








GENERAL « 




SUPERVISOR, * 






*. PROG .* 








EXIT-TASK 




$$ANERR01 * 






*. . * 




> 




SELECTION » 


*« 








*'«YES 


**•» 


. 












* 




















* 


1 


* 






































»*** 




























El****. 






•****E2* ********* 








X 




• * *• 






• CALC STORAGE * 








»«««E3********* 




* IS *. NO 




* PROTECT KEY * 








SVC 3 


** 


*. .» 
** •* 


■■ 


X 


*VALUE AND STORE* 

* IN INTERPHASE * 

* AREA * 






• 


FETCH $$ANERRO ♦ 
OR $$BATTNA * 




*YES 


**** 


, 














* 


♦ 
















* 


3 • 


















* 


X 














• **« 


**** 






*F3 


















THIS 


SWITCH IS ON 




X 






* 1 ♦ 






ONLY 


IF THE ATTENTION 


*****F1******* 






« * 






KEY HAS BEEN PREVIOUSLY 




* 






***« 






DEPRESSED. THIS 




PREVENT * 












CONSTITUTES A REQUEST 




EXTERNAL • 












FOR 


\N EMERGENCY 




INTERRUPTS * 












CANCEL AND CAUSES 


•« 








* ♦ 






$$ANERRO TO BE FETCHED. 



****G1 ******* 
MODIFY LBL • 
LTKHLD 
WITH LOGICAL 
TRANSIENT 
KEY * 



.* PENDING * 
.INTERVENTION 
*. REQUIRED .* 



X 

*** 
* 
* 4 



.* RECALL * 


. YES 


*. SWITCH 




*. ON .* 






*• •• 










X 


♦NO 




***** 
*JV * 
• Al* 

* * 

SECTI0N3 


SECTIONl X 










♦ CLEAR 






* INTERPHASE 






♦COMMUNICATIONS 






* AREA 






••••*****•••*•• 







H2 ♦. 

. • ATTN *. 

REQUEST 

SWITCH ON 

*F3 



»****J2******* 

» SET FETCH 

» PHASE NAME 

» TO 

* $$ANERRO 



**«*«K1 ******** 

* SET LTK 

• SAVE AREA IN 

* INTERPHASE 

• AREA TO ZERO 



♦*K2******* 

TURN ON 

ATTENTION 

REQUEST 

SWITCH 



• «»• 

* * 

* 3 * 
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Chart JV. Physical Attention — Cancel Routine and Physical Attention 
Subroutines ($$ANERRZ) ; Refer to Supervisor, Chart 20 



♦JU ♦ 
♦ HI* 



^**« 

* * 

♦ 2 * 



SECTIONS X 

«««««A1******* 

* RESET RE- ♦ 

* CALL AND RE- • 
*QUEST SWITCHES * 

* IN PIB SW • 



SETPOSTL X 

**«0«B14>«******** 

♦ SET UP REG ♦ 

♦ 14 WITH LOOP, » 

♦ CONTROL COUNT * 

♦ OF 3 » 

♦ * 



CNCLLOOP X 

4i**«*Cl********** 

* ZERO A REG * 

* AND LOAD IT * 

* WITH KEY OF * 

* PROG TO ♦ 

* BE CANCELED 4> 



.* OPERATOR 
. OPTION IS 
*. CANCEL . 



* CONTROL COUNT * 



B2 *. 
.♦ ALL ♦. 
NO .* PROGRAM *. 
,..♦. TYPES 

*. CHECKED .* 

*. .♦ 

*• .* 



» 4 ♦... 

* * ., 
• *** . 

PUBSCN3 X 

*****C2********** 
♦PUBSCN JV* 

* SCAN FOR * 

* INTERVENTION * 

* REQ IN PUBS * 
***************** 



D2 *. 
* END *. 

OF *. YES 
PUBSCAN .♦,... 



«««*«A3********** 
*LD AODR OF PUB * 

* ENTRY FOR OEV * 

* IN REG 3 * 

* * 

* * 



«***B3********* 

* SVC 3 * 

* PUBDEO * 

* CHART GM "KBI* 



***««C3********** 
*RESET PUB ENTRY* 
*ADDR IN REG 15 * 

* AND ALLOW * 

* INTERRUPTS * 

* * 



**** 

* « 

* 4 * 

* * 
**** 



*. .* 


X 


♦ . .* 


*YES 


* * 


*N0 

* 




* 2 * 






* * 






**** 


. 






X 


*****E1******* 




**«*:»£ 2********** 


♦ SET CANCEL * 




*QUEID JV* 


* FLAG IN * 






* APPROPRIATE * 




*find'the"progrm* 


» PIB ♦ 




* THAT OWNS * 


* m 




♦ THE DEVICE ♦ 



.*. 

Fl *. 
.*CANCEL *. 
YES .*IN PROGRESS*. 
..*. OR ALREADY . 
*. CANCELED .* 



4>***«G1******* 

* SET CANCEL * 

* CODE TO 
» X«59« IN 

* PIB 

* * 



HI *. 
.*CANCEL *. 
NO .* OF A 
...*. LOGICAL 

♦.TRANSIENT. 
,♦ 



.* Fl ♦ 

.* F2 OR 

*. BG PROG 



ENDPUBS3 X 

*««**£ 3********** 

* LD REG 15 » 

* WITH ADDRESS * 

* OF ATTN EXIT * 

* (EXT02) » 

* * 



****F3********* 
♦ SVC 3 * 
*TASK SELECTION * 

♦ 



*«**A4********* 

* * 

* PUBSCN * 

* * 



««««*B4********** 

* ADD 8 TO THE * 
*PUB ADDRESS TO * 

* STEP THROUGH * 

* PUB TABLE * 

* ENTRIES * 
*•**«********«•** 



.* TABLE *. 

ENTRIES 

*. SCANNED .* 



NO .* INTER- *. 
...*. VENTION 

*. REQUIRED .* 



* RET TO ADDR * 

* IN LNK REG * 

* PLUS 4 * 



♦YES 


*♦♦♦ 


' 


♦ 




* 4 




* t 




• ♦** 


X 




.*. 




G2 *. 




.* *. 




.♦ CANCEL ♦. 


NO 


♦.DUE TO NORMAL. 


♦ .... 


♦. EOJ .♦ 




*. •* 




♦ . .♦ 


X 


♦YES 


*«** 



♦ 4> 

* I * 

• ♦ 
**** 



****A5********* 



******•**•***•* 



••*«*B5********** 



* OEV AND MOVE * 

* ZONE TO ♦ 

* REGISTER 10 » 



* GET ADDRESS * 

* OF CCB FOR * 

* DEVICE FROM * 

* CHANNEL * 

* QUEUE ♦ 

4>***^*4i*****:»«**>» 



.*. 

05 *. 
.*CCB IS *. 
.*IN LOGICAL 
. TRANSIENT 
*. AREA 
*. .* 
♦ . .* 



LTKHLO X 

***4i*E5********** 

♦ PUT LTK INTO ♦ 

♦ REG 10 AND * 

♦ INTO ♦ 

♦ INTERPHASE ♦ 

♦ AREA * 



. .* 

♦YES 



*««4i«H2********** 

* PREVENT * 
*INTERRUPTS AND * 

* SET DEQUEUE * 
♦EXIT IN REG 15 ♦ 

* (PUBDEQ) * 



F1,F2 

OR BG 
PROG 



4i4>«**G5********** 

♦ ZERO REG 10« ♦ 

♦ USED TO * 

♦ PASS KEY TO ♦ 

♦ CALLING * 

♦ SEQUENCE ♦ 



*««*H5********* 

* RET TO AODR ♦ 

* IN LNK REG ♦ 

* ♦ 
*♦******♦♦**••* 



• SET CANCEL ♦ 

♦ BYTE IN * 

* APPROPRIATE < 

♦ PIB * 

• * 
•*********♦*♦• 



•****J2«*****«^** 

* PUT CHANNEL * 

* AND UNIT • 

* NUMBER INTO * 

* REGISTER 2 ♦ 

* • 



* WITH AODR OF • 



DEVICES REQUIRING INTERVENTION 
ARE DEQUEUED. AND PROCESSING 
RETURNS IN-LINE. 



«•*•**•*♦***♦•♦«* 
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Chart JW. Physical Attention — Emergency Cancel (Part 1 of 
2) $$ANERRO; Refer to Supervisor, Chart 20 



*A1 
SEVERAL 



MESSAGES ARE 
E. THE DESIRED 
AT ANY I/O OUTPUT 



****A2********* 



• ****4i**««***** 



* * 

* 1 * 

* * 



*«4i«*B2********** 

* LO ADOR OF ♦ 

* COMM RGN IN * 

* REG 9 AND OF * 

* PIOCS ERROR * 
•BLOCK IN REG 12* 
***************** 



.* MULT I ♦. 

PROGRAM 

♦ENVIRONMENT* 

*. .* 

♦ . .♦ 



**«4i4iB4********** 

* NO-OP CCWl * 

♦ AND CCW3 * 
.X* COMMAND CODES ♦ 

* REDUCE CCW4 * 

♦ BYTE COUNT * 



***4>*B5********** 
4> * 

* LD ADOR OF * 

* CCW3 INTO * 

* REG * 

* * 



•CI 

IF SYSLOG IS ON CHANNEL 
QUEUE THIS IS A WAIT LOOP 
FOR USING PROGRAM TO COM- 
PLETE ITS I/O OPERATION 
SO THIS PHASE CAN USE IT 
PUB FLAGS ARE SAVED AFTER 

USING PROr 

WITH DEVK 



««***C2*4i***** 

♦ MODIFY * 

* PHASE NAME 

* IN ERROR 

• BLOCK TO 

♦ «$ANERR»Ol«* 



PAR40 X 

* LD ADOR OF * 

* PIB TABLE IN * 

* REG 13 AND * 

* ADOR OF LUB * 
•TABLE IN REG 15* 



* • 

* 2 • 

* ♦ 
**•* 



C5 *. 

.• DID *. 

« UNIT ♦ 

EXCEPTION 

••OCCUR ON .♦ 

•SYSLOG.* 

• • -• 

•NO 



FIRST MESSAGE FROM THIS 
PHASE IS AR LI40D EMER- 
GENCY CANCEL. AR....OPER- 



•JX-Bl 
JX-Fl 
JX-C2 

***** 



4i«***02********** 

• MOVE X»01« TO • 

• RIK BYTE IN • 

• ERROR BLOCK • 

• STOP EXTERNAL • 

• INTERRUPTS * 
***************** 



*****E2********** 

• PUT AODR OF * 

* LABEL WAITl * 



«****F2********** 

• SET ADOR OF • 

• CONSTANT • 

• AR IN DATA • 

• AODR OF CCWl • 

• AND CCW3 • 
•**••**•*«*«****• 



***«*62********** 

• SET INPUT ♦ 

• ADOR IN • 

• CCW^ AND • 

• MSGl AODR • 

• IN REG • 
»«*•*•««*••**•**• 



***«*D3**4i***««** 

• CALCULATE • 

• PUB AODR FOR • 

• SYSLOG DEVICE • 

• IN REG 10 • 

• * 



E3 ♦. 
.• IS •. 

^ ^^ ygj 

.•... 

. ERROR .• 
•.RECVY.^ 



PAR41 X 

«*«»«H2*^******** 

• STORE AODR • 

* OF DESIRED * 



*•*• 



•NO 



v«<***F3*********i 

• COMPARE 

• CHANQ 

• POINTER IN 

• SYSLOG PUB 

• TO 'FF' 
******•*********> 



.* IS •• 

YES .* SYSLOG *. 

.*. NQH ON .* 

*. CHANQ •• 

• ..♦CI .• 

♦. .♦ 

•NO 



PAR44 X 

♦PTRXCH JX* 



COMM. WITH 

• OPERATOR . • 

•EI 



.•. 

E4 •. 
.• •. 

I/O •. h 
STARTED .•. 
OK .• 
• . •• 
• . .• 
•YES 



05 •. 

NO .•'operator *•. 
...•. REPLY 

•.received .• 

•. •Jl .* 
X •. .• 

***** *YES 
•JX • 
• J3^ 
* * . 



X 
***** 
•JX • 
• G3^ 



WAITl 
.• 



X 
• •• 

F4 •. 



I/O •. YES 
OPERATION ...... 

•.COMPLETE .• 



•**«*G4*^**^^^^^^ 

♦ LOAD WAIT ♦ 

♦ PSW TO WAIT ♦ 

♦ FOR OPERATOR ♦ 

♦ REPLY ♦ 

♦ ♦ 
****••**•*****••* 



LOG PUB 
LLED USE 



♦PTRXCH JX^ 
♦-♦-♦-♦-•-•-♦-•-♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦** 



♦ . 

IS MADE FOS* OTHER • * S'*! 
BLANKS IN INPUT AREA ♦♦♦♦ 

PAR42 X 



El 




'••OCCUR.' 

^•♦fto 



***************** 



*****F5********** 

♦ * 

* MODIFY • 

• INVALID MSG • 

• CODE TO ISOID • 

* * 
***************** 



**«**G5^^^^*^^^^^ 

♦ BLANK OUT ♦ 

♦ WORD • 

♦ EMERGENCY • 

♦ IN MSG. MAKE ♦ 
♦RPLY UPPER CASE^ 
***************** 



•****H5***^**^^^^ 

♦ LD A 3 INTO ♦ 

♦ REG 14 FOR ♦ 

♦ USE AS LOOP ♦ 

♦ COUNTER ♦ 

♦ ♦ 
»••••**••*•**•••* 



PAR45 X 

***«*J59**«*«**** 

TO NEXT PIB 



X 

♦ 
1 ♦ 



♦♦♦•♦ 
♦JX ♦ 
♦ J3^ 



ACH __ 

TO ne; 

♦♦♦♦♦♦♦♦1 



AUUK ur * 



•JX 
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Chart JX. Physical Attention — Emergency Cancel (Part 2 of 
2) $$ANERRO; Refer to Supervisor, Chart 20 



♦A5 
OPERATOR RESPONSES CA,'^ BE 

1. CANCEL Fl 

2. CANCEL F2 

3. CANCEL BG 

4. CANCEL 

REPLY t* MEANS CANCEL BG 



♦ JW ♦ 

♦ J5* 



Bl ♦. 
.* MAS *. 

* OPERATOR ♦. 

REPLY VALID . 

*. *A5 .* 



.* 



**«*«C1 ********** 
*HODIFY INVALID * 

* HSG TO 1S020 * 

* FOR POSSIBLE * 

* USE NEXT TIME * 

* THROUGH LOOP * 



01 *. 

.* HAS *. 
.* CANCEL BG * 
*. MSG GIVEN 
*. *D5 .♦ 



El *. 

.*CANCEL *. 
FOR PROG *. YES 
WHOSE PIS .*... 
.ADDRESSED.* 
*. NOW .* 
*. .* 
*N0 



Fl *. 
.* ALL *. 

.* PROBLEM *. 

. PROG PIBS . 

». CHECKED .♦ 

*. *E5 .* 



EXIT2 

«**«*B2********** 

* LD ADDR OF * 

* AREA NOT ♦ 
..X* ACTIVE HSG * 

* INTO REG * 

* *G5 » 



C2 *. 

.* IS *. 

.* CANCELED * 

• PROG AREA 

*. ACTIVE .* 

*. NOW .* 



♦ YES 



X 

*JW * 



*YES 



***** 
♦JH ♦ 
* H2* 



***** 
*JW ♦ 
* J5» 



*****02********** 

* SET X«40« ♦ 

* CANCEL CODE * 
*IN CANCEL BYTE * 
*0F APPROPRIATE * 

* PIB ♦ 
***************** 



.*CANCEL FOR *. YES 
.THIS PROG IN .*... 
*. PROGRESS .* 
*. NOW .* 



*****F2********** 

* MOVE X'64« ♦ 

* TO PIB CANCEL * 

* BYTE MEANING * 

* OPERATOR * 

* CANCEL * 
***************** 



****B4********* 

* * 

* PTRXCH * 

* * 
*************** 



*****C4***«****** 

♦ 3 EXCLUSIVE * 
♦OR INSTRUCTIONS* 

♦ ARE USED TO ♦ 

♦ EXCHANGE DATA ♦ 
♦BETWEEN FIELDS ♦ 
***************** 



♦***04^******** 

* RETURN * 

* TO ADDR IN * 

* LINK REG * 
*************** 



*****G2********** 



LD ADDR OF 
SUPVR ROUT IN 
CANCEL ATT 



* SUPVR ROUTINE * 



*EXIT IN REG 15 * 
» (ATNCNL) ♦HS » 
***************** 



****H2********* 

* SVC 3 ♦ 

* SSANERR'Gl* * 

* * 
*************** 



*****J2******* 
» TURN OFF ♦ 

* ATTENTION ♦ 
*REQUEST SWITCH *. 

* IN ATTN RTN * 

* PIB ♦ 
************** 



*****G3******«*** 
*PTRXCH JX* 
*-*-*-*-*-*-»-*-• 

* RESTORE * 

* USER DATA * 

* TO SYSLOG PUB * 
***************** 



*****H3******* 

* MOVE X«83« * 

* TO FLAG BYTE ' 

* OF ATTENTION 

* ROUTINE 

* PIB *K5 * 
************** 



EXITl X 

*****J3********** 

* LD ADDR OF * 
*SUPVR ATTENTION* 

...X* EXIT ROUTINE * 

* IN REG 15 * 

* * 
***************** 



****K3********* 

* SVC 3 • 

* $$ANERR*01« * 

* * 
*«***••***«**** 



LOADED WITH ADDRESS OF 
INVALID STATEMENT MES- 
SAGE. IF REPLY PROVES 
INVALID* THIS ADDRESS 
WILL BE PUT IN CCW2 DATA 
ADDRESS FOR SYSLOG OUTPUT 
TO OPERATOR SO HE CAN TRY 
AGAIN TO GIVE A VALID 
REPLY. 



♦D5 
BLANKS IN PROGRAM 
IDENTIFICATION PART OF 
CANCEL MESSAGE MEANS 
CANCEL ALL PROGRAMS. 



*E5 

COUNTER IN REGISTER L4 
IS USED TO SEE IF CANCEL 
MESSAGE WAS CHECKED FOR 
ALL 3 TYPES OF PROGRAM 
(Fl. F2 AND'BG). LOOP IS 
REPEATED UNTIL ALL TYPES 
OF PROGRAM ARE CHECKED. 



*G5 
IF PROGRAM AREA IS NOT 
NOW ACTIVE* SYSLOG IS 
USED TO OUTPUT 'AREA NOT 
ACTIVE* MESSAGE. 



*H5 
A RETURN TO SUPERVISOR IS 
TAKEN TO PROCESS THE 
PROGRAM CANCEL* AFTER 
WHICH CONTROL RETURNS TO 
NEXT SEQUENTIAL INSTRUC- 
TION OF THIS A-TRANSIENT 
PHASE. 



*K5 
X*83» IN FLAG BYTE MEANS 
REGISTERS ARE STORED* 
ATTENTION ROUTINE IS 
ACTIVE AND NOT SVC 7 
BOUND. ATTENTION ROUTINE 
WILL BE CALLED AGAIN. 
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Chart JY. Move Data to Communications Region ($$ANERR1) 



*************** 



*****Qi********** 

* * 

* GET STARTING * 

* ADDRESS OF ♦ 
♦COMMUNICATIONS * 

* REGION ♦ 
***************** 



CI *. 

* DOES * 

BG JOB 

HAVE 

CONTROL 

*. .* 

*. .* 



*****Ql**^t:^**^i*** 

♦ LOAD ADDRESS * 

♦ OF UPPERMOST * 
♦BYTE OF PROBLEM^ 

♦ PROGRAM AREA ♦ 

♦ INTO REG 9 ♦ 
***************** 



*****^l********** 

♦ LOAD ADDRESS * 

♦ OF START OF ♦ 

♦ PROBLEM PROG ♦ 

♦ AREA INTO ♦ 

♦ REG 4 ♦ 
***************** 



.♦ UPPER ♦. 
, BYTE WITHIN . 
MAIN STORAGE^ 



GI ♦. 
.♦ START ♦. 
.♦ADDRESS IN ♦. NO 
♦.MAIN STORAGE .♦... 



«*4>**H1 ♦♦♦♦♦♦♦♦♦♦ 
♦LOAD BEGINNING ♦ 
♦ ADDRESS OF ♦ 



***************** 



*****jl********** 

♦ LOAD ADDRESS ♦ 

♦ OF COMM ♦ 

♦ REGION USER ♦ 

♦ AREA INTO ♦ 

♦ REG 4 ♦ 
«♦♦♦**♦♦♦*♦♦♦*♦♦♦ 



♦ ♦ 




* * 


♦ 1 ♦ 




♦ 2 ♦ 


♦ * 




* * 


**** 




**** 


X 
*****S2********** 

♦ LOAD ADDRESS ♦ 

♦ OF LAST BYTE ♦ 

♦ OF USER AREA ♦ 

♦ INTO REG 5 ♦ 


X 
.♦. 

B3 ♦. 

.♦ LAST *. 

.♦BYTE WITHIN^ 

♦.USER AREA OF 

♦. STORAGE .♦ 

♦ . .♦ 

♦ . .♦ 



*****Q2********** 

♦ * 

♦ LOAD STARTING ♦ 

♦ ADDRESS OF ♦ 

♦ THE PIB TABLE ♦ 

♦ INTO REG 1 ♦ 
***************** 



*****Q2********** 

♦ GET ADDRESS ♦ 
♦OF THE LOGICAL ♦ 
♦TRANSIENT SAVE ♦ 

♦ AREA OF THE ♦ 

♦ ATTENTION PIB ♦ 
***************** 



***4i*E £♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ GET ADDRESS ♦ 

♦ OF THE USER ♦ 

♦ SAVE AREA ♦ 

♦ ♦ 
***************** 



*****f2********** 

♦ GET CONTENTS ♦ 

♦ OF USER REG I ♦ 

♦ FROM THE ♦ 

♦ SAVE AREA ♦ 

♦ * 
***************** 



*****G2********** 

♦ INSERT COUNT ♦ 
♦FROM USER REG !♦ 

♦ INTO MOVE ♦ 

♦ INSTRUCTION ♦ 

♦ LENGTH ♦ 
***************** 



i^*i^:^ntH2********** 
♦CALCULATE ADDR.^ 

♦ OF LAST BYTE ♦ 

♦ OF DATA TO ♦ 

♦ BE MOVED ♦ 

♦ ♦ 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****C-i********** 

♦ CALCULATE ♦ 

♦ DISPLACEMENT ♦ 

♦ HITHIN THE ♦ 
♦COMMUNICATIONS ♦ 

♦ REGION ♦ 
***************** 



.♦ IS *. 

IT WITHIN 
THE USER 
. AREA 



*****^2********** 

♦ INSERT THE ♦ 

♦ DISPLACEMENT ♦ 

♦ INTO MOVE ♦ 

♦ INSTRUCTION ♦ 

♦ DISPLACEMENT ♦ 
***************** 



*****f2********** 

♦ ADD LENGTH ♦ 

♦ COUNT TO THE ♦ 

♦ DISPLACEMENT ♦ 

♦ TO GET UPPER ♦ 

♦ • LIMIT ♦ 
***************** 



.♦ IS ♦. 

.♦ UPPER ♦. 

♦.LIMIT WITHIN . 

♦.USER AREA.^ 



**** 

♦ * 

♦ 3 ♦ 

♦ ♦ 
*♦♦♦ 



m****J3********** 

♦ MOVE USER ♦ 

♦ DATA INTO ♦ 
♦COMMUNICATIONS ♦ 

♦ REGION ♦ 

♦ ♦ 
***************** 



*****^i^********** 



***************** 



*^:tL*f^*fl^*******1f*** 

♦ SEIZE ♦ 

SYSTEM 

♦ (SVC 22) ♦ 

************* 



*****Git********** 

♦ GET ADDRESS ♦ 

♦ OF BG PROG. ♦ 

♦ PIB ♦ 



***************** 



*****iii^*********. 

♦ INSERT X*bl* 

♦ INTO CANCEL 

♦ CODE OF BG 

♦ PIB 
♦ 
♦*♦*«♦*♦•♦♦•♦♦♦♦ 



****** Jit*********** 

RELEASE 

♦ SYSTEM • 

CSVC 22) 

♦ * 

♦**•*♦«♦♦♦«*♦ 



♦♦♦♦ 
« ♦ 

♦ I ♦ 

* • 
♦*♦♦ 



****ff^'^********* 

♦ RETURN TO ♦ 

♦ SUPVISOR ♦ 

♦ VIA SVC 3 ♦ 
*************** 



( 
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Chart KA, Nonresident Attention/Initiator Root Phase 
($$BATTNA) ; Refer to Supervisor, Chart 21 



♦KB-El 
KE-E3 
KG-Hl 
KS-Jl 



* * 

* *$BATTNA ♦ 

* * 



♦ SET UP BASE » 

♦ REGISTER ♦ 
» VALUES FOR * 

♦ DSECT AND * 
♦OVERLAY PHASES * 



* LOAD THE * 

* ADDRESS OF * 

* ERROR ROUTINE * 
♦INTO A REGISTERS 

* * 



♦ PUT ADDRESS * 

♦ OF SYSLOG * 
♦INPUT CCH INTO ♦ 

♦ INPUT CCB ♦ 

♦ » 



* I ♦ 



♦ USE PIB TABLE ♦ 

♦ ADDR PLUS ♦ 

♦ DISPLACEMENT ♦ 

♦ TO POINT TO ♦ 

♦ ATTN PIB ♦ 
*^jtitif ************ 



.♦ EXTERNAL 
. INTERRUPT 
♦. SWITCH . 
♦. ON .♦ 



♦ 2 ♦ 

* * 



DTCHAT X 

♦ SET UP A ♦ 

♦ REGISTER SO ♦ 

♦ THAT A SVC 22 ♦ 

♦ WILL MASK I/O ♦ 
♦AND EXT INTRPTS* 
***************** 



♦ RESET ♦ 

♦ ATTN PIB 

♦ SWITCH 

♦ BYTE 

♦ * 

*******W:****** 



*if*^fQ'^*^,m****** 

♦ $$BATTNa ♦ 

♦ AT EXTINT ♦ 

♦ CHART KE ♦ 
***n^*^^H^**^i^^^*^ 



X 


TMPARl X 


*****^l********** 


4>****E2^^^^^^^^^^ 


♦ PUT ADDRESS ♦ 


♦ TEST JOB ♦ 


♦ OF SYSLOG ♦ 


♦CONTROL SWITCH ♦ 


♦ OUTPUT CCW ♦ 


♦ IN THE ♦ 


♦ INTO OUTPUT ♦ 


♦COMMUNICATIONS ♦ 


♦ CCB ♦ 


♦ REGION ♦ 


♦♦♦♦•♦♦♦♦♦****♦♦* 


♦♦♦»*»♦»»♦♦♦**♦♦♦ 




*♦♦♦ I 




♦ ♦ . 




♦KE ♦.X. 




♦ E3^ 




♦ ♦♦♦ X 


X 




*4>**4<F !♦♦♦♦♦♦♦*♦♦ 


F2* *♦. 


♦ PUT I/O * 


.♦ ♦. 


♦BUFFER ADDRESS ♦ 


.♦ SYSLOG ♦. NO 


♦INTO A REGISTER* 


♦. EQUAL ...... 


♦ AND INTO THE ♦ 


♦. 1052 .♦ 


♦ CCW ADDR FLD ♦ 


♦ . .♦ 


4t«**4<*********4>** 


♦ . .♦ X 


- 


♦YES ♦♦♦♦ 
* 
♦ 2 


* 


X 
.♦. 


I **** 


X 


Gl ♦. 


***m*(^2********** 


.♦ ♦. 


♦ERRRTN KC^ 


.♦ MULTIPLE ♦. YES 


♦-♦-♦-♦-♦-*-♦-♦-♦ 


♦. PROGRAMMING ...... 


♦ SEND MESSAGE ♦ 


♦. SUPPORT .♦ 


♦ 'READY FOR ♦ 


♦ . .♦ 


♦COMMUNICATIONS'^ 


♦ . .♦ X 


*******itf********* 



*****Hl********** 

♦ MOVE A HEX FF ♦ 
♦INTO THE BRANCH^ 

♦ VECTOR TABLE ♦ 

♦ AS BATCH ONLY ♦ 
♦DELIMETER ♦J2^ 
***************** 



♦ MODIFY THE ♦ 

♦ INSTRUCTION 

♦ AT DTCHSZ 

♦ TO SVC 11 

♦ ♦ 
************** 



****^2********* 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ * 
*************** 



♦J2 
BRANCH VECTOR TABLE ENTRY IS IN THE FORM 
. OPERATION FIELD OF CONTROL STATEMENT 
. PHASE IDENTIFIER (ALPHA-CHARACTER) 
. BRANCH VECTOR INDEX FACTOR. THIS IS 
A DISPLACEMENT VALUE USED IN LOCATING 
THE FIRST EXECUTABLE INSTRUCTION WITHIN 
A NEWLY LOADED PHASE. 
WHEN THE NONRESIDENT ATTENTION ROUTINES 
HAVE MPS. THE TABLE CONTAINS ADDITIONAL 
ENTRIES. WHEN THE NONRESIDENT ATTENTION 
ROUTINE IS FUNCTIONING AS AN INITIATOR* 
ADDITIONAL TABLE ENTRIES ARE ATTACHED 
BY $$BATTNH. 



*****Qit******* 

♦ * 

♦ SVC 22 

♦ SEIZE THE 

♦ SYSTEM 

♦ * 
************** 



*****£it******* 

♦ DETACH THE ♦ 

♦ ATTENTION ♦ 

♦ PIB 

♦ ♦HA ♦ 

♦ « 
************** 



*****fi^******* 

♦ * 

♦ SVC 22 

♦ RELEASE THE 

♦ SYSTEM 

♦ » 
************** 






****Q/t********* 

♦ EXIT THIS ♦ 

♦ B-TRANSIENT ♦ 

♦ VIA SVC 11 ♦ 
*************** 



♦ H4 
A HEX 'GT'IS MOVED 
TO THE ATTENTION 
ROUTINE PIB FLAG BYTE. 
EVENTUALLY THAT VALUE 
IS CHANGED TO A HEX 
•87» AND CHANGED AGAIN 
TO A HEX 'SI' WITHIN 
SVC 22 PROCESSING 
ROUTINES. 
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Chart KB, Control Routine {$$BATTNA) ; Refer to Supervisor, 
Chart 21 



« CONTROL * 
« » 



CONTROL X 

* RESET THE * 
•OPERAND NUMBER « 

• IN LOCATION * 
« OPNUHB TO * 
« ZERO • 



*RDSTMT KC* 
CLEAR I/O * 



««4i«i««««t <■«««**««» 



.« INPUT 
. BUFFER ALL 
*. BLANK .' 



CHKSTT X 

»«**»B3«*«*«««««« 
» PUT BUFFER * 
« ADDRESS AND « 
« BUFFER LENGTH * 

♦ IN A PAIR OF * 

* REGISTERS ♦ 



«SCANR1 KD« 

♦ SCAN ♦ 

♦ OPERATION ♦ 

♦ FIELD ♦ 



THROUGH 

CONSIDER THE 
NEXT TABLE 
ENTRY AS THE 
FIRST ENTRY. 



♦ 2 ♦ 
« * 



BTLOOP X 

«»**«B5«*******«<< 

♦ POINT TO THE ♦ 

♦ NEXT TABLE * 

♦ ENTRY ♦ 



* « 
.X* 1 * 

» « 



*E2 
A HALFWORD 
OF 5 IS USED 
IN THIS CHECK 
BECAUSE THE 
LENGTH INFORMATION 
IS IN THE FORM 
. LENGTH-1. 



BLANK 
AT END OF 
. FIELD . 



«KU ♦ 
* B5* 



♦KA * 
« B4>* 



.♦ FIELD *. 
.♦ LENGTH GT *. 
♦ . 

*. «♦ 
♦. ♦EZ .♦ 
♦ . .♦ 
♦YES 



C5 ♦. 
.♦END OF 

« BRANCH- 
VECTOR 

«. TABLE 



.♦ TABLE 
. ENTRY EQ 
♦.PARAMETER. 



E3 ♦. 


X 


*4t««*E5^^^^^^^^^^ 


♦ FIELD ♦. 


*««*E4«****«*4i* 


♦ PUT SUM OF ♦ 


LENGTH GT ♦. YES 


« NVSERR * 


♦BASE REG VALUE ♦ 


6 .♦... 


♦ CHART KC ♦ 


♦ AND DISPLACE- ♦ 


♦E2 .♦ ) 


( ♦ ♦ 


♦MENT IN A REG, ♦ 
♦P0INT3 ♦&«♦ 


♦ . .♦ 


*4i4i«**«4[4i*4<<t*4i* 


♦ . .♦ 




4i«*«4i*««**««*«4i*4' 


♦NO 




. 



♦ BRANCH TO ♦ 

♦ EFFECTIVE ♦ 
♦ADDR IN P0INT3 ♦ 



.♦ CORRECT 
PHASE 
♦.RESIDENT 



*««**G3^^^^^^^^^^ 

♦ MOVE THE ♦ 

♦ OPERATION ♦ 

♦ FIELD FROM ♦ 

♦ THE BUFFER TO ♦ 

♦ PARMTR ♦ 



•>G* 
THE SUM OF 
BASRG2 AND 
THE BRANCH 
VECTOR INDEX 
POINTS TO THE 
ADDRESS OF 
THE FIRST 
EXECUTABLE 
INSTRUCTION. 



♦ GET PHASE ♦ 

♦ IDENTIFIER ♦ 

♦ AND SUPPLY ♦ 
♦SVC 4 WITH ADDR^ 
♦INFORMATION ♦J*^ 



«*4<**H39^9*^^^9^^ 
♦PUT THE START- ♦ 

♦ ING ADORESS-8 ♦ 

♦ OF THE BRANCH ♦ 

♦ VECTOR TABLE ♦ 

♦ IN REGISTER 6 ♦ 



♦ SVC 4 ♦ 

♦ LOAD CORRECT ♦ 

♦ PHASE ♦ 



♦J4 
REGISTER SUPPLIES 
THE OVERRIDING LOAD 
ADDRESS. REGISTER 1 
SUPPLIES THE ADDRESS 
OF THE PHASE NAME TO 
BE LOADED. 



♦ BRANCH TO ♦ 

♦ ADDR IN ♦ 
♦POINTS ♦G^* 



^ 
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Chart KG, Root Phase Subroutines ($$BATTNA)j Refer to 
Supervisor^ Chart 21 



• I ♦ 



• ERRRTN • 



• OUTPUT ♦ 

* BUFFER ♦F? ♦ 



* PUT LENGTH ♦ 

* OF ERROR * 

* MESSAGE INTO * 

* SYSLOG ecu * 

* • 



ESSAGE AND • 



«*****E1*********** 
EXCPRG KC 

SEND ERROR 

* MSG * 

•E2 



♦ TURN ON^ ♦ 

♦ SYSFGI 

♦ INDICATOR IN 

♦ FLGBYO 

♦ ♦HI • 



* CONTROL • 

* CHART KB • 

* * 



• EXCPRG • 



••••*«B2*********** 

♦ SVC • 
EXCP 

• • 



•••*A4*****««*« 

* « 

* ROSTMT • 



*««*B3*****«*** 

« • 

« OTINUN • 



•*•••«••••«•••••• 



DTINUN 



.♦ TRAFFIC ♦. 

*• BIT POSTED . 

•• IN CC6 .« 



****D2********* 

• SVC 7 ♦ 

• WAIT ♦ 

• * 



•***03********* 

♦ EXIT TO • 

♦ USER • 

♦ * 



*E2 ISOOD 
MESSAGE- 
INVALID STATEMENT 



• SET UP REG 1 ♦ 

• WITH THE • 

• SYSLOG-CCB ♦ 

• ADORERS * 



FGl 

INPUT 
*D5 



***«*E4********** 

• RESET REG 1 * 

• WITH THE • 

• SYSFGI CCB • 

• • 



••••A5*******.** 
• NVSERR • 



•ERRRTN KC* 

• SEND • 

• ERROR • 

• MESSAGE *E2 • 



♦EXIT VIA ERRRTN* 

• TO LOCATION • 

• CONTROL • 



TO DETERMINE 

IF A CARD READER 

OR 1050 DEVICE 



BY EXECUTING THE 
MOVE INSTRUCTION 
PHYSICALLY LOCATED 
IN LINE WITH 
THE NVSERR SUBROUTINE. 



******F4*********** 
EXCPRG KC 

PERFORM 

♦ I/O • 

EXCP 



. EXCEPTION .••••• 
♦.POSTED IN.* 
•• CCB .* 

*. .* X 

*N0 ***• 



• I ♦ 

• «*• 



SYSLOG INPUT. 



YES .♦ INPUT *. 
...*. BUFFER .* 
*.ALL BLANK.* 



*-*nS 




*:•** 'Sr *'*:*!!?.. 

*. SYSFGI .* 

*. .* 

*. .♦ 




*****J5********** 

••"LliLJ 



RETURN TO 

* ADDRESS IN * 

* LINK REG * 
****•***•••**«• 



* RETURN TO * 

* ADDRESS IN * 

* LINK REG * 
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Chart KD. General Scan Routines ($$BATTNA); Refer to 
Supervisor^ Chart 21 



« SCANftZ « 



* SCANRl • 

• •Jl • 



SCANR2 X 

«LOAD REGISTERS * 
♦MITM CHARACTER ♦ 
♦ ^ADDRESS km * 
^ " REMAINING 
--"GTL 



t***A3*««****** 

* SCANR3 • 

• •Kl • 



SCANR3 X 

•***4iB3****4>***** 

« LOAD POINTI • 

* AND P0INT2 * 
«UITH CHAR ADOR « 

* AND REMAINING * 

* BUFFER LENGTH • 



• 2 • 



SCANRl X 

«ZERO PARAMETER ^ 



«««««*»»««««4i«*** 



X 
LI .*. 

Dl *. 

. •'character'*, no 
. in buffer a .*... 

«. BLANK .» 
♦. .♦ 



* « 

• 2 « 
« « 



* ADD ONE TO * 
«THE ADDRESS IN » 
♦POINTI SO THAT • 

♦ IT POINTS TO ♦ 
♦THE NEXT CHARAC* 



Ft «. 

.* ♦. 

« END « 

OF BUFFER 



*E2 
THE ORING OF A 
HEX •*0» FORCES 
UPPER CASE. THIS 
IS DONE IF 
THE GENERALIZED 



TO PREPARE 
CARD IMAGES FOR 
HAPPING. (NSGINl 
COMMAND OF MAPI 



SCNRL2 X 

**«**C3********** 

♦ LOAD A REG * 

♦ WITH THE AODR * 

♦ OF THE EXIT ♦ 

♦ CODING ♦ 

♦ NDSCAN * 
•*•••••*•*«•*♦*•* 



***«*03*«*****«** 

• PUT THE • 

• ADDRESS OF * 

• THE CHARACTER « 

• IN A WORK * 

• REGISTER • 



•*«««E3«*«******« 

* CHANGE THE * 

* CHARACTER TO • 

* UPPER CASE « 

* ♦E2 * 

* * 



POINTI CONTAINS 

THE ADDRESS OF 

THE FIRST CHARACTER 

OF THE FIELD. 

P0INT2 CONTAINS 

REMAINING BUFFER 

LENGTH. 

P0INT3 CONTAINS 

LENGTH-1. 



G3 ♦. 

.* *. . .^ ... 

.♦CHAR EQUAL «. YESX CALLING ROUTINE 
». TO A BLANr - " 



•^.♦'•^ 



ENTRY AT THIS POINT TO GET THE FIRST 
FIELD AFTER THE OPERATION CODE. 
LEADING BLANKS ARE SKIPPED. 
CURRENT POINTER INFORMATION 



•J I 
ENTRY AT THIS POINT TO ( 
OPERATION CODE FIELD. ~ 



ARE INITIALIZED WITHIN THE 
CALLING SEQUENCE. LEADING 
BLANKS ARE SKIPPED. 



CURRENT POINTER INFORMATION 
IS IN LOCATION TMPARl. AT 
LEAST ONE SCAN HAS BEEN MADE. 
BLANKS ARE NOT SKIPPED. 



♦. .♦ 

• . .* 
♦NO 



H3 ♦. 
.♦ CHAR ♦ 
.♦ EQUAL TO 



•♦♦♦♦J3^^^^^*^*«^ 



•««•««••«•«*««««« 



K3 ♦. 

OF li^ffER 

'• •' 

••♦NO 

♦ ♦ 

• 2 ♦ 



LOU EQUALS BLANK. 
EQUAL EQUALS COMMA. 
HIGH EQUALS EQUALS. 
THE CONDITION C 



kOSCAN X 

♦ CALC ADDRESS ♦ 

♦ OF NEXT CHAR- ♦ 

♦ ACTER IN ♦ 

♦ WRKRGl ♦ 

♦ ♦ 



♦ * 
♦CALC REMAINING ♦ 

♦ BUFFER LENGTH ♦ 

♦ (POINT 2-1) ♦ 



♦ STORE RESULTS ♦ 
♦OF CALCULATIONS* 



♦ ADJUST THE ♦ 

♦ PARAMETER ♦ 
♦LENGTH COUNTER ♦ 

♦ TO LENGTH ♦ 

♦ MINUS ONE ♦ 



♦•♦♦•F5^^^^^^^^^* 

♦ ADO ONE TO * 

♦ THE OPERAND ♦ 

♦ NUMBER KEPT ,♦ 

♦ IN LOCATION ♦ 

♦ OPNUM ♦ 



♦♦♦♦♦G5^^^^^^^^^^ 

♦ TST LAST CHAR ♦ 

♦ IN THE FIELD ♦ 

♦ FOR A COMMA ♦ 
♦(SET CONDITION ♦ 

♦ CODEI •64 ♦ 



♦ EXIT TO ADDR ♦ 

♦ IN LINK ♦ 
♦...RICISTER^ 



4 80 DOS System Control 



Chart KE. MSG Statement Processor ($$BATTNB); Refer to 
Supervisor r Chart 2U 



♦ ♦ 

♦ SSBATTNB ♦ 

♦ ♦ 



* MSG ♦ 

* * 



♦SCANR2 K 
♦-♦-♦-♦-♦-*-♦-♦ 

♦ GET FIRST 

♦ OPERAND 

* 



♦CKF1F2 KE* 
*-♦-♦-♦-♦-*-♦-♦-» 

♦ GET CORRECT ♦ 

♦ PROGRAM KEY » 

♦ ♦ 



*4<4c4>*Dl********4<* 

♦STEXCD KF* 
♦-♦-♦-*-♦-*-♦-♦-♦ 

♦ ESTABLISH ♦ 

♦ LINKAGE TO ♦ 

♦ USER ROUTINE ♦ 



* CONTROL * 

« CHART KB * 



♦ ♦ 
» EXTINT ♦ 

* * 



♦ PUT THE BG ♦ 

♦ STORAGE KEY. ♦ 

♦ HEX 'lO' INTO ♦ 

♦ A REGISTER ♦ 

♦ ♦ 



♦STEXCD KF* 

* ESTABLISH ♦ 

* LINKAGE TO ♦ 

* USER ROUTINE * 



* RESET ATTN ♦ 

* PIB SW * 

* AFTER TESTING 

* IT * 

* * 
************** 



♦ CKFIF2 ♦ 



* PUT THE Fl ♦ 
STORAGE KEY. * 
EX 'BO', INTO ♦ 

* A REGISTER * 

* *C4 ♦ 



♦ HEX 



*C4 
THE REGISTER POINTS 
IS USED IN THE STEXCD 
SUBROUTINE. 



***4>*C5********** 

♦ TEST THE MSG ♦ 

♦ STATEMENT ♦ 

♦ OPERAND IN * 

♦ THE BUFFER ♦ 

♦ ♦ 



NO 


.* 


ATTEN- 


...* 


.TION REQUEST 


• 


*, 


SW ON . 
♦. .* 


X 




♦ . .* 


***** 




♦YES 


♦ KA * 






♦ B^* 




. 



TMPARI 
THIS LABEL IS NOT 
ASSEMBLED AT AN 
EXECUTABLE INSTRUCTION. 
HOWEVER, BEFORE SEG- 
MENTS OF $$BATTNA CODE 
ARE OVERLAID, IT CAN 
BE ADDRESSED TO RETURN 
CONTROL TO THE INI- 
TIALIZATION ROUTINES. 



♦♦***E5*******4<** 

♦ PUT THE F2 ♦ 

♦ STORAGE KEY * 
♦HEX •20«, INTO ♦ 

♦ A REGISTER ♦ 
» *C4 ♦ 

***:********^***i^* 



****Qi^********* 

♦ RET TO ADDR ♦ 

♦ IN LINK REG ♦ 



♦♦♦*G5**^**^*** 
» NVSERR ♦ 

♦ CHART KC ♦ 

* ♦ 
41*41 4i4i**4t**4i***^ 
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Chart KF. Set Operator Communications and Exit Table 

Linkage ($$BATTNB); Refer to Supervisor, Chart 24 



♦ STEXCO ♦ 






• ACCESS THE • 

• PIB TABLE AT * 

• THE CORRECT * 
•PROBLEM PROGRAM* 

• PIB ♦ 



**«**C1********** 

* LOAD THE SAVE * 

♦ AREA AOORESS ♦ 
♦OF THE CORRECT ♦ 
♦PROBLEM PROGRAM* 
♦INTO A REGISTERS 
♦•♦•*******••**•♦ 



*«***01^^^^^^^^** 
*DIVIOE THE PRO-* 
* GRAM KEY BY 2 ♦ 
*ANO ADD RESULT * 
*T0 START OF OC * 
*EXIT TBL *D2* 



*****E !***♦♦♦♦♦** 

* PUT THE ♦ 

* OOUBLEWORO • 

* OPTION TABLE * 

* ENTRY INTO A ♦ 

* PAIR OF REGS * 



• *• 
Fl *. 

.* USER ♦. 
.♦ AOOR ♦. YES 
♦.HAS POSITIVE .♦... 
♦. SIGN .♦ 
♦. ♦Fa .♦ 



♦02 
THE OC EXIT TABLE REFERRED 
TO IN THIS PHASE IS COM- 
MONLY CALLED THE OC OPTION 
TABLE. THE ADDRESS 0~ 
THIS TABLE MINUS 8 IS 



THE ADDRESS OF 

..JLE MINUS 8 IS 

FOUND IN THE COMMUNICATION 



REGION AT DECIMAL DIS- 
PLACEMENT 104. SEE FIGURES 
15 AND 25 IN SECTION 3. 



B3 ♦. 
•♦COMPLE-^. 
.♦ MENT OF ♦. N 
. USER ADOR .♦. 

♦ . .♦ 

♦YES 



•♦♦«*C3^^^^^^^^^^ 

♦ LOAD I/O ♦ 

* BUFFER WITH 



• ACTIVEt ICSOI ♦ 



**4i*«D3**«*9***** 



♦ WITH THE 

♦ LENGTH OF ♦ 

♦ THE MESSAGE ♦ 



SYSLOG ♦. NO 
EQUALS A .♦... 
. 1052 .♦ 



♦C4 
REGISTERS WILL BE RE- 
ORDERED FROM 9-8 TC 0-15. 



9^9 9E^* ******** 
* RET TO ADQR ♦ 
.X^ IN LINK REG ♦ 



♦♦♦♦♦♦*♦♦•♦♦*♦* 



♦ F2 
THE POSSIBLE VALUES ARE: 

1. POSITIVE ADDRESS 

2. COMPLEMENT OF ADORES 

3. ZERO 



♦NO 



♦ SET UP 

♦ SYSLOG 

♦ CCB 

* 



SETEXT X 

♦♦♦♦♦B5^^ ♦♦♦•**** 

* MOVE THE PSW * 

• FROM THE * 
♦PROBLEM PROGRAMS 

♦ SAVE AREA TO ♦ 

♦ OC SAVE AREA ♦ 



••*»*C5*^^^^^^^^* 
♦ MOVE GENERAL ♦ 
♦REGISTER VALUES^ 



♦ PUT OC ADOR^ 

♦ IN PSW FLO ♦ 

♦ OF PROBLEM 



^♦***E5^^^^^^^*^* 
♦PUT COMPLEMENT * 
♦OF OC RTN AODR * 
♦INTO OC OPTION • 

♦ TABLE ENTRY * 

♦ TO IND BUSY * 
m******if********* 



•***F5*4i»**»*** 



♦♦••*•«*♦♦♦•*** 



*****G1^^^^^^^^^^ 

♦ CLEAR THE * 

♦ I/O BUFFER ♦ 

♦ FOR MESSAGE ♦ 

♦ USE ♦ 

♦ • 



*4i**G3^**^***** 

♦ EXCPRG ♦ 

♦ CHART KC ♦ 

♦ • 
♦♦♦•♦♦♦♦*♦«•♦♦♦ 



*****H1^^^^^*^^** 



♦ MESSAGE FOR ♦ 

♦ NO ROUTINE ♦ 

♦ LINKAGE 1C40I ♦ 



♦♦♦♦«J1***«^***** 



LENGTH OF THE ♦ 
MESSAGE ♦ 



♦ I ♦ 
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Chart KG. CANCEL statement Processor ($$BATTNC); Refer to 
Supervisor, Chart 24 



**«»A1*«***«*** 






* * 


* * 


♦ ♦ 


* StBATTNC * 


♦ CANCEL ♦ 


* CNLRTN * 


* * 


* * 


♦ * 


lX»m,,»,,*m 




* 




••■•••• ••>«•••«« 






USE STARTING 




X 


ADDRESS OF PIB 




CANCEL .*. 


TABLE PLUS A 


X 


Bl *. 


DISPLACEMENT (KEY 


«««4i*B3*****4>**** 


.* *. 


VALUE) TO POINT 
TO THE CORRECT 


♦ CALC THE ♦ 


NO .* *. 


♦ ADDRESS OF ♦ 


...♦. MPS .♦ 


PIB ENTRY. 


♦THE CORRECT PIB* 


*. .* 




♦ TABLE ENTRY ♦ 


*• •« 




* *B2 * 


♦ . .♦ 




4i***«*«4i4>*«*«4i««* 


♦YES 






; 


•C2 






A HEX 'SO* 






INDICATES THE 


X 


X 


AREA IS NOT ACTIVE* 


,*. AN 


*SCANR2 KO* 


OR DETACHED. 


C3 ♦. 




.* PIB *. 


•-•-♦-•-♦-•-•-♦-» 




.♦ ENTRY ♦. YES 


* GET FIRST * 




*. DETACHED .* 


* OPERAND * 




♦. ♦CZ .♦ 



♦ ***4i*******«**** 





OPRSNT 

♦CKBF12 KG^ 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 
...X^ GET PROBLEM ♦ 


YES .♦ CANCEL 
•..♦. ALREADY 


*.^ FOUND ^.* 

*♦. .♦* 

♦NO 


♦ PROGRAM KEY ♦ 

♦ ♦Kl ♦ 


♦. ISSUED 
♦ . 

♦ . .♦ 

♦NO 



♦ BE INITIATED ♦ 

♦ INTO P0INT4 ♦ 

♦ ♦JZ ♦ 



-♦ KEY ♦. 
.♦ IN P0INT4 ♦. NO 
EQUALS .♦... 
». .* 



.♦• 

E3 ♦. 
.♦ LOC ♦. 
.♦KEY EQUALS ♦. YES 
♦. REG P0INT4 ...... 

♦. ♦JS .♦ 



♦ PUT B6 KEYf ♦ 

♦ HEX»10» INTO ♦ 

* REG P0INT4 ♦ 

* ♦ 
♦♦♦***♦*♦♦♦♦♦♦♦♦♦ 



♦CNLRTN KG^ 
♦-•>*-♦-♦-♦-♦-♦-♦ 

♦ SET CANCEL ♦ 

♦ CODE IN PIB ♦ 

♦ ♦ 
♦♦*♦•♦♦*♦♦♦♦♦♦•♦♦ 



CNCLIN X 

♦CNLRTN KG^ 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ SET CANCEL ♦ 

♦ CODE IN PIB ♦ 

♦ ♦ 
^^^^^^^^^^■♦♦♦♦♦♦^ 



***4iH2*^^^^^^^^ 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ ♦ 
^^^'♦♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦♦♦F3^^^^^^^^^^ 

♦ MOVE CANCEL ♦ 

♦ CODE TO ♦ 

♦ CORRECT PIB ♦ 

♦ CANCEL CODE ♦ 

♦ BYTE ♦HS ♦ 



**4>*G3^^*^*^^^^ 

♦ RET TO ADDR ♦ 

♦ IN LINK REG ♦ 

♦ ♦ 



♦H3 
THE CANCEL 
COOES ARE 
SET FOR OPERATOR 
INTERVENTION 
CANCEL. 



♦ ♦♦♦ 

♦ ♦ 

♦♦♦♦ 



♦ EXIT TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ ♦ 



♦ERRRTN KC^ 

»_»_♦_♦-♦-♦-♦«*_» 

(♦ SEND AREA ♦ 

♦ NOT ACTIVE ♦ 

♦ MSG 1I30D ♦ 



♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ ♦ 
♦♦♦♦•♦♦♦♦♦♦♦♦♦♦ 



CNCLME 

♦ ZERO A REG ♦ 
♦TO PROVIDE ALL ♦ 

...X^ INTERRUPTS ♦ 

♦ MASKED CONDI- ♦ 
♦TION ON SVC 22 ♦ 



SVC 22 

SEIZE THE 

SYSTEM 

* 



♦♦♦♦A5****«**** 

♦ ♦ 

♦ CKBF12 * 

♦ ♦ 
♦♦♦♦♦♦*♦♦**♦♦•• 



****B5^^^^^^***^ 



«•**«•«**«*«•*** 



.♦ OPERAND 
♦. .♦ 



♦ 1 ♦ 

♦ ♦ 
»♦♦♦ 



♦ MOVE THE ♦ 

♦ Fl KEY TO ♦ 

♦ REGISTER ♦ 

♦ P0INT4 ♦ 

♦ ♦ 



E5 ♦. 

.♦ ♦. 

.♦ OPERAND ♦. 

EQUALS 

♦. 'Fl* .♦ 



^♦♦♦♦F5*^^**^*^*^ 

♦ MOVE THE ♦ 

♦ F2 KEY TO ♦ 

♦ REGISTER* ♦ 

♦ P0INT4 ♦ 

♦ ♦ 



**4>4i*G4^^^^^^*^^* 


G5 ♦. 


♦ SET CANCEL ♦ 


.♦ ♦. 


♦ CODE FOR ♦ 


YES .♦ OPERAND •• 


♦ 'PROGRAM- ♦ 


...... EQ^JLS ,.. 


♦ REQUEST- ♦ 


♦ CANCEL* ♦ 


♦. .♦ 


*•*********«***•« 


X ♦. .♦ 




♦♦♦♦ ♦NO 




♦ ♦ 




♦ I ♦ 




♦ ♦ 


• 


♦ ♦♦♦ 


X 


X 


♦ ♦ 


♦♦♦♦H5***^*^^** 


♦ SVC 22 ♦ 


♦ NVSERR 


♦ RELEASE THE ♦ 


♦ CHART KC 


♦ SYSTEM ♦ 


♦ 



***4i*4i****4i**« 



4i«*«**4i«**4t««*» 



♦ ♦*♦♦ 

♦ KA ♦ 

♦ B4* 



•Kl 

THE KEY USED 

IS CALLED THE 

EXPLICIT KEY 

BG«HEX 'lO' 

F2-HEX •20« 

Fl«HEX 'SO* 



♦J2 
THE KEY USED IS CALLED 
THE IMPLICIT KEY. ITS 
VALUE IS SET WHEN A 
START IS ISSUED. A ZERO 

VALUE means: 

1. BATCH-ONLY ENVIRONMENT* 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 

2. MPS ENVIRONMENT-NO 
START HAS BEEN ISSUED 
USE BG KEY AS KEY TO 
PROGRAM TO BE CANCELED. 



♦J3 

THE PROGRAM BEING 
INITIATED IS NOW 
BEING CANCELED. 



♦ SVC 11 ♦ 

♦ RETURN ♦ 

♦ ♦ 
♦♦*♦*♦♦♦♦♦♦♦♦♦♦ 
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Chart KH* PAUSE, LOG, and NOLOG Statement Processors 
($$BATTNC) ; Refer to Supervisor, Chart 24 



* PAUSE ♦ 



* TURN ON ♦ 

* PAUSE SWITCH 

* IN JOB CTRL 

* SWITCH 

* • 



♦ CONTROL ♦ 

♦ CHART KB * 

♦ * 
*************** 



***4>A3********* 



•*••«***•****•• 



* TURN ON * 

* LOG SWITCH ' 

* IN JOB CTRL 

* SWITCH 

* • 



****C3********* 

* CONTROL « 

* CHART KB * 

* • 



♦♦♦♦A5*»******* 

* * 

* NOLOG * 

* * 



* TURN OFF ♦ 

* LOG SWITCH 

* IN JOB CTRL 

* SWITCH 

* • 



♦ CONTROL * 

♦ CHART KB • 

♦ ♦ 
*************** 
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Chart KJ. MAP Statement Processor ($$BATTND); Refer to 
Supervisor, Chart 24 



» » 

♦ $$8ATTN0 ♦ 

* * 





♦ I ♦ 

• * 
♦ ♦»♦ 


MAP * 


X 
♦STUCRL ^ KL* 
•~ ~ OUTPUT ♦ 

: ^^ : 



* CLEAR THE I/O ♦ 

* BUFFER AND ♦ 

* MOVE THE MAP ♦ 

* HEADER INTO ♦ 

* THE BUFFER * 



4>*«**C1 ********** 
*OUTPUT KM* 
»-♦-♦-»-*-♦-♦-*-» 

* OUTPUT MAP * 

* HEADER LINE * 

* * 



*4i4<**Dl ********** 

* CLEAR THE I/O * 

* BUFFER AND * 

* SET OUTPUT * 

* LENGTH TO I * 

* * 

**4t* ************* 



**4i4i*****»» 



4i*4i*4<pi**4i4****** 

* CALC THE PIB * 
*ADDRESS OF THE * 
*PROBLEM PROGRAM* 
*SUPP0RTING THE * 
*INTERVAL TIMER * 
***************** 



*STUSPC KL* 
♦-*-*-*-*-*-*-*-* 
*CALC SUPERVISOR* 

* UPPER LIMIT • 

* * 

4>**************** 



4>****H1 ********** 

* CALC THE » 

* NUMBER OF * 

* BG IK * 
» BLOCKS * 

* *H2 ♦ 
***************** 



*****j I ********** 
*STUBGL KL* 
*-*-»-*-*-*-*-♦-* 
* OUTPUT * 
*SUPERVISOR LINE* 
*SET UP BG LINE * 
***************** 



****K1********** 

PUT PROGRAM * 

NAME INTO * 

LOCATION » 

NAMFLD * 

* 

**************** 



***************** 



*****B3********** 
♦STUCRL KL* 
♦-•-♦-»-*-*-»-*-» 

* SET UP F2-FI * 

* OUTPUT F2 * 

* * 
***************** 



*****C3********** 

* PUT END OF ♦ 

* MAIN STORAGE * 

* ADDRESS INTO * 

* A WORK * 

* REGISTER ♦ 
***************** 



*****()3 ********** 
*STUF1U KL* 

*-*-*-*_*-*-*-*-* 

* SET UP * 

* END OF MAIN * 

* STORAGE * 
***************** 



*«***£ 3********** 
*OUTPUT KM* 
*_*_*_*_*_*_*_*_* 

* OUTPUT Fl * 

* LINE * 

* * 
***************** 



****F3********* 

* CONTROL * 

* CHART KB * 

* * 
*************** 



*H2 
NUMBER OF IK 
BG BLOCKS EQUALS 
F2 STARTING 
ADDRESS PLUS I 
MINUS STARTING 
ADDRESS OF BG 
AREA DIVIDED 
BY 102^. 
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Chart KL. Output MAP Subroutines (Part 1 of 2) $$BArrND; 
Refer to Supervisor^ Chart 2^ 



♦ I • 



STUCRL X 

CALCULATE ♦ 



•***A3********* 

«> * 

• STUSPC • 



• THE NUMBER • 

* OF .IK BLOCKS * 

• ♦C2 ♦ 

* • 



* STUBGL * 

* * 



PUT 

PROGRAM 

INTO THE I/O 



THE • 
PREFIX * 



**4i*«*4i*****«**»* 



•CONVERT NUMBER • 

♦ OF.IK^BLOCKS ♦ 

♦ TO EBCDIC ♦ 



•C2 

double the number 
of 2k blocks found 
In the pTb entry. 



•••••C3**<0******* 
• CALCULATE • 



••*••*••*•**••*•• 



• STUFIU ♦ 



•02 

THE SyPEl 

BG PROGRAM UPPER 



PERVISOR AND 



•OUTPUT KM^ 
•-••-4>-*>*-4>-*~*~* 
• TYPE BUFFER • 



•••••EI****^^*^^« 



LIMITS AR 

n mi 

RESPECTIV 



ARE CALCULATED 
ING THE BG AND 
,.... IN, ADDRESSES 
__PECTIVELY AND 
DECREASING THEIR VALUE 
BY ONE. 



STUFIU X 

•CNVBCO KM* 
•>•-•-•-*-*-•-•-• 

• CONVERT UPPER • 

• LIMIT TO • 

• EBCDIC • 



•BUFFEI 

•.'Sf-l, 



CLEAR I/O 
FER AND LQAI 
-TH NUMBER 



K BLOCKS • 



♦ MOVE THE • 
•UPPER LIMIT TO • 

• THE CORRECT • 



••*••*••*•••••••• 



PIB 

...JICATES . 

,..•. TIMER SUPPORT. 



NO •• INDICATES •. 



• MOVE THE • 

• CHARACTER 'T* • 



••*«*r:3*******«** 

• POINT TO THE • 

• NEXT PIB • 

• ENTRY • 

• • 



••••G3^^^**^*^^ 

• RET TO ADDR • 

• IN LNK REG • 

• • 



.X. 

X 

••• 



•• PIB •• YES 
•INDICATES TASK.^.... 
•.DETACHED .• 



:> : 

•••• 



•••••ji •••••••••• 

• GET PROGRAM • 
•NAME FROM SAVE • 
•AREA AND PUT IT^ 

• INTO THE I/O • 

• BUFFER • 



•••• 

• • 

• I • 

• • 
•••• 
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Chart KM. Output MAP Subroutines (Part .2 of 2) $$BArTND; 
Refer to Supervisor, Chart 24 



* * 

* CNVBCD • 

* * 
*4i*4i«4>* ******** 



♦ CONVERT LIMIT ♦ 
♦INFORMATION TO ♦ 

♦ UNPACKED * 

♦ EBCDIC ♦ 

♦ ♦ 



*4i**:»Cl ♦♦♦***♦**♦ 

» PUT ADDRESS * 

♦ OF FIELD INTO * 

♦ A WORK ♦ 

♦ REGISTER ♦ 

♦ * 



♦♦♦♦A3********* 

* * 

* OUTPUT * 

* * 
*************** 



*PUT THE ADDRESS* 

* OF THE LAST * 

* BYTE OF THE * 

* I/O BUFFER * 

* INTO A REG ♦ 
**4>*4i*4i**4i«**4i**« 



CHARACTER 
EQUALS 
. ZERO 



.* NEXT *. 

CHARACTER 

EQUALS 



*****pi4i4>****4i«*« 

* REPLACE ZERO ♦ 

♦ WITH A BLANK ♦ 
♦POINT WORK REG ♦ 

♦ TO NEXT CHAR ♦ 

* * 
***************** 



CHARACTER 

EQUALS 

. BLANK . 



*****Q-i********* 

* 

♦ CALCULATE 

♦ LENGTH FOR 

♦ I/G OPERATION 

* 

****************: 



*****Q/^*******mm* 

♦ DECREASE ♦ 

♦ REG BY UNE, ♦ 
.X^ POINT AT PRE- ♦ 

♦ CEDING CHAR ♦ 

♦ * 
***************** 

I **** 

* ♦ 
..X^ 1 ♦ 

* * 
**** 

****Qi,********* 

♦ * 

♦ SKPLIN ♦ 

♦ * 

*************** 



****P2********* 

♦ RET TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ * 
*************** 



*****^^********** 

♦ STORE LENGTH ♦ 

♦ IN SYSLOG ♦ 

♦ OUTPUT CCW, ♦ 

♦ SET UP CCB ♦ 

♦ * 
***************** 



^****f.-i********** 
♦EXCPRG KC* 
»-*-♦-*-♦-*-»-♦-♦ 

* PERFORM THE ♦ 

* I/O OPERATION ♦ 

* * 
***************** 



****(^^********* 

♦ RET TO ADUR ♦ 

♦ IN LNK REG ♦ 

♦ VIA EXCPRG ♦ 
*************** 
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Chart KN, ALLOC Statement Processor, Part 1; ($$BATTNE) ; 
Refer to Supervisor, Chart 25 



♦ $$BATTNE ♦ 

♦ *C2 ♦ 

♦ * 

*************** 



*A5 
EXIT ON THE NO LEG THE 
FIRST TIME THROUGH THIS 
ROUTINE 



* ALLOC * 

♦ ♦C2 ♦ 

• * 



♦ ♦♦♦ 

* * 

♦ 1 ♦ 



♦ ♦♦♦ 
♦ 2 ♦ 



♦RESET DUPLICATE* 

♦ OPERAND AND * 
♦SECOND OPERAND ♦ 

♦ SWITCHES ♦ 

♦ * 



CRTBLD X 

♦ SET UP WRKRGl ♦ 

♦ WITH THE END ♦ 
♦OF STORAGE ADDR^ 
♦POINT I WITH Fl^ 

♦ TBL ADDRESS ♦ 



63 ♦. 

.♦ PIS ♦. 
.♦ INDICATES ♦. 
.TASK DETACHED. 



♦ USE ADDRESS ♦ 

♦ OF SAVE AREA ♦ 
♦AS LOWER LIMIT ♦ 

♦ AND PUT INTO ♦ 

♦ TABLE ♦ 



♦ NVSERR » 

♦ CHART KC ♦ 

♦ ♦ 



♦ MOVE THE ♦ 

♦ OPERAND FOUND ♦ 

♦ BY SCANR2 ♦ 

♦ INTO THE ♦ 
♦PRECEDING TEST ♦ 



**«**DI^^^^^^^^^^ 

♦ SET UP P0INT2 ♦ 

♦ WITH THE PIB ♦ 

♦ TABLE ADDRESS ♦ 

♦ AND ZERO THE ♦ 

♦ BYTE CNT REG ♦ 



♦DECREASE POINTl^ 

♦ AND P0INT2 BY ♦ 

♦ 16 POINT TO ♦ 

♦ NEXT TBL AND ♦ 
♦PIB RESPECTIVELY 



♦SCANR3 KD^ 
♦-♦-♦-♦-*-♦-♦-♦-♦ 

♦ GET NUMERIC ♦ 

♦ ALLOCATION ♦ 

♦ VALUE ♦ 



INNXEN X 

:^«4i*4>E !♦♦♦♦♦♦♦♦♦♦ 

♦ STORE THE ♦ 

♦ CONTENTS OF ♦ 

♦ MRKRGl IN THE ♦ 
♦TABLE AS UPPER ♦ 
♦LIMIT VALUE ♦E2^ 



♦GET ORIGIN FROM^ 

♦ CURRENT PIB ♦ 
♦AND MOVE IT TO ♦ 

♦ THE TABLE AS ♦ 

♦ LOWER LIMIT ♦ 



*«:«*4<G1 ♦♦♦♦♦♦♦♦♦♦ 

♦ CALC UPPER ♦ 
♦LIMIT FOR NEXT ♦ 

♦ TABLE ENTRY ♦ 
♦-CURRENT LOWER ♦ 
♦LIMIT MINUS I- ♦ 

:t,:^^if ************* 



♦E2 

THIS VALUE IS ALSO STORED 
IN THE ACTIVE LOWER LIMIT 
FIELD INDICATING THIS 
FIELD IS INACTIVE. IT 
CONTAINS A HEX FF IN THE 
LAST BYTE. 



♦F2 
THIS LOOP IS EXECUTED 
UNTIL 3 TABLES* ONE FOR 
EACH TYPE OF PROBLEM 
PROGRAM. ARE BUILT. THE 
TABLES ARE BUILT IN THE 
SEQUENCE FI. F2t AND 
BG. THE SEQUENCE IS A 
REVERSAL OF THE PHYSICAL 
ORDER. SEE LABEL LIST 
FOR ATABLE. F2TBEN AND 
FITBBN EXPANSIONS. 



ALLOCATION 

♦. TABLE . 

♦. ♦F2 .♦ 



**** . 

♦ ♦ . 
♦KP ♦.X. 

♦ E3^ 
**** 

GTNXOP X 

*****p^********** 
♦SCANR2 KD^ 
*-*-♦-♦-♦-♦-♦-♦-♦ 

♦ GET FIRST ♦ 

♦ OPERAND ♦ 

♦ ♦JS ♦ 
***************** 



*****Q^******^**^i 

♦ LOAD THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE Fl TABLE ♦ 

♦ INTO POINT-* ♦ 

♦ * 
***************** 



♦ DELIMITER ♦ 

IS AN EQUAL 
♦. SIGN .♦ 



*****Qit******* 

♦ MODIFY TEST^ 

♦ AFTER RETURN ♦ 

♦ FROM SUB- ♦ 

♦ ROUTINE ♦FS^ 

♦ 4> 

************** 



****E5********* 

♦ NVSERR ♦ 

♦ CHART KC ♦ 

♦ * 
*************** 



♦F5 
THE INSTRUCTION AT LOCA- 
TION CKSCST IS MODIFIED 
TO BRANCH TO THE ERROR 
HANDLING ROUTINE IF THE 
SECOND OPERAND IS 
DELIMITED BY AN EQUAL 
SIGN OR A COMMA. THE 
COMMA IS ALLOWED TO 
DELIMIT THE FIRST 
OPERAND. 



*****iil********** 

♦ CALC NUMBER ♦ 

♦ OF 2K BLOCKS ♦ 

♦ AND STORE ♦ 

♦ IN TABLE ♦ 

♦ ♦J2 ♦ 
***************** 



.♦ FIRST ♦. YES 
♦OPERAND EQUALS. ♦.... 
♦. Fl .♦ 



*****jl********** 

♦ ADD NUMBER ♦ 

♦ OF 2K BLOCKS ♦ 

♦ TO THE BYTE ♦ 

♦ COUNT REG* ♦ 

♦ WRKRG4 ♦ 
***************** 



♦ J2 
CURRENT UPPER LIMIT MINUS 
NEXT UPPER LIMIT DIVIDED 
BY 2048. 



*****j3********** 

♦ LOAD THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE F2 TABLE ♦ 

♦ INTO P0INT4 ♦ 

♦ * 
***************** 



♦J5 
THE ALLOC STATEMENT 
FORMAT 

ALLOC F1=2K, F2=2K 
Fl« OR F2- IS CONSIDERED 
THE FIRST OPERAND. IF 
BOTH Fl AND F2 ARE 
SPECIFIED SCANR2 IS 
USED TWICE. 



*****\f^l********** 
♦MOVE THE UPPER ♦ 

♦ LIMIT FOR THE ♦ 
♦NEXT AREA INTO ♦ 
♦WRKRGl ♦K2^ 

* ♦ 



INFORMATION. 



.♦ FIRST ♦. NO 
♦OPERAND EQUALS.*... 
♦. F2 .♦ 



•*4i*K4********* 

* NVSERR * 

* CHART KC * 

* * 
*************** 



♦ I ♦ 

* * 
**** 
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Chart KP. ALLOC Statement Operand Validity Checking; 
$$BATTNE; Refer to Supervisor, Chart 25 



OPERAND 

LENGTH 

LT 1 



OPERAND 

LENGTH 

GT 5 



♦♦*»*D1»»**»»»»*» 

• PUT ADDRESS » 
•OF THE OPERAND * 

* INTO WRKRG3 » 



OPERAND 
CHARACTER 
. NUMERIC . 



♦TEST CHARACTER * 

♦ TO DETERMINE ♦ 
*IF IT IS AN ODD* 

* NUMBER »J3 « 



*«*» G 1 ******* * 

POINT WRKRG3 

TO THE NEXT 

CHARACTER OF 

THE OPERAND 



HI *. 

♦END OF * 
NUMERIC 
CHAR IN 
OPERAND 



*»»*B 3* **•***»* 

CONVERT 

NUMERIC VALUE 

TO PACKED 

BINARY AND 

DIVIDE BY 2 



.♦ NUMBER * 
.OF 2K BLOCKS 
♦. GT 255 .* 



*»**D3****«»** 

SAVE THE 

NUMBER OF 

2K BLOCKS IN 

THE CURRECT 

TABLE ENTRY 



E3 *. 

.♦ SCAN ♦. 
♦STOPPED ON 

A BLANK 
*. *D^ 



**F3*»***** 

SET UP TO 

LOAD AND 

EXECUTE 

$$BATTNF 

*G4 



•»«G3*»***»* 

SVC 4 LOAD 

$$BATTNF 

CHART KQ 



«D4 
A BLANK DELIMITER INDICATES 
NO MORE OPERANDS FOLLOW. 
HOWEVER.AN ALLOC STATEMENT 
CAN CONTAIN TWO OPERAND FIELDS 
(FI AND F2) SEPARATED BY A 
COMMA. A COMMA DELIMITER 
REQUIRES ANOTHER ITERATION OF 
THIS ROUTINE TO COMPLETE 
OPERAND PROCESSING. 



*J3 
EACH CHARACTER IS 
TESTED TO DETERMINE 
IF IT IS ODD. THE 
TEST TO DETERMINE IF 
THE ALLOCATION IS IN 
MULTIPLES OF 2K IS 
MADE ON THE LAST 
NUMERIC CHARACTER 
ONLY. 



*G4 
THE LOAD INSTRUCTION IS PHYSICALLY 
THE FIRST INSTRUCTION FOUND IN 
THE LISTING OF THIS TRANSIENT. 
THE BRANCH VECTOR TABLE FOUND 
IN THE ROOT PHASE, $$BATTNA, 
CAUSES PROCESSING TO BEGIN 
WITH THE SECOND EXECUTABLE 
INSTRUCTION. WHEN THIS 
TRANSIENT IS FINISHED 
PROCESSING, THE LOAD IS 
EXECUTED BY BRANCHING TO 
THE ADDRESS IN THE BASE 
REGISTER. THIS IS THE 
ADDRESS OF THE SVC 14 
INSTRUCTION. $$BATTNF IS 
LOADED SO THAT IT OVER- 
LAYS THE FIRST PART 
OF $$BATTNE. $$BATTNF 
ALSO HAS A SVC 4 AS ITS 
FIRST INSTRUCTION, BUT 
SUPERVISOR GIVES CONTROL 
TO $$BATTNF AT THE NEXT 
INSTRUCTION FOLLOWING 
A SVC 4. 



.* LAST ♦. NO 
.CHARACTER OF .*... 
♦. OPERAND .♦ 



*«K2^^*«** 

NVSERR 

CHART KC 
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Chart KQ. ALLOC Statement Processor, Part 2 (Part 1 of 2) 
$$BATTNF; Refer to Supervisor, Chart 25 



* $$BATTNF * 

♦ ♦ 



* « 

* STARTF * 2 * 

* * 



♦PUT END OF MAIN^ 

♦ STORAGE AODR ♦ 

♦ INTO WRKRG2 ♦ 

♦ FCR INITIAL ♦ 
♦UPPER LIMIT CHK^ 



4t4>*4i:»C I ♦♦♦♦♦♦♦♦♦♦ 

♦ PUT Fl TABLE ♦ 

♦ ADDRESS INTO ♦ 

♦ POINTl ♦ 



4i«4<4<4>**4>****4<«*4<4i 



LIMIT EQUALS 
UPPER LIMIT 
OF LAST AREA 
PLUS NUMBER 
OF BYTES IN 
LAST AREA. 



STLLMT X 

^^^^^^^♦♦♦♦♦♦♦•♦^ 

♦ STORE NEW ♦ 

♦ LIMITS IN ♦ 

♦ THE CORRECT ♦ 

♦ TABLE ENTRY ♦ 

♦ « 



♦ CALC NEW ♦ 

♦ UPPER LIMIT ♦ 

♦ FOR THE NEXT • 

♦ TABLE ENTRY ♦ 

♦ ♦ca ♦ 



CMNWLM 

♦ SAVE TOTAL ♦ 

♦ NUMBER OF 2K ♦ 

♦ BLOCKS IN LOC ♦ 

♦ BGN02K ♦ 

♦ * 
***************** 



*****£l********** 

♦CALC TOTAL BLKS^ 
♦MINUS ALLOCATED^ 
♦BLKS WITH RSLT ♦ 
♦IN WRKRG4. CALC^ 
♦LOWER LIMIT ♦FZ^ 
***************** 



*****Qi^********** 

♦ SET REGISTER ♦ 

♦ POINTER. ♦ 

♦ POINTl TO ♦ 

♦ NEXT TABLE ♦ 

♦ ENTRY ♦ 
***************** 



E4 ♦. 






.♦END OF ♦. 






♦ALLOCATION ♦. 






TABLE .♦ 






♦ • .♦ 


• E5 




♦ . .♦ 


MESSAGE 


IPOOD 


♦ . .♦ 


INVALID 


ALLOCATION 


♦YES 







.♦ TBL ♦. 

.♦ ENTRY IN- ♦. 

♦DICATES ACTIVE. 

♦. AREA .♦ 

♦ J2 .♦ 



♦ , 



♦ YES 



♦F2 
THE LOWER LIMIT IS 
CALCULATED BY GETTING 
THE NUMBER OF 2K BLOCKS 
FROM THE CORRECT TABLE 
ENTRY. CONVERTING THIS 
NO VALUE OF BYTES ( 2K BLOCKS 
.... TIMES 2048). SUBTRACTING 
. THE BYTE COUNT FROM 
. THE UPPER LIMIT AND 
X ADDING ONE. 
♦ ♦** 

♦ 1 ♦ 



4r**4l4lG I ♦♦♦♦♦♦♦♦♦♦ 

♦ ENSURE SAVE ♦ 

♦ AREA ADDR ♦ 

♦ EQ BSORG ♦ 

♦ * 
***************** 



.♦ NEW ♦. 

YES .♦UPPER LIMITS. 
...♦. LT OLD 

♦. LIMIT .♦ 



.♦ NEW ♦. 

.♦LOWER LIMITS. NO 
GT OLD .♦... 
♦. LIMIT .♦ 



.* ♦. 
.♦ BG ♦. YES 
♦. AREA LT .♦... 


****fS********* 
♦ ERRRTN 
....X^ CHART KC 


♦. lOK .♦ 
♦ . •* 
♦ . .♦ 
♦NO 


♦ ♦ES 

*************** 




*****Q/^********** 

♦CHGSTT KR^ 
♦-♦-♦-♦-♦-♦-•-♦-♦ 


♦G5 
NECESSARY TO 

N SUBSEQUENT 
PROCESSING. 


♦ SUP RVISOR ♦ 

♦ STAT ♦GS ♦ 

***************** 





♦ J2 
A HEX FF IS FOUND IN 
THE LAST BYTE OF THE 
POINTER SAVE AREA 
FIELD OF AN INACTIVE 
ENTRY. THIS IS THE 
LAST BYTE OF 

. AN UPPER LIMIT 

. ADDRESS (ALWAYS FF). 



*****t^it********** 

♦ INITIALIZE ♦ 

♦ FOR LOW TO * 

♦ HIGH SCAN OF ♦ 



****♦ 
♦KR ♦ 
♦ Bl» 



♦H5 
BY USING A FORWARD 
SCAN OF THE ALLOCATION 
TABLE. CONTINUITY IS 
ENSURED. INITIALLY 
POINTl EQ ATABLE-16 
P0INT2 EQ PIBTBL 

ADDRESS 
WRKRG2 EQ STORAGE KEY 
WRKRGl EQ BG LOWER LIMIT 



♦ I * 

***♦ 



****Kl^^^^^*^** 

♦ ERRRTN ♦ 

♦ CHART KC 



************ 



.;u** 
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Chart KR. ALLOC Statement Processor, Part 2 (Part 2 of 2) 
$$BATTNF; Refer to Supervisor, Chart 25 



*A4 
USED TO ENTER AND EXIT THL 
SUPERVISOR STATE. WHEN 
USED AS AN EXIT, CERTAIN 
BIT SWITCHES IN THE SVC 
NEW PSW ARE RESET TO THEIR 
ORIGINAL VALUES. 



NXP-BNT X 

* ADD 16 TO 

* THE TABLE 

* POINTER SO 
♦THAT IT POINTS 
» TO NEXT ENTRY 



♦•♦♦•B 3* ******* 
« SAVE THE 

* ADDRESS OF 

* THE PC RTN 

♦ FOUND IN THE 

♦ NEW PC PSW 



REPLACE BG 

STAkT ADDR 

IN PIB 



•••••C3********** 
•PUT INSTR ADDR * 

• OF INSTR FOL- * 

• LOWING BAL IN * 
•THE ADDR FLD OF* 

• NEW PC PSW * 



♦»»»*DL******»**» 

* POINT TO NEXT • 
•PIB WITH P0INT2* 

* AND ADD 16 TO ♦ 

* STORAGE KEY ♦ 

* IN WRKRG2 * 


•••**D2******* 

• RETURN TO * 

• PROBLEM • 

• PROGRAM * 


«»««*D3******* 

• FORCE A 

• PROGRAM 

• CHECK 



««*»*E1********** 
•SET PIB VALUES • 
•FOR LOWER LIMIT* 
•AND BLOCK COUNT* 
•FROM ALLOCATION* 
• TABLE • 



* SET STORAGE * 
•PROTECTION KEY 

* IN THIS 2K * 

* BLOCK * 



•**H1***«*** 

ADD 2048 

TO WRKRGlt 

INITIALLY 

LOWER 

LIMIT 



X 
• *E2 • 

CONTROL 
CHART KB 



•F2 
RETURN IS AFFECTED 
BY USING A LPSW ON 
THE OLD PC PSW WITH 
THE INSTRUCTION 
ADDRESS FIELD MODIFIED 
TO CONTAIN THE 
ADDRESS OF CONTROL. 



*J2 
DETERMINED BY REPETITIVE 
ADDITIONS OF 2048 TO 
THE LOWER LIMIT UNTIL 
IT IS GREATER THAN THE 
UPPER LIMIT OF AN AREA 
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Chart KS, START Statement Processor, Part 1 ($$BATTNG) ; 
Refer to Supervisor, Chart 25 



* * 

* SSBATTNG • 

* * 



•***A2**«****** 



*•*«••***•*•**« 



♦SCANR2 KD* 
*-♦-♦-♦"♦-♦-•-•-♦ 

* GET THE ♦ 

* SECOND * 

* OPERAND * 



♦PUT THE START- ♦ 
*IN6 ADDRESS OF * 

♦ THE PIB TABLE • 

♦ INTO ♦ 

♦ REG 12 ♦ 
***************** 



«***«A3******* 

♦ CONVERT ♦ 

♦ NUMERIC * 
♦PART OF OPERANDI 

♦ TO A KEY ♦ 

♦ VALUE ♦A* 



♦ COMPUTE ♦ 

♦ CORRESPONDING ♦ 

♦ PIB ♦ 

♦ ADDRESS ♦ 

♦ * 



♦A4 

conversion: 
and with of (hex) 
or with 02 (hex) 
multiply by 16 

(DECIMAL) 

F1»X'30« 

F2«X«20» 



.♦ OPERAND ♦. NO 
. ENDS IN COL .♦... 
♦. 71 .♦ 



OPERAND ♦. NO 
LENGTH IS .♦... 
TWO .♦ 



«♦ ♦. 






OPERAND 


♦ . YES 


IS Fl OR 




♦ .... 


F2 


• 




♦ . .* 






♦ . .♦ 




X 


♦NO 




♦ ♦ 


X 






.♦. 






HI ♦. 






.♦ ♦ 






OPERAND 


* 


NO ) 


IS BG 


.» 



X. 

STARTBG X 

♦ SET BG PIB ♦ 

♦ FLAG TO X»83« 

♦ I TO MAKE BG 

♦ TASK ACTIVE 

♦ • 
************** 



X 

♦•*♦* 
♦KA ♦ 
♦ B4^ 



.♦ CORE ♦. 
.♦ ALLOCATED ♦. NO 
. FOR THIS .♦... 
♦. TASK .♦ 



If 

...- - _.. USES 

THE FG PIB IN 
TASK SELECTION. 
CAUTION 

THE INITIATOR 
CONTINUES TO 
RUN AS AN 
ATTENTION TASK. 
THE TRANSIENT AREA 
IS OCCUPIED BY THE 
ROOT PHASE AND THE 
LOGICAL TRANSIENT 
KEY INDICATES THE 
TRANSIENT AREA IS 
IN USE. A SVC 11 
IS THE ONLY WAY TO 
RELEASE THE AREA. 



♦♦•♦J2********* 

♦ NVSERR ♦ 

♦ CHART KC ♦ 

♦ ♦K2 ♦ 



IdUUU 

MESSAGE 



♦ LOAD THE BASE ♦ 

♦ REGISTER FOR ♦ 
♦THE FG PROGRAM ♦ 

♦ FROM THE ORG ♦ 
♦FLO OF ITS PIB ♦ 



*4i*«*P3****«***»* 



♦INTO FOREGROUND^ 
♦ PROGRAM NAME ♦ 
♦FIELD ♦F*^ 
*********«< ******* 



♦ SET UP TO ♦ 

♦ DISABLE ♦ 

♦ INTERRUPTS ON ♦ 

♦ SVC 22 • ♦ 

♦ * 



***4>H3^^^^^^^ 
SVC 22 ♦ 
SIEZE THE 
SYSTEM 



********«**4<* 



*4i**4>J3*4i***4i* 

♦ DETACH THE ♦ 

♦ ATTENTION 

♦ TASK. PIB 

♦ FLAG EO 

♦ X»61' ♦ 



****«K3«^^^^^^^^^ 

* MOVE ADOR OF ♦ 
♦ATTENTION SAVE ♦ 

♦ AREA TO THE ♦ 
♦FOREGROUND PIB ♦ 

• ♦ 



♦ ERRRTN ♦ 

♦ CHART KC ♦ 

♦ ♦K-^ • 



♦F4 
ALLOWS 

IDENTIFICATION 
OF ATTENTION 
ROUTINE AS AN 
INITIATOR EVEN 
THOUGH IT IS 
EXECUTED FROM 
FOREGROUND 
PROGRAM AREA. 



* 2 * 

* * 



♦ MOVE CONTENTS » 
♦OF LOGICAL TRAN* 

♦ -SIENT BUCKET » 
♦TO ULD ATTENTN ♦ 

♦ SAVE AREA » 



♦ MOVE AODR GF ♦ 

♦ FG ORIGIN ♦ 

♦ INTO LOGICAL * 

♦ TRANSIENT * 

♦ BUCKET ♦ 



ATTACH FG ♦ 
TASK 
♦C4 



«4i4i***4i4i)|.«*4i** 



♦ MODIFY PIK,^ 

♦ LTK, AND KCY ' 

♦ TO EQUAL FG 

♦ KEY. ENABLE ' 

♦ INTERRUPTS ♦ 



♦ SVC 22 * 

♦ RELEASE 

♦ THE SYSTEM 

♦ « 



♦ SET UP TO ♦ 

♦ LOAD » 

♦ $$BATTNH ♦ 

♦ ♦KS * 

♦ * 



♦ SVC 4 LOAD ♦ 

♦ $$BATTNH ♦ 

♦ ♦KS ♦ 



♦K4 
IPIOD 
AREA NOT 
AVAILABLE 
MESSAGE 



THE SAME TECHNIQUE 
USED IN SSBATTNEt 
CHART KP ^64 IS 



•*4>* 

* * 

♦ 2 ♦ 

• ♦ 
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Chart KT. START Statement Processor, Part 2; $$BATTNH; 
Refer to Supervisor, Chart 25 



» ^*< ♦ 

♦ $$BATTNH * 

» » 



♦ MOVTBL ♦ 

♦ ♦ 



* ADO BRANCH * 

* VECTOR TABLE ♦ 
♦ENTRIES TO THE ♦ 
♦ROOT TO SUPPORT* 

* INITIATION ♦ 



4i*4[4<*C !♦♦♦♦♦♦♦♦♦♦ 

♦ PUT SYSFGl ♦ 
♦CCW ADDRESS IN ♦ 

♦ CCB. PUT * 
♦BUFFER ADDRESS ♦ 

♦ IN CCW ♦ 
^^^^^^^^'♦♦♦♦♦♦♦♦* 



♦ MODIFY PIB ♦ 

♦ ASSGN FLAG 

♦ TO ALLOW 

♦ SYSRES I/O 

♦ . ♦ 



^^^'♦♦E !♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE ADDRESS ♦ 

♦ OF LABEL ♦ 

♦ INFORMATION ♦ 

♦ TABLE ♦ 

♦ ♦ 
^^^^'♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ GET CYLINDER ♦ 

♦ NUMBER OF ♦ 
♦LABEL AREA FROM^ 

♦ COMM RGN ♦ 

♦ ♦ 



♦ D2 
PHASES USING 
BASRG2 AS A 
BASE REGISTER 
WILL BE LOCATED 
IN THE 
FOREGROUND AREA 



♦WFMRES KU^ 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ INITIALIZE * 

♦ LABEL AREA * 

♦ ♦BA ♦ 



♦ RESET RCO ♦ 
« NUMBER AND ♦ 
♦SET KEY LENGTH ♦ 

♦ TO 8 ♦ 

♦ ♦ 
4<*4<*4<4< *♦♦♦♦♦♦♦♦♦♦ 



♦ LOAD BASRG2 ♦ 

♦ WITH ADDR OF ♦ 

♦ FOREGROUND ♦ 

♦ AREA ♦ 

♦ ^02 ♦ 



♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ * 



♦84 
PERFORM THIS 
SUBROUTINE 
THREE TIMES 



ADDRLP 

]»«#4i4tG !♦♦♦♦♦♦♦♦♦♦ 

♦ RELOCATE THE ♦ 

♦ CCW STRING ♦ 

♦ IN THE ROOT ♦ 

♦ PHASE ♦ 

♦ ♦G2 ♦ 



♦ G2 
ADD ROOT 
PHASE BASE 
REGISTER VALUE 
TO CCW ADDRESS 



♦ INIT CCWS 

♦ RESCW4 AND 

♦ RESCW8 WITH 

♦ LABEL AREA 

♦ ADDRESS 



**«4i«Kl ♦♦♦♦♦♦♦♦♦♦ 

♦ CALC LAST ♦ 

♦ TRACK FOR ♦ 

♦ LABEL AREA IN * 

♦ P0INT3 ♦ 

♦ ♦K2 ♦ 



♦ K2 
LAST TRACK EQUALS 
KEY TIMES THREE 
DIVIDED BY 16. 



♦ ♦♦♦ 

♦ ♦ 

♦ 1 ♦ 

♦ ♦ 

♦ ♦♦♦ 
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Chart KU, START Processor Subroutines $$BATTNH; Refer to 
Supervisor^ Chart 25 



* WFMRES * 



* LOGGER ♦ 

* * 



***** 

♦ KB * 

♦ El* 

* * 



*****Bi •*****•••* 



AND WRITE 
HEAD VALUES 



•««***«********•* 



****»B3********** 

* PUT END OF ♦ 

* BUFFER AOOR * 

* INTO WRKRGl * 

* FOR REVERSE * 

* SCAN * 
*************4i«** 



CHKFGA X 

*****e5********** 

♦ SET INPUT * 

♦ SWITCH TU * 

♦ FGI * 



***************** 



****C1********** 



**•••*•*••*•**•• 



******oi ****•*•***• 

EXCPRG KC 

*-•- *-*>•>*-*>*•.* 

WRITE 

♦ FILE ♦ 

MARK 



•••*E1********* 

• RET TO LINK • 
« REG AOOR * 

* • 
•******«**••**• 



03 ♦. 

.* * 
NO .* END 
,..*. OF 

♦. BUFFER 
♦. .* 
♦ . .* 
♦YES 



****D^********* 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ ♦ 
*************** 



41***05*******41* 

♦ ERRRTN ♦ 

♦ CHART KC ♦ 

♦ ♦ES ♦ 
*********^***** 



*****£ 3******41*** 

♦ CALCULATE ♦ 

♦ LENGTH OF ♦ 

♦ BUFFER ♦ 

♦ CONTENT ♦ 



♦ E5 
IC20D 
READ UNIT 
NOT DEFINED 
MESSAGE. 



*********** 



♦ ♦*** 



*****G3********** 

♦ ZERO ♦ 

♦ WRKRGl TO ♦ 
♦SET LENGTH FOR ♦ 

♦ ZERO OUTPUT ♦ 

♦ * 
***************** 



*****H3********** 

♦ ADO I TO ♦ 

♦ LENGTH AND ♦ 

♦ STORE IN CCW ♦ 

♦ * 

♦ * 
***************** 



****** J3*********** 

EXCPRG KC 

*-♦-*-♦-♦-♦-♦-♦-♦ 

LOG I/O 

* * 

************* 



****K3********* 

* RET TO AOOR ♦ 

* IN LINK REG • 

* * 
**•**««******** 
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Chart KV. ASSGN Statement Processor (Part 1 of 2) $$BATTNI; 
Refer to Supervisor, Chart 22 



• SSBATTNI * 

* * 



♦ ASSGN * 

♦ » 
*************** 



**** 

* * 

* 3 • 



***«*B1******* 

* MODIFY INST* 

* AT NWPBPT * 

* TO SET NEW 

* PUB POINTER » 

* TO IGN *02* 
***«***«***«** 



*****C1 ********** 
*SCANR2 KO* 
*-*-♦-*-*-*-*-*-* 

* GET SECOND * 

* OPERAND * 

* (SYSXXX) * 
***************** 





OWNRSH .*. 


X 




B3 ♦. 






.* DEV *. 


♦ MODIFY * 




YES .♦ ALREADY *. 


♦ INSTRUCTION ♦ 




...*. ASSIGNED TO .* 


♦ AT MODRST ♦ 




♦.DIFFERENT.* 


♦ WITH MODE * 


**** 


♦.AREA .♦ 


♦ SPECIFIED *Q5 


* * 


X *. .♦ 




* 4 * 


***** ♦NO 




* * 


*LG * . **** 




**** 


* Bl* . * ♦ 
* * ...♦ 2 ♦ 

♦ . ♦ ♦ 
CASERR . ♦♦♦♦ 


': 




X 


X 


X 


*if***^2******* 


*****c^********** 


♦♦♦•C2****»**** 


♦ SET LOG ♦ 


♦ PUT ADDR OF ♦ 


NVSERR * 


♦ OWNRSH TO PUB* 


♦ 7-TRACK MODE ♦ 


CHART KC * 


♦OWNERSHIP FLAG * 


♦ TABLE-l INTO ♦ 


* 


* FOR THIS AREA* 


♦ REGISTER ♦ 




♦ Fl=02 F2=0l* 


♦ PGINTl ♦ 









♦ B5 
THE MODES 
SPECIFIED IN THE 
ASSGN STATEMENT 
BECOMES THE SEARCH 
ARGUMENT FOR 
THE FOLLOWING 
TABLE LOOK-UP 



♦ 02 
INITIAL 
CONDITION 
NWPBPT IS ALSO 
MODIFIED BY 



• ♦ ♦. 




TXCUU 


.♦ SCAN ♦. 


.♦ DELIMITER ♦. NO 


SUBROUTINE 


YES .♦ DELIMITED ♦. 


♦. IS A COMMA .♦ 






...♦. bY BLANK .♦ 


♦. ♦F2 .♦ 






♦. ♦F2 .♦ 


♦ . •♦ 






♦ . .♦ 


♦. .♦ 




X 


X *. .♦ 


*YES 




»*** 


«*♦•* *M0 




* 


* 


♦ KW ♦ 




» 


4 * 


♦ Bl* 




* 


* 


♦ ♦ 




**** 


* 








MKASGN X 


X 






.♦. 








E3 *. 


*SYSXXX KY* 






.♦DEVICE ♦. 


*-*-*-*-*-*-*-*-* 






NO .♦ SPECIFIED ♦. 


♦VALIDITY CHECK ♦ 






...♦. IS A .♦ 


♦ AND CONVERT ♦ 






♦. TAPE .♦ 


♦ SYSXXX ♦ 






♦ . .♦ 


*****m0*m***»**** 






X ♦. .* 

***«* ♦YES 








♦ LG ♦ 








♦ bb* 






♦F2 


♦ ♦ 






THE SCAN 


* 






ROUTINES SET 


NDTERR 


X 




CONDITION CODES 


X 


*****Fl«***4i*««** 




TO INDICATE THE 


4i4t4i««P34i4[4ig|i«4ii^4i*4i 


♦SCANR3 KD^ 




CHARACTER THAT 


♦SCANR3 KO^ 


*-*-*-*>*-*-*-*-* 




STOPPED TH SCAN. 


*-•-*-♦-*-*-*-*-* 


* GET THE * 




THIS CHARACTER 


♦ GET THE ♦ 


♦ NEXT OPERAND ♦ 




IS CALLED THE 


* NEXT OPERAND ♦ 


* * 




DELIMITER. THE 


* * 


4t4i*****«****«**«* 




VALIDITY OF A 








DELIMITER 








DEPENDS ON 








THE STATEMENT 




. 




FORMAT. 


. 



04 ♦. 

.♦DEVICE ♦. 
♦ SPECIFIED 

IS A 7-TRK 
♦. TAPE 



♦ RESET POINTl ♦ 

♦ WITH THE ADD- ♦ 

♦ RESS OF THE ♦ 

♦ 9-TRACK MODE ♦ 

♦ TABLE-l ♦ 



Gl ♦. 
.♦ *. 

DELIMITER *. YES 
IS AN EQUAL ...... 

. SIGN .♦ 
♦. ♦F2 .* 

X 
**•* 



.♦ DELIMITER 
. IS A BLANK 
♦. ♦F2 



♦NO 



* 4 ♦ 

* * 
**** 



HI *. 

♦ *. 
OPERAND ♦. YES 
IS IGN ...... 



.X.X. 



CHKMOC X 

♦ POINT TO ♦ 

♦ THE NEXT ♦ 

♦ MODE TABLE ♦ 

♦ ENTRY ♦ 

♦ * 
***************** 



.* NODE *. 

.* SPECIFIED *. 

♦. IS GT TBL . 

*. ENTRY .♦ 



.♦ MODE ♦ 
.SPECIFIED IS 
♦. EQ TBL .♦ 

♦.ENTRt.^ 



***** 
*KW ♦ 
* Bl* 



***** 
*KW * 
* B3* 



***** J 1 ««**•***** 
*TXCUU KZ^ 
*-*-*-*-*-*-*-*-* 
♦VALIDITY CHECK ♦ 

♦ AND CONVERT ♦ 

♦ CHANNEL/UNIT ♦ 
***************** 



OPERAND 

LENGTH EQ 

. 5 CHAR . 



*****J4******* 

* CHANGE SEARCH 

* ARGUMENT * 

* IN MCDRST TO 

* 'SET MODE * 

* COMMAND' ♦ 
************** 



,* 


DEVICE ♦• 


YES 


♦.SPECIFIED IS . 


*.... 


*. 


OASO .* 
♦ . .♦ 






♦ . .♦ 


X 




♦NO 


**•* 






♦ 






♦ 2 




X 


* 




**** 


•*** 




• * 






* 1 * 






* * 






*«** 





*«***K3********** 
♦HEXCON LE^ 
*-*-*-*-*-*-*-*-* 
♦VALIDITY CHECK ♦ 
♦ MODE AND CON- ♦ 
♦VERT TO BINARY ♦ 
***************** 



***** 

♦ KW ♦ 

♦ Bl^ 
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Chart Ki^. ASSGN Statement Processor (Part 2 of 2) $$BATTNI; 
Refer to Supervisor, Chart 22 



•MULTIPLE ENTRIES 
FROM 
KV-HI,D3,J4 



♦»»»B1**»»«*»»»* 








«*«»«B3»*»**»»*»« 


^UNPA LA* 








»PUT THE START- » 










* ING ADDRESSES » 


~*~UNASSIGN*~* * 








»0F THE LUB AND » 


PREVIOUS » 








•PUB TABLES INTO* 


ASSIGNMENT * 








*A PAIR OF REGS » 


*************** 


• C2 






************* 




IGN SET 


INITIALLY. IF 






NWPBPT HAS NOT 


BEEN 


X 


X 


MODIFIED 


BY TXCUU SUB- 




«»»«C1«««»«»»««« 


ROUTINE, 
CODE, FE 


IT CONTAINS A 


03* *«. 


PUT THE START- • 


. THAT 


MEANS 


.» IGN *. 


ING ADDRESSES * 


IGNORE THE PUB 




.* PUB ». YES 


OF THE LUB AND * 








•.INDICATED BY ...... 


PUB TABLES INTG« 








LUB .• 


A PAIR OF REGS » 


















*•. .•' X 
♦NO »•»• 

• LG 
» B4 
. ♦ « 

X NASE 


PT X 








.•. « 


«*»»D1*»»**»» 








D3 ». 


PUT PUB ♦ 








.♦ PUB ». 


POINTER AS • 








.♦ INDICATES •. NO 


DETERMINED * 








*. DEVICE EQ .» 


BY TXCUU » 








». TAPE .* 


INTO LUB » 











ADDRESS OF JIB EQ VALUE 
OF FAVP MULTIPLIED BY 4 
PLUS THE STARTING ADDRESS 
OF THE JIB TABLE. 



PUT THE DISPLACEMENT 
INDEX INTO THE CHAIN 
BYTE OF THE JIB. 



♦♦♦»B5*»»**«»* 

CALC ADDR OF 

JIB TO BE 

ATTACHED TO 

THE CHAIN 

*B4 



♦•♦C5»***»*« 

ATTACH THE 

JIB TO THE 

CHAIN 

• D4 



♦»»D5»«*»«*« 

SET FAVP 
TO DISPLACE- 
MENT INDEX 
OF NEXT 
FREE JIB 



••IGNORE ♦. 

PUB 

INDICATED 



Fl •. 

.•DEVICE •. 
XYES .* SPECIFIED • 
.*. IS ASSIGNED 
•.TO SYSLOG.^ 



• GET ADDR OF 

• FAVP. FAVP 
•POINTS TO NEXT 

• AVAILABLE JIB 

• ENTRY 



»E4 
ON THE FIRST TIME THROUGH 
THIS BLOCK TESTS THE JIB 
POINTER IN THE LUB. ON 
OTHER ITERATIONS, IT 
TESTS THE LAST BYTE OF 
THE JIB ENTRY ITSELF FOR 
THE SAME CONDITION. EXIT 
FROM THE LOOP OCCURS WHEN 
THE END OF THE CHAIN IS 
FOUND. 



»»*»E5*«^«*^ 
SET END OF 
CHAIN SIGNAL 



•♦»GI*»*^^^» 

SET OWNER- • 

SHIP FLAG 

IN PUB - 

LAST BYTE 

OF ENTRY^HZ^ 



*»«HI**^*»^* 

SET MODE 

BYTE IN 

PUB 



•»J1»»^»*« 

CONTROL 

CHART KB 



• H2 
SEE FIGURE 17 SECTION 3 
OF THIS MANUAL FOR I/O 
TABLES IN GENERAL. INDI- 
VIDUAL TABLE EXPANSIONS 
ARE REFERENCED FROM THAT 
FIGURE. 



.• ANY ». 

.♦ FREE * 


. 


^0 


JIBS 


• • 




♦. •HZ .» 






• . .• 






• • .• 




X 


•YES 




• LG 








»^F2 
























NJPE 


X 






«««»«G3««»^«*^^ 






• EFFECTIVELY 






» INCREASE LUB 






» SIZE TO SIMP- 






•LIFY LOOP CON- 






•TROL ADDRESSING* 








w* 




X 








X 






.CKNDCH .♦. 






H3 •. 












.* JIB * 


. 


^0 


♦. CHA 


[NED 


.• 





hr 



SET TYPE OF^ 
ENTRY TO PUB 
POINTER AND 
OWNERSHIP 
IN JIB • 



*«#«J3«««#«««* 

CALCULATE 

THE ADDRESS 

OF THE NEXT 

JIB ENTRY 

• J4 



NEXT JIB ENTRY ADDR EQ 
POINTER VALUE MULTIPLIED 
BY 4 PLUS STARTING ADDRESS 
OF JIB TABLE. 
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Chart KX. READ Statement Processor $$BATTNI; Refer to 
Supervisor, Chart 22 



*B2 
GET CHANNEL AND 
UNIT ADDRESS 



♦♦♦♦A3********* 

* * 

* READ * 

* * 



**4>**B3********** 
*SCANR2 KD* 
*-♦-»-♦-*-♦-♦-*-* 

* GET FIRST * 

* OPERAND ♦ 

* ♦BZ ♦ 



♦ NVSERR * 

♦ CHART KC * 

♦ ^04 ♦ 



♦D4 
INVALID STATEMENT 
MESSAGE. 



«4<4'*4iD3***^^*^**^ 
*TXCUU KZ+ 
♦-*-*-♦-*-♦-♦-♦-* 
♦VALIDITY CHECK ♦ 

* AND CONVERT ♦ 

* CHAN AND UNIT ♦ 
***************** 



♦£2 
VALID DcVUc TYPES ARE 

1. CARD READER X 

2. REACER/PuNCH .♦. 

E3 ♦. 
.♦ VALID 
.♦ DEVICE 
♦. TYPE 
♦. ^£2 



***** 
♦LG ♦ 
♦ B5* 



F3 *. 
.♦ DEV *. 
♦ ALREADY ♦. YES 
ASSIGNED TO ...... 

♦. DIFFERENT. ♦ 
♦.AREA .♦ 

♦ . .♦ X 

♦NO ***** 
♦LG ♦ 
♦ Bl^ 



CASERR 
X 

*****Q2********** 



_. -CEMENT INDEX* 
*FOR THE DEVICE * 

* PUB INTO THE * 

♦ SYSFGI LUB ♦ 

*JH^************** 



*H2 
THE SWITCHES SET AT 
THIS TIME ARE TESTED 

BY THE ROOT PHASE X 

S$BATTNA TO ESTABLISH ♦♦♦♦*h3^^^**** 
INPUT DEVICE TYPE. * TURN ON * 

* SYSFGI INPUT * 
*AND READ ISSUED* 

* SWITCHES IN * 

* , FLGBYO *H2 * 
************** 



X 

****J3********* 

* CONTROL * 

* CHART KB * 

* * 
*************** 
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Chart KY, Validate SYSXXX Subroutine $$BATTNI; Refer to 
Supervisor, Chart 22 



♦ ♦ 

♦ SYSXXX ♦ 

♦ * 



Bl *. 






B3-*-.. 




.♦LENGTH ♦. 






.♦ NICL ♦. 




.*0F OPERAND *. NO 




YES .♦ VALUE LT ♦. 




*. EQUALS 6 .* 






.♦. UNIT NUMBER .♦ 




♦. CHARS .♦ 






♦. ♦A* ,♦ 




♦ . .♦ 






♦ . .♦ 




♦ . .♦ 




X 


♦ . .♦ 




♦YES 




*♦♦♦♦ ♦NO 








♦LG 


♦ 








♦ F4^ 








* 4 




♦C4 






* 




FICL ADDRESS 


X 




NLUERR 


EQUALS START NG 


• ♦• 






X 


ADDRESS OF F CL 


CI ♦. 
.♦ FIRST ♦. 


****C2^^^^^^^^^ 




♦ CALCULATE ♦ 


PLUS 5lSPLAC AeNT 


.♦THREE CHARS^. NO 


< ♦ NVSERR • 




♦ FICL ADDRESS ♦ 


INDEX. THE F CL 


♦. OF OPERAND .♦ 


...X^ CHART KC ♦ 




♦♦C4-SAVE IT FOR^ 


ADDRESS IS SAVED 


♦. EQ SYS .♦ 


* * 




♦UNASSIGN SUBRTN^ 


IN LOCATION FICL 


♦ . .♦ 


4I************** 




* * 


FOR THE UNASSIGN 


♦ . .♦ 






**«4>*«*******«*** 


SUBROUTINE, UNPA, 


♦ YES 

I * 








CHART LA. 


I 


>0 NTl AND 
»0 NT3 AR 




J 




X 


[N TIALIZEO 




X 




4i****0l^^^^^^^^^^ 1 


* TH THESE 




^***0f)2********** 




♦ SET OPERAND ♦ t 


4EH VALUE 




: ESkRy's^suiRi : 




iO THAT THEY 






:AN be US D 




♦ LUB ENTRY ♦ 




♦ FOURTH ♦ 


JY THE NU CON 




♦ ADDRESS ♦ 




♦ CHARACTER ♦DZ ♦ 


SUBROUTINE 




♦ ♦FA ♦ 




********4i*«*4i**** 


IliiiKfN?*^"'"'' 
















• ' 


DPERATIONS. 




\ 




♦♦**♦£!♦♦♦♦♦♦♦♦♦♦ 






*****E3^^^^^^^^^^ 




♦ SET LENGTH ♦ 






♦ CALCULATE THE ♦ 




♦ COUNTER, ♦ 






♦ CURRENT PUB ♦ 




♦ PgiNT3. WITH ♦ 

♦ THE VALUE 2 ♦ 






♦ ENTRY ADDRESS ♦ 

♦ ♦H* ♦ 




♦ ♦DZ ♦ 






* * 





♦NUHCON LE^ 



♦VALIDITY CHECK 
^lUMERIC VALUES 
AND CONVERT 



***4i*«4<**«******* 



*****F3^^^^^^^^^^ 

♦ SAVE THE ♦ 

♦ LUB AND PUB ♦ 

♦ ADDRESSES IN ♦ 

♦ LOCATION ♦ 

♦ lOTADR ♦ 



♦F4 
LUB ENTRY ADDRESS EQUALS 
UNIT NUMBER PLUS THE VALUE 
OF THE FIRST UNIT IN CLASS* 
DOUBLED, PLUS THE STARTING 
ADDRESS OF THE LUB TABLE, LUBAOO. 



YES .♦ NUMERIC 
...♦. VALUE GT 
♦. 255 
♦ . .♦ 
X ♦. .♦ 
***** »f^o 

♦ LG ♦ 
^ F4^ 



♦ * 



.X. 



NLUERR 

SYSXN2 X 

*****H1********** 

♦ CALC FICL ♦ 

♦ AND NICL ♦ 

♦ DISPLACEMENT ♦ 

♦ INDEXES - ♦ 

♦ KEY/16 ♦ 
♦♦♦♦♦*********•** 



****G2^^^^^^^^^ 

♦ * 

♦ SYSXN2 ♦ 

♦ * 
*************** 



****G3^***^4i*** 

♦ EXIT TO ADDR ♦ 

♦ OF LNK REG ♦ 

♦ • 
*♦♦**♦♦*♦•♦♦*♦• 



♦HA 
PUB ENTRY ADDRESS EQUALS 
DISPLACEMENT INDEX FROM THE 
LUB ENTRY. MULTIPLIED BY 8, 
PLUS THE STARTING ADDRESS OF 
THE PUB TABLE, PUBADD. 



*****jl ********** 

♦ CALCULATE ♦ 

♦ NICL ADDRESS ♦ 
^ ♦JZ - SAVE IT ^ 

-OR UNASSIG' 



FOR 



IGN 



***************** 



*****K1*^^^^«* 



♦INST IMMEDIATE ♦ 

♦ FLO WITH UNIT^ 

♦ NUM VALUE ♦ 
************** 



NICL ADDRESS 
EQUALS STARTING 
ADDRESS OF NICL TABLE, 
NICLAO. PLUS THE 
DISPLACEMENT INDEX. 
THE NICL ADDRESS IS 
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Chart KZ. Validity Check Channel and Unit and Convert to 
Binary; $$BATTNI; REFER TO Supervisor^ Chart 22 



* * 

♦ TXCUU * 



* CALCULATE 

* OWNERSHIP 

* MASK FOR INST 

* LABELED 

* OWNRSH *B2 



♦ B2 
MASK EQUALS 8, 
MINUS KEY 
DIVIDED BY 16 
B-(KEY/16) 



♦ B4 
OWNERSHIP BIT SWITCHES ARE 
ZERO AT THIS TIME, ALLOWING 
THE FULL BYTE IN PUB TO BE 
TESTED FOR ZERO. 



* NVSERR ♦ 
.X* CHART KC * 

♦ ♦ 
* *4i 4i 41 «4e <■*#«♦*** 



**4i4i4<D14<**'f****** 

♦HEXCON LE* 

*-*-*-4'-*-*-*-*-* 

♦CONVERT X'CUU' * 
» TO BINARY * 

* 41 

4i*4>4i4i4i4'4<******#*4< 



4<*4>4<4'E I ****♦*♦♦♦♦ 

♦ PUT THE ♦ 

♦ STARTING ADDR * 

♦ OF THE PUB ♦ 

♦ TABLE INTO * 
♦REGISTER POINTl^ 

*4i4<4<4<4c4>*4i^**>^«4i** 



END OF 

PUB 

TABLE 



.♦CHANNEL^. 
AND UNIT ♦. YES 
ENTRY IN .♦..,. 
PUB ,♦ 



♦ SAVE DEVICE ♦ 

♦ TYPE CODE IN ♦ 
♦LOCATION DVCTYP+ 

♦ FOR LATER ♦ 

♦ TESTING ♦ 

*4i4i*4<*4<4i**«4i4i*4<** 



4c4i4c4i4i034E4i**4i:»4i*4>4< 

♦ SAVE THE ADDR ♦ 

♦ OF THIS PUB ♦ 
» ENTRY IN SAVE ♦ 
♦AREA, IOTADR+8 ♦ 

♦ * 



4:itL4'»«E 3 ♦♦♦♦♦♦♦♦♦♦ 
« * 

♦ CALCULATE ♦ 

♦ THE PUB ♦ 

♦ POINTER ♦ 

♦ ♦EA ♦ 

^^i:^**t *********** 



**:^**f;i******* 

♦ MODIFY THE ♦ 

♦ INSTRLCTION ♦ 

♦ AT LUC NWPBPT ♦ 

♦ CHART KW WITH^ 

♦ NEW VALUE ♦ 

4r4'«:»44<4<*4t4c4<4>4'« 



*****a******* 

♦ RESET MODE 

♦ RESET BYTE 

♦ AT MODRST 

♦ FROM PUB 

♦ CHART KV 

^f1Hf7tL****if***** 



♦ E4 
PUB POINTER EQUALS 
PUB ENTRY ADDRESS 
MINUS STARTING ADDRESS 
OF PUB TABLE, PUBADD, 
DIVIDED BY 8. 



**** 

♦ * 

♦ 1 ♦ 

♦ ♦ 
*♦♦♦ 



4i*4>4<«H !♦♦♦♦♦♦♦♦♦♦ 

♦ ADD 8 TO THE ♦ 

♦ PUB POINTER, ♦ 
♦POINTl SO THAT ♦ 

♦ IT POINTS TO ♦ 
♦THE NEXT ENTRY ♦ 
***************** 



DEVICE 

TYPE EQ 

TAPE 



:t****J2******* 

♦ MODIFY INST^ 

♦ AT LOC MQDRST+ 

♦ WITH STANDARD ♦ 

♦ MODE VALUE ♦ 

♦ FROM PUB ♦ 
************** 



****f(2********* 

♦ RET TO ADDR ♦ 

♦ IN LINK REG ♦ 

♦ ♦ 
*************** 
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Chart LA. Unassign Subroutine $$BATTNI; Refer to 
Supervisor, Chart ?2 



* ♦ 

* UNPA * 

* * 



♦ CALCULATE ♦ 

* MASK TO TURN * 
*OFF PUB OWNER- ♦ 
♦SHIP FLAGf BYTE* 
♦7 ^02 ♦ 



* * 

* UNPAN2 ♦ 

* * 



* * 

* I ♦ 



GTNXLB X 

*SCNLUB LB* 
♦-♦-»-*-♦-♦-*-♦-♦ 

* SET UP LOC * 

* JBSLUB WITH * 

* LUBENTRY * 



*B4 

THE SCNLU8 
SUBROUTINE 
RETURNS TO THE 
LINK REGISTER ADDRESS 
WHEN THERE ARE NO 
MORE UNITS LEFT IN 
THE CURRENT CLASS. 
THE NSI AFTER THE BAL 
IS A BRANCH TO RSTOWN. 



UNPAN2 X 

*4<4i4>*Cl******* 

♦ MODIFY INST* 

♦ RSTOWN * 

♦ WITHIN THIS 

♦ RTN WITH * 

♦ MASK VALUE * 



*C2 
THE TEST CHECKS 
THE PUB POINTER 
FIELD OF THE LUB. 



C3 ♦. 

.♦ END ♦. 
* OF CLASS 

WITHIN LUB 

♦. TABLE . 

*. *BA .♦ 

*. .♦ 

♦NO 



**4>4i4<01 *♦♦♦****** 

♦ PUT LUB ENTRY * 

* ADDRESS INTO * 

♦ POINTl - PUT * 
♦PUB ENTRY ADDR * 

* INTO P0INT2 * 



PUB 

ASSIGNED 

♦C2 



*D2 
MASK VALUE EQUALS 
256 MINUS KEY 
DIVIDED BY 16 



.* PUB ♦. 

POINTERS 
ARE EQUAL 



4i**«E2**^*****^ 

* RET TO ADDR * 

* IN LNK REG * 

* ♦ 



♦ 3 ♦... 

♦ ♦ . 

**** 
GTNXJB X 

♦SCNJIB LC* 

4>-*-4>-*-*-4>-*-*-* 

♦ RESET JBSLUB * 

♦ FROM JIB ♦ 

♦ ENTRY ♦ 



***** 

♦ LD ♦ 

♦ B3* 



*D^ 
A COMPARISON IS MADE BETWEEN 
THE PUB POINTER IN THE ORIblNAL 
LUB, SAVED AT LBSLUB, AND THE 
PUB POINTER IN THE LUB FOUND IN 
THE SCAN, JBSLUB. WHENEVER 
IDENTICAL PUB POINTERS ARE- 
FOUND, THE OWNERSHIP FLAG IN 
THE PUfa IS NOT RESET. 



♦ SAVE THE ♦ 

♦ LUB ENTRY * 

♦ IN LOCATION * 

♦ LBSLUB FOR * 

♦ COMPARISON * 



*****Ql******^ 

♦ MOVE FFFF * 

♦ INTO THE LUB 
♦ENTRY TO UNAS- 

♦ SIGN THE LOG- 

♦ ICAL UNIT * 
************** 



THE CONDITION CODE 
IS SET WITHIN THE 
JIB SCAN SUBROUTINE. 



END OF 


* 


YES 


JIB CHAIN 




♦ .... 


*F2 


* 




♦. .♦ 






♦ . .♦ 




X 


♦NO 




**** 

* 






**** 


X 






.♦. 






G3 ♦. 






♦ ♦. 




STORED 


♦ 


YES 


ALTERNATE 




♦ .... 


SS GNMENT.+ 




♦. .♦ 




. 



♦ RESET Put 

♦ OWNERSHIP FLAii 

♦ BYTE 7 

♦ » 



NO .♦ DEVICE 
...♦. TYPE IS 
♦. TAPE 



*****^l********** 
*CALC LUB ENTRY * 
♦ADDRESS OF THE * 

* FIRST LUB FOR * 

* THE CURRENT * 
*. CLASS *H2 ♦ 
*itnf*^*^,******if**m 

**** I 

* ♦ . 
♦LD ♦... 

* J4* 

* •** 
SCNLBS X 

*****jl********** 

* SET UP LUB * 

* POINTER AND * 

* COUNT FOR * 

* LUB SCAN * 

* * 
***************** 



♦H2 
LUB ENTRY ADDRESS 
EQUALS THE DOUBLED 
VALUE OF THE FICL 
PLUS THE STARTING 
ADDRESS OF THE 
LUB TABLE, LUBAOO. 



**** 

* * 

* 3 * 

**** 



♦ RESET MODE ♦ 

♦ FROM STANDARD ♦ 

♦ MODE IN PUB ♦ 
» » 



***** 

♦ LD ♦ 

♦ B3^ 
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Chart LB. Scan LUBs in Class Subroutine $$BATrNI; Refer to 
Supervisor^ Chart 22 



* ♦ 

* SCNLUB ♦ 

* * 



*****B3********** 

* GET ADDRESS « 

* OF LUB ENTRY * 

* IN HRKRGl • 

* * 

* * 
***************** 



*****(;3********** 

♦ STORE LUB ♦ 
» ENTRY AT • 

♦ JBSLU8 * 

♦ ♦CA ♦ 

♦ * 
***************** 



♦C4 
USE THE CONTENTS 
OF J6SLUB AS A 
COMPARAND IN 
THE MAIN 
UNAbSIGN 
ROUTINE 



*****03********** 

* POINT TO NEXT ♦ 

* LUB ENTRY * 

* AND SAVE ADDR * 

* IN LOCATION » 

* SCFICL ♦ 
***************** 



*****£ 3********** 

♦ GET REMAINING * 

♦ NUMBER IN * 

♦ CLASS FROM ♦ 

♦ LOCATION * 

♦ SCFICL *2 * 
***************** 



ZERO 

NUMBER 

.IN CLASS 



****P4********* 

* RET TO AOOR ♦ 

* IN LNK REG * 

* * 
*************** 



*****G3********** 

* UECREASE * 
♦COUNT OF UNITS * 

* IN CLASSt AND * 

* SAVE FOR ♦ 
♦PRECEDING TEST * 
***************** 



****H3**4'«'*«*** 

♦ RET TO ADOR * 

♦ IN LNK REG * 

♦ PLUS 4 ♦ 
*************** 



Appendix H. Detailed Flowcharts 501 



Chart LC. Scan JIB's Subroutine $$3ATTNI; Refer to 
Supervisor, Chart 22 



SCNJIB 



• E2 
END OF CHAIN 
CHECK 



• C2 
JIB ADDRESS 
EQUALS 

DISPLACEMENT 
INDEX FROM LUB, 
MULTIPLIED BY 4 
PLUS THE 

STARTING ADDRESS 
OF THE JIB 
TABLEtJIBADD. 
NOTE 

THE LUB USED IN 
THE PRECEDING 
CALCULATION IS 
IN LOCATION 
JBSLUB. 



B3 ♦. 

.♦JBSLUB *. 
•JIB POINTER* 

INDICATE 

». X'FF* .» 

♦. ♦BZ .» 



•NO 



••••C 3* ••*••• 

CALCULATE 

ADDRESS OF 

NEXT JIB 

•C2 



**int 03* ********* 

SAVE OLD JIB ♦ 

DISPLACEMENT ♦ 

INDEX IN * 

TMFAVP • 



*»»*E3******** 

STORE NEW 

PUB AND 

JIB POINTERS 

IN LOCATION 

JBSLUB 



••»*F3*«»*«««« 
• RET TO ADDR 
» IN LNK REG 
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Chart LD. Reset Free List Routine $$BATTNI; Refer to 
Supervisor, Chart 22 



CHKJIB X 

* REPLACE LUB * 

* IN JBSLUB * 

* WITH THE ♦ 

* ORIGINAL LUB * 

* IN LBSLUB * 



♦E2 
SEE FIGURE 17 
SECTION 3 OF 
THIS MANUAL. 



CKNXJB X 

♦SCNJIB LC* 
*-♦-*-♦-*-♦-♦-♦-♦ 

* RESET JBSLUB * 
» FROM THE * 

♦ JIB ENTRY ♦ 



END * 
OF JIB 
CHAIN .* 



* RET TO ADDR ♦ 

* IN LNK REG * 

* * 
*************** 



*****£'3******* 

* REPLACE JIB 

* CHAIN BYTE 

* WITH VALUE 

* OF FAVP 

* *E2 
**************. 



TMFAVP X 

*****fi********** 

* REPLACE ♦ 

* FAVP WITH ♦ 
» POINTER TO ♦ 
*THIS JIB ENTRY * 

***************** 



.♦STORED ♦. 
♦ ALTERNATE *. YES 
A:>SIGNHENT .*.... 



*****(ii,********** 

♦ ZERO THE ♦ 

♦ FIRiT THREE * 
.X* BYTES OF THE ♦ 

♦ JIB ENTRY ♦ 

♦ ♦GS ♦ 
***************** 



♦&5 
THE JIB IS HANDLED 
AS IF IT WERE A LUB 
ENTRY. 



*****^2********** 

* ZERO THE ♦ 

♦ FIRST THREE ♦ 

* BYTES OF THE ♦ 

♦ JIB ENTRY * 


♦ RESET LBSLUB * 

♦ WITH LUB ♦ 

♦ VALUE IN ♦ 

♦ JBSLUB » 

♦ * 






X 

♦ PUB ENTRY » 

♦ ADDRESS * 

♦ ♦JS ♦ 


NEW PUB ENTRY ADDRESS 
EQUALS NEW DISPLACE- 
MENT INDEX MULTIPLIED 
BY 8 PLUS THE STARTING 
ADDRESS OF THE PUB 
TABLE, PUBADD. 










*♦♦♦♦ 
♦LA ♦ 
♦ Jl* 
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Chart LE. T^SGN Processor Subroutines (Part 1 of 2) 
$$BATTNIj Refer to Supervisor ^ Chart 22 



•^••Ai*«*««**«* 



•««*••**«•**•** 



* • 

* NUNCON ♦ 



on *• 

.♦ FIRST •• 

*TWO CHAR EQ* 

X APOSTROPHE 



****C2********* 

, _ _._.. , .„ ♦ NVSERR ♦ 

*.EQ APOSTROPHE.* X* CHART KC * 



• SET UPPER ♦ 

• LIMIT FOR ♦ 

• RANGE CHECK * 

• « C'9* ♦ 

• * 



•***«C4********** 
•CHKRN6 LF* 
♦-•-»-♦-»-♦-♦-♦-♦ 

♦ CHECK ALL • 
•CHARACTERS FOR * 

♦ VALID LIMITS ♦ 



JPUT_ 

NUMBER OF 
*HEX CHARACTERS * 



• 'PACK* TO * 
•PACKED DECIMAL • 

* FORMAT * 



*•**••••••*••*«•« 



**«*««*«4i**4i«4i*** 



••***El«********' 



*•••••••*••••*••> 



•••••E2********«* 



•*•••***•*«•**•*• 



• « 

• CONVERT ♦ 

• TO * 

• BINARY * 

• • 



• MAP A-F ♦ 
♦TO X»FA«-X»FF» ♦ 

• VIA TRANSLATE • 

• • 
« • 



•*«*F2********** 



*••«*•*•*•«••*»• 



* RET TO ADOR * 

* IN LNK REG * 

* * 



•***«GI*«******** 

♦ SET POINtER • 

• FOR RANGE • 

* CHECK • 



•*••*•**••**••**• 



>****G2********** 
PICK UP • 
BINARY • 
NUMBER • 

• 



***4iH2********* 



*******4>********* 



******4<*«*««*** 



*****J14t«**«***«* 
*CHKRNG LF* 

* CHECK ALL * 
♦CHARACTERS FOR * 

* VALID LIMITS ♦ 
*••**•***♦**«**•* 



♦ I • 

* • 
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Chart LF. ASSGN Processor Subroutines (Part 2 of 2) 
$$BATTNI; Refer to Supervisor Chart 22 



« * 

♦ CHKRNG * 

» ♦ 



* GET CHARACTER ♦ 
♦STRING ADDRESS * 

* AND NUMBER * 

* OF CHARACTERS ♦ 



41*** 



4I********** 



CHARACTER 
LESS THAN 
. C'0« 



.* CHARACTER 
*. GT UPPER 
♦. LIMIT . 



**«*04*4<******* 

* NVSERR 

♦ CHART KC 
* 

*************** 



*****^i********** 
* ADD I TO ♦ 
» POINTER, ♦ 
» SUBTRACT 1 * 
» FROM COUNT ♦ 
» ♦ 

***************** 



END 

OF 

STRING 



****G3********* 
» RtT TO ADDR * 
» IN LNK REG * 
» * 

*************** 
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Chart LG, Common Error Exits $$BATTNI; Refer to Supervisor » 
Chart 22 



♦ ERRRTN ♦ 

♦ CHART KC ♦ 

♦ ♦CI ♦ 



• ERRRTN * 

• CHART KC * 

• *C2 • 



» ERRRTN ♦ 

♦ CHART KC ♦ 

* ♦ca • 



* ERRRTN * 

* CHART KG ♦ 

* •C^ ♦ 



•**«B5********* 

• ERRRTN ♦ 

• CHART KC * 

• tCS ♦ 



•CI 
lAlOO 
CONFLICTING 



♦C2 
JLA500 



ICE NON- 
tXlSTENT 
MESSAGE. 



♦C3 
1A700 
INVALID 
DEVICE 
STATUS 
MESSAGE. 



♦C* 
lAOOD 
INVALID 

I/O ASSIGNMENT 
MESSAGE. 



DEVICE 

TYPE 

MESSAGE 



»0l 
KV-B3 
KX-F3 



♦D5 
KV-E3 
KW-03 
KX-E3 



•**«F2********* 

• ERRRTN • 

• CHART KC • 

• »G2 ♦ 



• ERRRTN * 

• CHART KC * 

• ♦G3 ♦ 



♦ ERRRTN ♦ 

♦ CHART KC ♦ 

♦ *G4 * 



JIBS MESSAGE. 



♦G3 
1A60D 
UNIT 

CURRENTLY 
UNASSIGNABLE 
MESSAGE 



♦G4 
1A40D 
INVALID 
LOGICAL UNIT 
SPECIFICAT" 
MESSAGE 



ION 
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Chart LH. LISTIO Statement Processor $$BATTNJ; 
supervisor. Chart 23 



Refer to 



'hi 



• • 

♦ SIBATTNJ ♦ 



* * 

♦ LISTIO • 



LISTIO X 

•SCANR2 KO* 

• GET THE • 

• OPERAND FROM • 

• LISTIO STMNT ♦ 



« * 

♦ 2 ♦ 

* * 



•*««*B3***«****** 



***«***4i»«««**«** 



CUAPNX X 

• ADD 8 TO THE • 

• PUB POINTER • 

• SO THAT IT ♦ 

• POINTS TO THE • 

• NEXT PUB • 



CI ♦. 




***«*(- 3*«*4i****«* 


.♦ ♦. 


***«C2********* 


♦ PUT THE ♦ 


• DELIMITER ». NO 


» NVSERR ♦ 


♦ HEADER ♦ 


IS A BLANK .* 


...X* CHi RT KG * 


* SIGNIFYING * 


*. •• 


• * 


* UNASSIGNEO * 






* IN I/O BUFFER * 


♦ . .♦ 




**«******4i******* 


♦YES 




■ 



END 

OF PUB 

TABLE 



.X* 



****«02********** 
*LSTBG LJ* 

LIST ♦ 

BACKGROUND * 
♦ ASSIGNMENTS ♦ 

***************** 



**4i**03******* 



♦ CONTROL • 

♦ CHART KB ♦ 
« « 



SET 
OER A 



* HEADER AND • 

* NONE LISTING 

* SWITCHES ♦ 
» TO NOP ♦G^* 
*««***4i*«4i4i*** 



* PUT THE ♦ 

♦ STARTING ♦ 

* ADDRESS OF ♦ 
» THE PUB TABLE ♦ 

♦ INTO POINTI ♦ 



♦NOUNIT LL* 

♦ LIST HEADER ♦ 

♦ AND THE WORD * 

♦ NONE ♦ 
***************** 



«****E5******4>**» 
♦SPACE LL^ 

♦ SPACE ♦ 

♦ ONE ♦ 

♦ LINE ♦ 
♦*•••**«*•****•** 



^♦♦♦♦F2^^^^^*^^^^ 
♦LSTFl LJ^ 

♦-♦-♦-♦-♦-♦-•-♦-♦ 
.X^ LIST 



♦ . .♦ 
♦ . .♦ 
♦NO 



*«*4i***^***«i***** 



♦ PUT THE ♦ 

♦ STARTING ♦ 
♦ADDRESS OF THE ♦ 
♦LUB TABLE INTO ♦ 

♦ P01NT2 ♦ 
***************** 



*«**F44i*******« 

* CONTROL • 

* CHART KB ♦ 

* * 
*************** 



YES .♦ OPERAND ♦. 
...*. IS F2 .* 

♦ . .♦ 



«*«»G2^^^*^**** 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ « 
****•******•**• 



4>****G3********** 

♦ CALC THE ♦ 

♦ PUB ADDRESS ♦ 

♦ FOR SYSLOG ♦ 

♦ ♦K4 ♦ 

♦ * 
***************** 

•*** I 

♦ ♦ . 

♦ 3 ♦... 



•?S, 



THE HEADER SWITCH. LSTUA, IS A PROGRAM SWITCH SET 
TO BRANCH AFTER AN UNASSlGNEO HEADER HAS BEEN 
LOGGED. IT FUNCTIONS AS A FIRST TIME SWITCH AND 



IS INITIALIZED TO NOP. THE NONE-LISTING SWITCH» 
UAPSWH. IS PROGRAM SWITCH SET TO BRANCH WHEN 
SOMETHING HAS ALREADY BEEN LISTED. THE BRANCH 
PROHIBITS THE LIST-NONE OPERATION. THE SWITCH IS 
INITIALIZED TO A NOP (NOTHING LISTED). 



**** 

* * 

* I ♦ 

* * 
«*** 



*****J1 ********** 
♦LSTBG LJ^ 
♦-*-*-*-*-*>*-*»* 

• LIST ♦ 

* BACKGROUND • 

♦ ASSIGNMENTS ♦ 



•****K1******«*«« 
♦LSTFl LJ* 
♦-♦-♦-♦-*-*-*-•-• 

* LIST ♦ 
♦FOREGROUND ONE ♦ 

♦ ASSIGNMENTS • 
***«•«»*•*••*•««• 



***** 
♦LJ * 
♦ 85* 



****J2********* 

• NVSERR * 

* CHART KC * 

*************** 



.* DEVICE ♦. YESX 



**•* 

* * 

* 2 * 

* * 
*•** 



SYSLOG PUB ADDRESS EQUALS THE INDEX DISPLACEMENT 
(PUB POINTER) FROM THE SYSLOG LUB MULTIPLIED BY 8 
PLUS THE STARTING ADDRESS OF THE PUB TABLEt PUBADO 



***** 

*LN ♦ 

LSTUA^ B2^ 



**** 

* * 

* 2 * 

« « 
**** 
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Chart LJ, List Subroutines $$BATTNJ; Refer to Supervisor, 
Chart 23 



••*••*••«•*•••• 



« * 

♦ LSTFl • 

* • 



♦ LH ♦ 



♦ PUT THE ♦ 

♦ SYSTEM fTcL • 
*ANO NtCL VALUES* 

♦ INTO WRKRGl ♦ 

♦ * 



*****B3********4>* 

• PUT THE Fl • 

• FiCL AND • 



•••*•**•*•******* 



LSTF2 X 

**««*B5********** 

* PUT THE F2 ♦ 
» FICL AND ♦ 

* NICL VALUES * 

* INTO WRKRGl * 

* * 



********4>*****4ii 



********«*•«*•*** 



♦ CLEAR * 

• THE OUTPUT » 

♦ BUFFER » 

* * 



*****03********4'* 

♦ PUT THE • 
•FOREGROUND ONE * 

♦ HEADER IN * 

♦ THE OUTPUT ♦ 

♦ BUFFER ♦ 



• PUT THE • 
•FOREGROUND TWO • 

• HEADER IN THE * 

• OUTPUT • 

• BUFFER ♦ 
**•••**••*«•****«> 



•••••El***^*^^ 

• SET SYSTEM • 

• UNIT LIST ♦ 

• SW* SYSSWH 

• TO BRANCH * 

• • 



*•*•• 

• LK • 

• 81^ 



***«*E5****^^*^^* 
•LSTAUN LK* 
*-•-•>*-•-*-•-*-« 
•LIST FOREGROUND* 

* TWO UNIT ♦ 

* ASSIGNMENTS * 



*F2 

THE 
CON 



REGIS 
TAINS 
ICAL U 



SPECIFICATION. 



•URKRG2 *F2* 



4i*«*F5**^^***** 

* CONTROL * 

* CHART KB * 

* * 
•*•*•*•******•• 



X 

• •*•• 

• LK • 

• B2^ 
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Chart LK. Locate Assignment Routine $$BATTNJ; Refer to 
Supervisor, Chart 23 



»A1**«»» 
LSTAUN 



RESET THE 
REGISTER THAT 

CONTAINS 
LOGICAL UNIT 
SPECIFICATION 



LSTBUN 



OUTPUT THE 

SECONDARY 

HEADER 



•♦•B5*»»»*»* 

ADD 1 TO 

WRKRGl 

SO THAT IT 

CONTAINS 

NEXT UNIT 



••»»C1*»»»«»«»» 

SAVE THE 

LOGICAL UNIT 

SPECIFICATION 

REG IN LOC 

lOTADR 



* CALC NICL 

» ENTRY ADDRESS 

* =INDEX 
♦DISPLACEMENT + 

* NICL ADDRESS 




SAVLUS X 

•••*«C 5 ********* 

* SAVE THE 

* LOGICAL UNIT 

* SPECIFICATION 

* IN LOCATION 

* lOTADR 



CLEAR 
OUTPUT 
BUFFER 



THIS SUBROUTINE 
IS IDENTICAL TO 
THE ONE IN 
$$BATTNI PHASE. 



» SET UP LOC 
* JBSLUB FROM 
»LUB ENTRY *E2 



ASGLST 

«»***D5********** 

♦lstasg lm» 
*lTst~assignment* 

* FOR LUB entry * 

♦ at JBSLUB * 



♦•♦•»E5**»***** 

♦ PUT THE 

♦ CHARACTERS 

♦ -ALT- INTO 

♦ THE COMMENTS 

♦ FIELD 



SAVE NICL 

ENTRY IN LOC 

SCFICL FOR 

LUB SCAN 



»'»***G1********** 

• get ficl • 
» entry and ♦ 

* calc starting * 
♦lub address for* 

♦SCAN ♦GZ ♦ 



♦ G2 
STARTING SCAN 
ADDRESS EQUALS 
DOUBLE THE FICL 
VALUE PLUS THE 
STARTING ADDRESS 
OF THE LUB TABLE, 
LUBADD. THIS VALUE 
IS SAVED IN SCFICL. 



YES 


* END * 


. . .♦ 


OF CLASS 








*. .♦ 


X 


♦ . .♦ 


♦ »««♦ 


♦ NO 


*LL ♦ 




♦ F3* 


















NDSCAN 








X 


»»»»«G3****^^** 




PUT THE 




CHARACTERS 




SYS INTO THE 




OUTPUT 


BUFFER 



♦ F4 

THIS SUBROUTINE 
IS IDENTICAL TO 
THE ONE IN 
$$BATTNI PHASE 



♦ G4 
PROGRAM SWITCH 
SET TO BRANCH 
IF MORE STANDARD 
ASSIGNMENTS ARE 
TO BE LISTED. 
BRANCH WILL BE 
TAKEN AT END 
OF JIB CHAIN 



LANXJB 

♦»»«*F5**»******* 

♦scnjib lc^ 

♦ sIt'lub value ♦ 
♦in jbslub from ♦ 

*CHAINED JIB *F4* 



*J2 
PROGRAM SWITCH 
SET TO BRANCH 
WHEN SYSTEM 
UNITS ARE TO BE 
LOGGED. NOP WHEN 
EG PROGRAMMER 
CLASS UNITS ARE 
TO BE LOGGED. 
WHEN SWITCH IS 
SET TO BRANCH 
WRKRGl CONTAINS 
POINTER TO TRANSLATE 
TABLE. 



SET UP 

SECONDARY 

HEADER 



«**«H 3* •♦♦♦**** 

PUT LOGICAL 

UNIT 

SPECIFICATION 

INTO 

WRKRGl 



SYSTEM 

UNIT LIST 

♦J2 



««**«K3********** 
♦CONVERT LOGICAL* 

♦ UNIT NUMBER * 

♦ TO EBCDIC AND * 
♦PUT IT INTO THE^ 

♦ OUTPUT BUFFER • 



STDSWH 


• *• 






G5 «. 






.♦ LIST ♦. 


BR . 




STANDARD 






ASSIGNMENTS 


• 


* 


*G4 
♦ • .* 


X 




*. .* 






♦NOP 


*LL * 






• 85* 




, 


• • 












LSTSTD 




X 

.♦• 

H5 *. 

>* *. 


NO . 


• 


END 


• ..*. 




OF JIB 


• 


• 


. CHAIN . 


X 




*• . « 






•YES 


♦ LL • 






* Bl* 






♦ • 




X 


♦ 




♦ »♦» 

• ♦ 

♦ 3 * 



PUT SYSTEM 
UNIT NAME 
INTO THE 

I/O BUFFER 



.* END OF * 
.SYSTEM CLASS 
*. UNITS .* 



• ADD 3 TO 

• WRKRGl SO 
.X*THAT IT POINTS 

• TO NEXT UNIT 



*YES 

Ilstprg 
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Chart LL. Output .List (Part 1 of 3) $$BATTNJ; Refer to 
Supervisor, Chart 23 



♦LK • 

♦ H5» 



*4i**A2********* 



*♦••*•**••***•* 



• * 

• NOUNIT • 

• * 



***** 
♦LK * 
♦ K4* 



***** 
*LK ♦ 
♦ G5* 



♦ . YES 
E .*.... 
.♦ 



***** 
♦LK ♦ 
♦ 05^ 



****i2*********' 



**********•**«*! 



♦LK ♦... 

♦ El^ 
♦♦♦♦ 

X 
*****B3********** 
♦LOGGER KU^ 
*_*.*.*.*-*.*-*.« 

♦ OUTPUT THE ♦ 

♦ HEADER ♦ 

♦ ♦ 
***************** 



LSTPRG X 

*****B4********** 
♦SPACE LL^ 
♦-♦-*-*-*-*-♦-*-* 

♦ SPACE ONE ♦ 

♦ LINE ♦ 

♦ ♦ 
***************** 



LSTSTO X 

*****B5******* 

♦ RESET ♦ 

♦ STANDARD 

♦ ASSIGNMENT 

♦ LIST SWITCH 

♦ STOSWH ♦ 
******4i*4t4t**** 



.♦ STORED ♦. NO 


*-*-*-*-*-*>*-*-* 


*-*-*-*-*- 4t.*_4i.* 


♦. STANDARD ...... 


♦ SPACE ONE ♦ 


♦ SPACE ONE ♦ 


♦. IN JIB .♦ 


♦ LINE ♦ 


♦ LINE ♦ 


♦ . .♦ 


* * 


♦ ♦ 


♦ . .♦ X 




K******** 


**************«4>* 


♦YES ♦♦♦♦♦ 








♦LK ♦ 








♦ F5* 








♦ ♦ 
. * 






I 


LANXJB 
X 
*****Dl******* 
♦ SET STAN- ♦ 






X 
*****03********** 


X 


****D2^^^^^^^^^ 


♦ PUT THE ♦ 


♦ DARD ASSIGN- ♦ 


♦ RET TO LNK ♦ 


♦ CHARACTERS ♦ 


♦ REG ADDR ♦ 


♦ -NONE- ♦ 


♦ VIA LOGGER ♦ 


♦ INTO THE I/O ♦ 


♦ ♦ 


*************** 


♦ BUFFER ♦ 








*****4i******4i«i*** 



*****E1********** 

♦ SAVE THE ♦ 

♦ LUB ENTRY ♦ 

♦ FROM THE JIB ♦ 

♦ IN LOCATION ♦ 

♦ L6SLUB ♦ 
♦♦♦♦♦♦♦♦****•**** 



X 
***** 

♦ LK ♦ 

♦ F5^ 
♦ ♦ 



LANXJB 



*****E3********** 
♦LOGGER KU^ 
♦-♦-*-*-*-*-*-*-* 

♦ OUTPUT THE ♦ 

♦ LINE PRE- ♦ 

♦ VIOSLY SET UP ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦**** 

**** ! 

♦ ♦ . 

♦LK *... 

♦ F3^ 
♦♦♦♦ 

NDSCAN X 

*****P3********** 

♦SPACE LL^ 

*-♦-*_*-*_*_*_*_* 

♦ SPACE ONE ♦ 

♦ LINE ♦ 

♦ ♦ 
***************** 



1ti****Q4t******* 

♦ RESET SYSTEM^ 

♦ UNIT LIST ♦ 
♦SWITCH SYSSWH* 

♦ TO NOP ♦ 

♦ ♦ 
************** 



*****D4********** 

♦ PUT THE ♦ 

♦ PROGRAM CLASS ♦ 

♦ NICL AND FICL ♦ 

♦ INTO WRKRGI ♦ 

♦ ♦ 
***************** 



*****E4********** 

♦ PUT THE ♦ 

♦ PROGRAM ♦ 

♦ HEADER INTO ♦ 

♦ I/O BUFFER ♦ 

♦ ♦ 
***************** 



♦♦♦♦♦ 
♦LK ♦ 
♦ Bl^ 



*****C5********** 

♦ SET JOBLUB ♦ 
♦WITH THE ENTRY ♦ 

♦ SAVED FOR ♦ 

♦ STANDARD LIST ♦ 

♦ IN LBSLUB ♦ 
***************** 



*****05********** 

♦ MOVE THE ♦ 

♦ CHARACTERS * 

♦ -STD- * 

♦ TO COMMENT ♦ 

♦ FLD OF BUFFER ♦ 
***************** 



***** 
*LK ♦ 

♦ D5^ 
♦ * 



****G3********* 

♦ RET TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ ♦ 
♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 
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Chart LM. Output List (Part 2 of 3) $$BATTNJ; Refer to 
Supervisor, Chart 23 



* LSTASG ♦ 



*Cl 

PUB ENTRY ADDRESS 
EQUALS PUB POINTER 
FROM THE LUB MULTI- 
PLIED BY 8 PLUS THE 
STARTING ADDRESS OF 
THE PUB TABLE* 
PUBADO. 



♦ COMPUTE • 

♦ ADDRESS OF ♦ 

♦ CORRESPONDING » 

♦ PUB ENTRY » 

♦ ♦CI ♦ 
***************** 



NOTASG 

♦ SET 

♦ MGN* 
..X* IN THE I/O 

♦ BUFFER 

* 



* CONVERT CHAN * 

♦ AND UNIT SPEC » 
*T0 HEXADECIMAL ♦ 

♦ EBCDIC • 

* * 



♦ PUT CHAN » 

♦ AND UNIT INFO ♦ 

♦ INTO THE 1/0 ♦ 

♦ BUFFER ♦ 

♦ * 



***4cD5********* 

* OUTPUT ♦ 

♦ ♦ 



SET 

•UNA* 

IN THE I/O 

BUFFER 



.♦. 


. OUTPUT X 


FZ ♦. 


♦****F3*** *♦*♦♦♦♦ 


.♦ *. 


♦LOGGER KU^ 


♦ . NO 




DEVICE TYPE .♦... 


♦ OUTPUT ♦ 


. TAPE .* 


( ♦ LINE ♦ 



♦ CONVERT MODE ♦ 

♦ SET BYTE ♦ 
♦TO HEXADECIMAL ♦ 

♦ EBCDIC ♦ 

♦ * 



♦ PUT MODE ♦ 

♦ INFO INTO ♦ 

♦ THE I/O ♦ 

♦ BUFFER ♦ 

♦ * 



*^^***n^*********** 



CLEAR 
OUTPUT 
BUFFER 

*************** 



****H3********* 

♦ RET TO ADDR ♦ 

♦ IN LNK REG ♦ 

♦ * 
*************** 
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Chart LN, Output List (Part 3 of 3) $$BATTNJ; Refer to 
Supervisor, Chart 23 



***** 

♦LH ♦ 
♦ K3* 



UALNOT X 

*****C2*****4>***4> 

* CONVERT CHAN * 

* AND UNIT TO ♦ 

* HEXAOECIHAL * 

* EBCDIC 4i 

* * 
***************** 



♦C4 
SET LSTUA AND 
UAPSHH TO THE 
BRANCH STATE. 



************** 



*****D2********** 

♦ PUT CHANNEL • 

♦ AND UNIT ♦ 

♦ INFO IN THE ♦ 

♦ I/O BUFFER * 

♦ * 
***************** 



*****03********** 
♦LOGGER KU* 
*>*-*>*-*-*-*-*-* 

* OUTPUT ♦ 

* HEADER * 

* * 
***************** 



*****E2********** 
♦OUTPUT LM* 
*-*-*>*-*-*-*>*-* 

♦ OUTPUT ♦ 

♦ LINE ♦ 

♦ * 
***************** 



***«*E3********** 
♦SPACE LL^ 
*-*>*-*-*-*--*-*-* 

♦ SPACE ♦ 

♦ ONE * 

♦ LINE ♦ 
***************** 



X 

***** 
*LH ♦ 
♦ B4^ 



*****F3^^^^^^^^^^ 

♦ PUT ♦ 

♦ SECONDARY ♦ 

♦ HEADER IN ♦ 

♦ OUTPUT BUFFER ♦ 

♦ ♦ 
***************** 



*****G3********** 
♦LOGGER KU^ 
♦-♦-♦-*-*-*-*-*-* 

♦ OUTPUT ♦ 

♦ SECONDARY ♦ 

♦ HEADER ♦ 
***************** 



*****H3********** 
♦SPACE LL^ 
*-*-*-*-*-*-♦-*-* 

♦ SPACE * 

♦ ONE ♦ 

♦ LINE ♦ 
***************** 
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Chart LP. VOL Statement Processor $$BATTNK; 
Supervisor, Chart 23 



Refer to 



♦ ♦ 

» VOL ♦ 

» ♦ 



* * 

* $»BATTNK ♦ 

* * 



•SCANR3 KD* 

♦-*-•-♦-•-♦-♦-♦-♦ 

♦ GET FILE ♦ 
» NAHE • 

• OPERAND ♦ 



LABEL 

* INFORMATION 

* BLOCK DSECT » 



* PUT STARTING * 

* ADDRESS OF ♦ 

* LABEL AREA * 
» INTO P0INT4 ♦ 

* * 



.* DELIMITER *. NO 
IS A .*... 
*. BLANK .* 



.♦ LENGTH ♦. NO 
.GREATER THAN .*... 
». .» 



.♦ STATEMENT ♦. 
♦. IN .♦ 

♦.SEQUENCE .* 
*. .* 


m 


». .♦ 

*YES 


X 

***** 

♦ LV ♦ 

♦ B*+ 

* * 




* 




OTSERR 


E2 *. 

.» FILE *. 

NO .* TYPE IS ». 

..♦. SEQUENTIAL .♦ 

♦. DISK .♦ 

». *F3 .* 

♦ . .♦ 

♦ YES 




X 

♦ SET MTRSVO ♦ 

♦ TO INDICATE ♦ 
♦LAST SEQUENTIAL^ 

♦ DISK ENTRY ♦ 

♦ ♦FB ♦ 


*THESE INSTRUCTIONS 
ARt USED TO OUTPUT 
LABEL INFORMATION 
THAT HAS FOUND 
FuR THE PREVIOUS 
LABEL BLOCKS. 



»**«*******«** 



*****P4* ********* 

♦ CLEAR FILE ♦ 

♦ NAME STORAGE ♦ 

♦ AREA AND ♦ 

♦ MOVE THE FILE ♦ 

♦ NAME IN ♦ 
***************** 



*****f:^********** 

♦ * 

♦ SET KEY ♦ 

♦ FIELD TO ♦ 

♦ FILE NAME ♦ 

♦ * 
***************** 



****E5*: 

♦ NVS 

♦ CHAR 

*************** 



*****G2^^^^^^^^^^ 
♦LBLOUT LW+ 

:»-4i.*-*-^-«-*_*-* 

* OUTPUT THE ♦ 

♦ LABEL TO THE ♦ 
♦VOLUME AREA *F3^ 
***************** 



*****G^********** 

♦ SAVE SYMBOLIC ♦ 

♦ UNIT ADDRESS • 

♦ I-^ LOC MTCLDR ♦ 

♦ OF THE LABEL ♦ 

♦ SAVE AREA ♦ 
***************** 



-*-*-♦-*-* 



***************** 



***«*HA****«^*«** 

♦ SET THE » 

* RESERVED ♦ 

♦ BYTE MTRSVD ♦ 

• TO ZERO • 

* ♦ 
***************** 



•****H5*********^ 

* STORE LABEL ♦ 

* AREA ADDRESS ♦ 

* IN LOCATION ♦ 

* LBLPTR * 

* * 
***************** 



J2 ♦. 

.♦ ♦. 
DELIMITER ♦. NO 
IS A .*... 
. COMMA .♦ 



*****K2********** 
♦CNUNCO LS* 
»-*-*-*-*-*-*-*-* 
♦CONVERT SYSXXX ♦ 

♦ TO UNIT CLASS ♦ 

♦ AND ORDER ♦ 
***************** 



****K3********* 

♦ NVSERR ♦ 

♦ CHART KC * 

♦ * 
***••*•**•**«** 



*****J4********** 

♦ SET SEQUENCE ♦ 

♦ FLAG IN ♦ 

♦ FL6BY0 ♦ 

♦ TO VOL ♦ 

♦ * 
***************** 



**** 

* * 

* 2 ♦ 

* ♦ 
**** 



****JS********* 



*««*•********** 
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Chart LQ. TPLAB Statement Processor $$BATTNK; Refer to 
Supervisor, Chart 23 



**4>*A2********* 

* • 

* TPLAB ♦ 

* * 
*************** 



♦ 3 * 



NO .♦ ♦. 

...*. CONTINUATION . 
♦.INDICATED.* 
*. .* 



*«**»C2********** 
♦CONCAT LR* 

• GET REST « 

• OF ♦ 

• STATEMENT ♦ 



* SAVE SHORT ♦ 

* 10 IN * 

* LOCATION * 

* HTM FID ♦ 



TPLENO X 

4<**4>*C4*4>*******<I> 

♦ SET SEQUENCE ♦ 

♦ FLAG IN * 

♦ FLGBYO ♦ 

♦ TO TPLAB ♦ 
» » 



.* *. 
* CORRECT *. NO 
SEQUENCE .«... 



.* 

• .* 
♦ YES 



***** 
♦LV ♦ 
♦ b*t* 

* « 

* 

OTSERR 



*****E2*^^^^^^^^^ 
♦SCANR2 KO^ 
♦-*-*^-*-*-*-*-*-* 

♦ GET FILE ♦ 

♦ ID ♦ 

♦ OPERAND ♦ 
♦♦♦*♦********♦♦•* 



*4i«**04******* 

♦ SET FLGBYO ♦ 

♦ TO INDICATE 

♦ BLOCK 

♦ PRESENT 

♦ * 



*****E4**^^^^^^** 

♦ RESET DATA ♦ 

♦ LENGTH TO 80 ♦ 

♦ AND STORE ♦ 

♦ IN DTALGT ♦ 

♦ * 
**********•*♦♦*♦♦ 



.♦ FIRST ♦. 

.♦ CHAR AN ♦. NO 
♦. APOSTROPHE .*... 



♦♦♦♦♦F4^*^^^^^^^^ 



*•********•••••*• 



•***G3***^***** 



•♦♦•**♦♦*♦♦♦♦*♦ 



****G4**^^^**^^ 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ ♦ 
***•*****••*»** 



♦HI 
A SHORT STRING IS 
DEFINED AS THE 
FIELDS 3-10 OF A 
STANDARD TAPE FILE 
LABEL. 
THE CHARACTER 



HES. 



H2 ♦. 




.♦ ID ♦. 




.♦ IS A ♦. YES 




•'.. sfSSSJ : 






♦. ♦HI .♦ 




♦ . .♦ X 




♦NO ♦♦♦♦ 




♦ ♦ 




♦ 1 ♦ 




♦ ♦ 




• ♦•♦♦ 




X 




• ♦• 




J2 ♦. 


•••**J3*«******* 


.♦ ID ♦. 


x: i:[x ■ 


.♦ IS A ♦• YES 


♦ . LONG .♦ 


♦. STRING .♦ 


♦ MTFF 


♦. ♦H^ .♦ 


♦ 1 


♦ . .♦ 


••**************t 


♦NO 


• 



♦H4 
A LONG STRING IS DEFINED AS THE 
FIELDS 3-10 OF A STANDARD TAPE 
FILE LABELt 49 CHARACTERS LONGf 
FOLLOWED DIRECTLY BY^FIELOS 11-13. 
ELDS 11-13 HAVE A COMBINED LENGTH 
^0 CHARACTERS AND FOLLOW 



BLANKS , 'COMMAS t OR'APOSTROPi 
A CONTINUATION CHARACTER IS 
REQUIRED IN COLUMN 72 OF A 



ELOS 3-lb'MlTH NO INTERVENING 
AM^If.. COMMAS f pR_ APOSTROPHES. 



CARD IMAGE. 



♦♦♦♦K2^*^****^* 



♦♦4 •••*•••*••*• 
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Chart LR, Concatenate Subroutine $$BATTNK; Refer to 
Supervisor, Chart 23 



♦ CONCAT * 



♦ CLEAR * 

♦ CONCATENATION ♦ 

♦ BUFFERS WITH * 

♦ BLANKS ♦ 

♦ (127 BYTES) * 



♦ SAVE FIRST 

♦ PART OF 

♦ STATEMENT 
» *C4 

* 



♦ROSTMT KC* 

♦ INPUT 5EC0N0 » 

♦ PART OF ♦ 
♦STATEMENT *DA» 



li^i^i^^-ES**********' 

♦ COMBINE THE ♦ 
♦TWO PARTS INTO ♦ 

♦ A SINGLE ♦ 

♦ STATEMENT ♦ 

♦ ♦EA » 



♦ RESET POINTER * 

♦ AND LIMIT FOR ♦ 

♦ NEXT ENTRY TO ♦ 

♦ SCANR ♦ 

♦ ♦FA ♦ 
^*nt**f *********** 



****(i'i********* 

* RET TO ADDR ♦ 

* IN LNK REG ♦ 

* * 
*************** 



♦ C4 
SAVE THE FIRST 70 BYTES 
OF THE I/O BUFFER, 
IN LOCATION BUFFERl BY 
ORING THE TWO FIELDS. 
THIS WILL MAP ALL 
LOWERCASE CHARACTERS TO 
UPPERCASE. 



THE SECOND PART OF THE 
STATEMENT IS NOW IN 
I/O BUFFER* AT LOCATION 
BUFFER. 



♦ E4 
COMBINE THE TWO PARTS BY 
ORING THE CONTENTS OF THE 
I/O BUFFER (STARTING AT 
BUFFER -t-LSi WITH BUFFR2. 
BUFFR2 IS CONTIGUOUS 
WITH BUFFRl. 



♦FA 
GET VALUES SAVED BY THE 
SCAN SUBROUTINE: 

1. REMAINING BUFFER 
LENGTH. 

2. ADDRESS OF OPERAND 
SUBTRACT THE ADDRESS 
FIELD OF THE CCW FROM 
THE STARTING ADDRESS OF 
THE OPERAND. ADO BUFFRl 
ADDRESS TO THE DIFFERENCE. 
THE RESULTANT NEW OPERAND 
ADDRESS IS IN POINTl. ADO 
56 TO THE REMAINING BUFFER 
FIELD. THE RESULTANT NEW 
BUFFER LENGTH IS IN P0INT2. 
RESTORE POINTl AND P0INT2 
IN LOCATION TMPARl WHERE 

IT IS REFEREMCED BY THE 
SCAN SUBROUTINE. 
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Chart LS. Validity Check Subroutine $$BATTNK; Refer to 
Supervisor, Chart 23 



« * 

• CNUNCO • 



.♦ LENGTH 

*. EQUALS 

♦ . 6 



C2 *. 
.♦ FIRST *. 
.♦ THREE 
♦, CHARACTERS 
♦ . SYS 



♦El 
IDENTICAL TO THE 
SUBROUTINE IN THE 
PRECEDING PHASE. 



♦SET UP POINTER ♦ 
♦AND LENGTH FOR ♦ 

♦ NUMERIC ♦ 

♦ CONVERSION ♦ 

♦ TO BINARY ♦ 
***************** 



♦NUMCON LE^ 
♦-♦-♦-»-•-♦-♦-♦-♦ 

♦ CONVERT XXX ♦ 

♦ TO BINARY ♦ 

♦ ♦El ♦ 



♦ SAVE UNIT ♦ 

♦ ORDER IN ♦ 

♦ LOCATION ♦ 

♦ UNCLOR ♦ 

♦ ♦ 



.♦ ORDER ♦. YES 
♦.GREATER THAN ...... 

♦. 255 .♦ 



♦HI 
CLASS EQUALS 
4 MINUS KEY 
DIVIDED BY 16. 



♦ COMPUTE ♦ 

♦ CLASS FROM ♦ 

♦ KEY ♦ 

♦ ♦HI ♦ 

♦ ♦ 



* * 

* 1 ♦ 

* 4> 
**** 



.♦ IS ♦. 
.♦ UNIT IN ♦. NO 
♦. LUb TABLE .♦... 



♦LV ♦ 
♦ B3^ 



SET UNIT 
CLASS TO 

ONE 



♦ RET TO ADOR ♦ 

♦ IN LNK REG ♦ 

♦ * 



♦ NVSERR ♦ 

♦ CHART KC ♦ 

♦ * 



♦ GET ♦ 

♦ CORRESPONDING ♦ 

♦ NICL ENTRY ♦ 

♦ IN HRKRGl ♦ 

♦ * 
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Chart LT. DLAB Statement Processor $$BA.TTNK; Refer to 
Supervisor, Chart 23 



* * 

* DLAB ♦ 

* * 



ULAB MUST 
BE PRECEDED 
BY A VOL 
STATEMENT. 



* * 

* I ♦ 

* ♦ 



Bl ». 

.* *. 
.♦ STATEMENT *. 



* LOAD WRKRG<» » 
♦WITH FILE INFO * 

♦ ADDRESS AND ♦ 
*P01NT4 WITH THE* 
*ADDR OF LBL ARA» 



*CONCAT LR* 
*-*-*-*-*-♦-*-*-« 
♦BUILD COMPLETE * 
♦ CARD IMAGE IN * 
♦BUFFRl, BUFFR2.* 



NO .• DELIMITER 
...♦. A 

*. COMMA . 



♦ NVSERK 

• CHART KC 



* CONVERT VOL * 
*SEOUENCE NO. TO* 
» BINAKY *F2 * 



SAVE VOLUME 

SEQUENCE 

NUMBER IN 

LABEL L)AVLS3 



* * 

♦RESET RESERVED ♦ 

♦ BYTES AND * 

♦ TYPE FIELD ♦ 

* * 

*4i:»4c*«4i***4<****** 



*****B5*^^*****^^ 

♦ ASSUME ISC ♦ 

♦ OR ISE AND ♦ 
» SET FILE TYPE ♦ 

♦ TO C OR E ♦ 

♦ 1^ 
***************** 



4i4>***C4* ***♦♦♦♦♦♦ 




05 *. 


♦SCANR2 KD* 




.♦ ♦. 


♦-*-*-*-♦-♦-*-♦-* 


YES 


♦ OPERAND ♦. 


♦ GET NEXT ♦ 


...*. 


IS ISC 


♦ OPERAND- ♦ 




♦ . .♦ 


♦ SYSTEM CODE- * 




♦ . .♦ 


*^t**i^*^**^Hf***iti** 


X 


♦. .* 




**** 


♦ NO 




♦ ♦ 






♦ 5 * 






♦ * 






**** 




X 




X 


.♦. 




.♦. 


D4 ♦. 




D5 ♦. 


.♦ ♦. 




.* ♦. 


.* OPERAND *. 


NO , 


♦ OPERAND ♦. 


*. ENCLOSED IN .* 


. . .♦. 


IS 


♦APOSTROPHES^ 


. 


♦. ISE .♦ 



*****^/^********i 

♦ SAVE SYSTEM 

♦ CODE IN 

♦ OASYCD AND 

♦ RESET POINTl 

♦ AND P0INT2 

*****n,D,**'t^f:ti**:^t 



«4<«««(:X ♦♦♦♦*♦♦♦♦♦ 
♦SCANR2 KD* 
♦-♦-*-*-*-*-♦-*-* 

♦ GET THE FIRST ♦ 

♦ OPERAND - 51 ♦ 

♦ CHARACTERS- * 
***************** 



IDENTICAL TO THc 
SUBROUTINE IN 
THE PRECEDING 
PHASE. 



♦CHECK, CONVERT ♦ 
♦STOKE CREATION ♦ 
♦ DATE IN LABEL ♦ 
***************** 



♦ SET FILE TYPE ♦ 

♦ Ab SEQUENTIAL ♦ 

♦ DISK ♦ 

♦ * 
***************** 



DLBOUT X 

*****f.^******* 

♦ SET FLGBYO ♦ 

♦ TO INDICATE 

♦ DLAB 

♦ PROCESSED 

♦ ♦H2 ♦ 
************** 



.♦OPERAND^. 

♦ENCLOSED IN^ 

APOSTROPHES 



♦ PUT ADDRESS ♦ 

♦ OF EXPIRATION ♦ 

♦ uATE AREA ♦ 

♦ INTU POINTS ♦ 

♦ * 
***************** 



♦ GET LAST ♦ 

♦ OPERAND- ♦ 

♦ OPTIONAL NSD- ♦ 
***************** 



*****Q^********** 

♦ PUT FILE ♦ 

♦ TYPE JUST ♦ 

♦ DETERMINED ♦ 

♦ INTO DAFTYP ♦ 

***************** 



*****^l********** 

♦ SAVE FILE ID ♦ 

♦ IN DACTRL ♦ 

♦ AND SET DAFMT ♦ 
♦TO 1 TO ENSURE ♦ 

♦ FORMAT ONE ♦ 
***************** 



***** J I ********** 
♦RESET REGISTERS^ 

♦ POINTl AND ♦ 

♦ P0INT2 FOR ♦ 

♦ NEXT SCAN ♦ 

♦ * 
***************** 



♦ GET NEXT * 

♦ OPERAND-VOL ♦ 

♦ SEQUENCE NO. ♦ 
***************** 



♦ H2 
AN EXTLNT 

MUST Follow 

THE DLAB. 



*****i^i********** 
♦D0P34 LU^ 
*_*_»_»-♦-♦-»_*-» 
♦CHECK, CONVERT ♦ 

♦ STORE EXPRATN ♦ 

♦ DATE IN LBL ♦ 
***************** 



*****j^********** 

♦ RESET POINTS ♦ 

♦ TO STARTING ♦ 

♦ ADDRESS OF ♦ 

♦ LABEL AREA ♦ 

♦ * 
***************** 



OPERAND 
IS SD OR 
. BLANK 



*****j/^********** 

♦ ASSUME LA * 

♦ AND SET FILE * 

♦ TYPE TO D ♦ 

♦ IN SAVE AREA ♦ 

♦ * 
***************** 



♦EXPIRATION ♦. 


YES .* 


OPERAND 


DATE LT 


♦.... ♦. 


IS DA 


♦.CREATION .* 


♦ . 




♦.DATE .♦ 




♦. 


*. .♦ 


X NLSERR 


♦ . .♦ 


♦ NO 


♦ ♦♦»* 


♦NO 




♦ LV ♦ 

♦ B2* 





*****^i^********** 

♦ SET LABEL ♦ 

♦ AREA DATA ♦ 

♦ LENGTH FIELD ♦ 

♦ DTALGT TO 64 ♦ 

♦ * 
***************** 



****JS********* 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ * 
*************** 



**** 

* * 

* I * 



*♦♦♦ 

♦ ♦ 

♦ 3 * 



**** 

* * 

* 5 * 

* * 
**** 
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Chart LO. Extract Operand from Statement Subroutine 
$$BATTNK; Refer to Supervisor, Chart 23 



♦ ♦ 

♦ 00P34 ♦ 

♦ * 



*****B2********** 
*SCANR2 KO* 
*-•-•-*-*-*-*-*-* 

* GET THIRD * 

* AND FOURTH * 

* OPERANDS ♦ 
***************** 



.♦ DELIMITER *. NO 



*****E2******<*'*** 

♦ SET LENGTH * 

♦ IN P0INT3 ♦ 
♦FOR CONVERSION * 

* SUBROUTINE * 

* * 
***************** 



YES .* DAY ♦ 
......GREATER THAN 

*. 366 .♦ 



*****C^********** 

♦ STORE ♦ 

♦ CONVERTED ♦ 

♦ DAY - 2 bYTE:> ♦ 

♦ INTO OACRDY • 

♦ * 
***************** 



*»**D4***»***** 

♦ RET TO ADDR ♦ 

♦ IN LNK REG * 

♦ • 

*************** 



****E3********* 
» NVSERR » 

♦ CHART KC * 

♦ ♦ 
*************** 



PRECEDING PHASE. 



*****P2*******«*4< 
♦NUMCON LE* 
*-*-*-*-*-*-*-*-* 

♦ CONVERT YEARS ♦ 

♦ TO BINARY ♦ 

♦ ♦Fl ♦ 
***************** 



*****G2********* 

♦ STORE 

♦ CONVERTED 

♦ YEAR VALUE 

♦ IN DACRYR 
* 
****************: 



♦ SET POINTl ♦ 

♦ TO ADDRESS OF ♦ 

♦ THE DAY FIELD ♦ 

♦ AND P0INT3 ♦ 

♦ TO LENGTH • 
***************** 



*«***J2********** 
*NUMCON LE* 
♦-•-♦-*-*-*-*-*-* 

♦ CONVERT DAY * 
*■ TO BINARY * 

♦ ♦Fl ♦ 
***************** 
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Chart. LV, Common Error Exits $$BATTNK; Refer to Supervisor, 
Chart 23 



****B1 ********* 

* ERRRTN » 

* CHART KC * 

* *Cl * 



****B2********* 

* ERRRTN * 

* CHART KC * 

* *C2 * 
*************** 



****BJ****«**** 

* ERRRTN * 

* CHART KC * 

* *C3 * 



4>*«*B4********* 

* EKRRTN * 

* CHART KC * 

* ♦CA * 



*C1 
ILIOO 

LABEL AREA 
EXHAUSTED 
MESSAGE. 



*C2 
ILOOO 
INVALID 
LABEL SYNTAX 
MESSAGE. 



*C3 
IA400 
INVALID 
LOGICAL UNIT 
iPtCIFICATION 
ME:kSAGE. 



*C4 

ISIOC 

STATEMENT 

OUT OF SEQUEi><Ch 

MESSAGE. 



LW-F3 
LX-HI 
MB-65 
MO-03 



♦02 
LT-K3 
LX-F3 
LY-El 
LZ-Kl, B4 
MA-C4, F3, Gl 



LP-D2 

LO-D? 

LT-Hl 

LX-M» 

LY-Hl 

MC-C3 
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Chart LW. Output Label Data Subroutine $$BATTIsrK; Refer to 
Supervisor, Chart 23 



* * 

* LBLOUT » 

* * 



Bl *. 

.* LABEL *. 

BLOCK *. NO 



♦ SET BLOCK ♦ 

♦ NOT PRESENT 

♦ FLAG 



♦ 3 ♦ 



**** 






**** 


♦ 






* » 


1 • 

• 






:^ : 


**** 


♦B4 
WHEN THE DIFFERENCE 




*«>** 


X 


BETWEEN THE OLD 






.♦. 


RESIDUAL COUNT 




X 


». 


(REMAINING CAPACITY) 




», 


AND THE CURRENT BYTE 


* 


»DD 256 TO THE » 


PACE *. 


COUNT (SPACE NEEDED) 


♦ 


RECORD NUMBER * 


ILABLE .* 


IS A NEGATIVE VALUEt 


* 


AND STORE IN ♦ 


♦ B4 .♦ 


THERE IS NO SPACE 


* 


WRECNO * 


.* 


AVAILABLE ON THE TRACKS. 


* 


♦ F5 * 


. .» 







♦ RET TO AOOR ♦ 

♦ IN LNK REG ♦ 

♦ * 



♦ ADD ONE TO ♦ 

♦ TRACK NUMBER ♦ 

♦ AND STORE IN • 

♦ WHHADO • 

♦ * 



SET UP ♦ 

WRITE « 

CCB * 

* 



» PUT DATA ♦ 

♦ LENGTH IN ♦ 

♦ WRKRGl FROM ♦ 

♦ DTALGT * 

♦ * 



El *. 

.♦LENGTH ♦. 

NO .* GREATER *. 

..♦.THAN PREVIOUS.* 

♦. MAXIMUM .♦ 

♦. *E2 ,* 



♦ D2 
BNPMSK 
OF THE FLAG 
BYTE FLGBYO 



♦E2 

MAXIMUM LENGTH 
IS RESET BY EACH 
ITERATION. WHENEVER 
A PREVIOUSLY SET 
MAXIMUM IS EXCEEDED 



* RESET RECORD ♦ 

* NUMBER TO » 

* ZERO IN ♦ 

* WRECNO ♦ 

* * 



CALCULATE 
LAST TRACK 

NUMBER 



♦ YES 



♦ RESET MAXIMUM ♦ 

♦ LENGTH WITH ♦ 

♦ CURRENT DATA ♦ 

♦ LENGTH ♦ 

♦ ^£2 ♦ 



♦ EXCPRG ♦ 

♦ CHART KC ♦ 

♦ * 
*************** 



♦ E4 
LAST TRACK NUMBER 
EQUALS KEY VALUE 
MULTIPLIED BY 3. 
THE PRODUCT DIVIDED 
BY 16. 



*****Ql********* 

♦ ADJUST DATA 

♦ LENGTH BY 

♦ ADDING KEY 

♦ LENGTH 

* 

****************: 



**** 

* * 

♦ 3 ♦ 



.♦ EXTENTS ♦ 




ITES 


♦. EXCEEDED 


',* 




♦ . .♦ 






♦ . .♦ 






■ ♦. .♦ 




X 


♦NO 




***** 
♦LV ♦ 


I 




%«i* 






♦ 






LAXERR 


X 






*****Q-i********** 




♦ RESET TRACK 


* 




♦ CAPACITY 


* 




♦ TO VALUE 


* 




♦ TRKCAP 


* 





♦F5 
A TWO BYTE FIFlD Ii> 
PICKED UPt STARTING 
tilJH WRECNO. ADDING 
256 TO THIS VALUE 
EFFECTIVELY INCREASES 
THE RECORD NUMBER 
BY I. 



***************** 



*****\^l********** 

♦ SET UP WRITE ♦ 

♦ AND VERIFY ♦ 

♦ CCW WITH ♦ 

♦ LENGTH VALUE ♦ 

♦ * 
***************** 



*****jl********** 

♦ CALCULATE ♦ 

♦ SPACE NEEDED ♦ 

♦ ON THE LABEL ♦ 

♦ TRACK ♦ 

♦ ♦J* ♦ 
**m************** 



*****^2********** 

♦ CALCULATE ♦ 

♦ REMAINING ♦ 

♦ CAPACITY ♦ 
♦TRACK CAPACITY ♦ 

♦ ♦KA ♦ 
***************** 



.X. 



RSRMCP X 

*****ji********** 

♦ PUT REMAINING ♦ 

♦ CAPACITY INTO ♦ 

♦ LOCATION ♦ 

♦ REMCAP ♦ 

♦ ♦ 
******^********** 



♦ J4 

1. DATA LENGTH PLUS KEY LENGTH 
MULTIPLIED BY 537. 

2. PRODUCT DIVIDED BY 512. 

3. QUOTIENT ADDED TO 82. 



*****m********** 

♦ GET THE * 

♦ REMAINING ♦ 

♦ CAPACITY OF ♦ 

♦ THE TRACK ♦ 

♦ FROM REMCAP ♦ 
***************** 



*****\f,i********** 

♦ SET UP ♦ 

♦ SEEK ADDRESS ♦ 

♦ IN LOCATION ♦ 

♦ SHHAOD ♦ 

♦ * 
***************** 



♦K4 
REMAINING CAPACITY EQUALS 
3625 (MAXIMUM BYTES PER TRACK) 
MINUS CURRENT BYTE COUNT. 
(SPACE NEEDED) 
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Chart LX. XTENT Statement Processor, Type and Sequence 
(Part 1 of 2) $$BATTNL; Refer to Supervisor, 
Chart 23 



•♦♦Al»»««»* 
$$BATTNL 



•♦«»A2*»*»» 
• XTENT 



.* PREVIOUS • 


NO 


«. STATEMENT 




*. OLAB OR .» 




•.XTENT.* 


, 




X 


• YES 


• ••* 




«LV 




♦ 84 




• * 








OTSE 


X 




••*««CL^*^**^^**^ 


♦ INITIALIZE 




* POINTERS TO 




• FILE ADDRESS 




•AND LABEL AREA 




•ADDRESS •CZ 





• CHECK AND 
•CONVERT EXTENT 

• TYPE FIELD 



tt»**«Dl^*^^*^^**^ 
•PUT THE ADDRESS^ 
•OF THE CORRECT • 
•PIE ENTRY INTO • 
• WRKRGI • 



••♦»*C3^*^»^^^^^ 

• STORE 

• CONVERTED 
•VALUE FOR TYPE 

• IN LOCATION 

• XTTYPE 



• C2 
WRKRG4 CONTAINS THE 
FILE INFORMATION 
ADDRESS WITHIN THE 
LABEL AREA. P0INT4 
CONTAINS THE ADDRESS 
OF THE LABEL AREA. 



FILE 
DIRECT 
ACCESS 



•••••El* *•••••••• 

• CALCULATE • 

• THE AMOUNT OF • 

• MAIN STORAGE » 

• ALLOCATED IN ♦ 
•WRKRG2 •EZ ♦ 



••••*F1**^*^^«*^ 

• CALCULATE 

• THE FG UPPER 

• LIMIT ADDRESS 

• IN MRKRGI 

• •GZ 



••••Gl ••*•*••• 

GET LABEL 

AREA ADDRESS 

PLUS 20 PLUS 

92 INTO 

WRKRG2 



• E2 
EXTRACT THE NUMBER 
OF 2K BLOCKS ALLOCATED 
FROM THE PIB AND 
MULTIPLY BY 2048 
TO GET NUMBER OF 
BYTES ALLOCATED. 



• •••• 

• LY • 

• Bl» 



• G2 
EXTRACT THE ADDRESS 
OF THE PROGRAM ORIGIN 
FROM THE PIB. ADD 
NUMBER OF BYTES 
ALLOCATED TO THIS 
PROGRAM. 



TYPE 
EQUALS 



TYPE 

EQUALS 

128 



EXTENT 

TYPE 

1 



••»F 4* ••*•••••• 

T0P12 MA^ 

GET EXTENT • 

SEQUENCE * 

FIELD ♦ 



• •••• 
*LV • 

• B2^ 



SXTPOK 

•••••G 3** ••*••*•• 
•XT0PI2 MA* 

• GET EXTENT • 

• SEQUENCE • 

• FIELD • 



HI ♦. 

.• SPACE *. 
AVAILABLE *. YES 
WITHIN FG ...... 

. AREA .* 



• IS 

THIS FIRST 
•. EXTENT . 



.* ASCENDING 
. SEQUENCE 
». NUMBER . 



•YES 



• LV 



..X. • B4^ 

X • • 

•••*• • 
•LZ • OTSERR 
• Bl» 
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Chart LY. XTENT Statement Processor, Type and Sequence 
(Part 2 of 2) $$SATTNL; Refer to Supervisor, 
cnart 23 



INDSEQ .♦. 

Bl *. 
.•EXTENT ♦. 
.* TYPE *. YES 
♦.GREATER THAN .*.... 
♦ . 2 .• 



GET EXTENT 

SEQUENCE 

NUMBER 



» SEQUENCE ♦ 

NO. GREATER 

». THAN .♦ 

♦ . 1 .» 



FIRST 

EXTENT 

#GA 



SET UP FOR 

SEQUENCE 

NUMBER 

CHECK 



.• SEQUENCE *. NO 
. NUMBER IN .«.., 
♦.ASCENDING.* 
♦. ORDER. ♦ 



GET EXTENT 
SEQUENCE 
NUMBER 



YES .♦ SEQUENCE ♦. 
..,.♦. NO. GREATER .♦ 
♦. THAN I .♦ 
♦. ♦G4 .♦ 



♦••• 
« • 
» 2 ♦ 



♦ G4 
THE FIRST EXTENT MUST BE A 
TYPE 4. AT THIS TIME, A 
SEQUENCE NUMBER GREATER 
THAN 1 IS OUT OF SEQUENCE. 
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Chart LZ. XTENT Limit Processing $$BATTNL; Refer to 
Supervisor, Chart 23 



♦LX-F4,J3 
LY-Hl 



* * 



♦ 2 ♦ 

* • 



XT0P3 X 

*XT0P34 HA* 
*- •- ♦- *-*-*. ♦- ♦- « 

* GET LOWER ♦ 

* LIMIT OF ♦ 

* EXTENT ♦ 



4i****Cl ********** 

* PUT Bl, CELL * 
*NO.f FIELD INTO* 

* LOCATION XTBl * 

* OF THE LABEL * 

* AREA. • 



* ADD 4 TO THE * 

* LABEL AREA * 

* POINTERt ♦ 

* P0INT4 * 

* #02 * 



^^^^^El********** 
*XT0P34 MA* 
»-*-♦-*-*-♦-*-♦-* 

* GET UPPER * 

* LIMIT OF * 

* EXTENT ♦ 
4>****4i*4>******«*« 



* * 

* RESET LABEL * 

* AREA POINTER * 

* P0INT4 * 

* ♦02 ♦ 



.*. 
B4 *. 

.* LOWER *. 
.* HEAD ♦. YES 
.X*. GREATER THAN .*.... 
*. UPPER .* 
*.HEAO .* 

*. .* X 

*N0 ***** 

•LV * 

* B2* 

* * 



•••**B5********** 
*SCANR3 KO* 
*-•-*-*-*-*-*-•-* 

♦ GET B2 * 

* FIELD » 



• ******«i 



*•**••** 



*D2 
THE BASE REGISTER* 
P01NT4t IS 
INCREMENTED BY A 
FACTOR OF FOUR WHEN 
THE UPPER LIMIT 
EXTENT FIELD OF THE 
LABEL AREA DSECT 
ARE BEING PROCESSED. 
WHEN THE OPERATION 
IS COMPLETE* P0INT4 
IS RESTORED TO ITS 
ORIGINAL VALUE. 



XT0P5 X 

♦SCANR3 KD* 
♦-*-*-*-*-*-♦-♦-* 
« GET SERIAL * 

* NUMBER * 

* FIELD * 



.* 6 CHAR *. 

• ENCLOSED IN . 

*APOSTROPHES* 



♦SAVE THE SERIAL* 

* NUMBER IN * 
*LOCATION XTSERL* 

* OF LABEL * 

* AREA * 
***************** 



* CALCULATE * 
» NtW VALUES * 

* FOR POINTERS * 
» USED IN SCAN * 

* * 



C5 ♦. 

NO .**DEHMITEr'*. 
...♦. A .* 
*. BLANK .* 
*. .* 

*. ■* 
*YES 



***4'E4********* 

* NVSERR * 

* CHART KC * 

* * 
*************** 



4i:»4>**E5********** 

*NUMCON LE* 
*-*-*-*-»-*-*-*-♦ 

* CONVERT B2 * 

* TO BINARY * 

* * 



* STORE B2 * 

* IH LOCATION * 

* XTB2 OF * 

* LABEL AREA * 

* * 



* PUT B2, CELL * 
*N0.. FIELD INTO* 

* LOCATION XTB2 ♦ 

* OF THE LABEL * 

* AREA. * 



*SCANR3 KD* 

*-*-*-*-*-*-*-*-* 

* GET SYSXXX * 

* FIELD ♦ 

* * 
***************** 



X 

***** 
*MB * 
♦ Bl* 



HI *. 
.* CELL *. 

NUMBERS 

ARE 

. EQUAL . 

». .* 

♦ . .* 
*YES 



Jl *. 
.* UPPER *. 
.* EXTENT *. YES 
EXCEEDS .*... 
*. MXCCHH .* 



Kl *. 

.* LOWER *. 

.* LIMIT * 

.GREATER THAN 

*. UPPER .* 

*. LIMIT.* 



* DELIMITER * 

IS AN EQUAL 
*. SIGN .* 



***4i*J34i«*««***** 
*CNUNCO LS* 
*-*-*-*-*-♦-*-*-* 
*CONVERT SYSXXX * 

* TO CLASS * 

* AND ORDER * 



****J4*«******* 

* NVSERR * 

* CHART KC * 

* * 



♦NO 



***** 
*LV * 
* B2* NLSERR 



* 


ANY *. 




yes 




MORE 


* 




* 


OPERANDS .« 








*. .* 








*. .* 




X 




*N0 




**** 

* 




.XTOUT 




♦ 2 




X 




* 




***** 




**** 




*MB * 








♦ Bl* 








* * 
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Chart MA, XTENT Processor Subroutines $$BATTNL; Refer to 
Supervisor, Chart 23 



♦ XT0P12 ♦ 



****«B1 ********** 
«SCANR2 KO* 

♦ GET EXTENT ♦ 

♦ TYPE OR ♦ 

♦ SEQUENCE NO. * 



♦ ♦ 

♦ XT0P34 ♦ 

♦ *A5 ♦ 



*SCANR3 KO* 
♦-♦-♦-♦-♦-♦-♦-♦-» 

* GET THE ♦ 

* EXTENT ♦ 

* LIMITS * 



4i***4iA4********** 

♦ SET SCAN ♦ 

♦ POINTERS. ♦ 

♦ POINTl AND ♦ 

♦ P0INT2 TO THE ♦ 

♦ NEXT FIELD ♦ 



♦NUMCON LE* 
♦-♦-•-♦-*-♦-♦-♦-♦ 

♦ CONVERT C2 * 

♦ TO BINARY ♦ 

♦ #62 ♦ 



♦A5 
THIS SUBROUTINE AS 
ILLUSTRATED GETS THE 
LOWER LIMIT INFORMATION 
FROM THE EXTENT. 
HOWEVER* IT IS ALSO 
USED TO GET UPPER LIKIT 
INFORMATION. THE 
CORRECT LABEL OF THE 
LABEL AREA DSECT IS 
ADDRESSED FOR UPPER 
LIMIT VALUES BECAUSE 
OF A BASE REGISTER 
ADJUSTMENT IN THE 
CALLING ROUTINE. 
EXTENT INFORMATION 
IS IN THE FORM Bl- 
CELL NUMBER ClCl- 
CYLINDER I 
C2C2C2-CYLINUER 2 
Hl-HEADl 
H2H2-HEAD2 



.♦ DELIMITER ♦, NO 
*. IS A .*... 
*. COMMA .* 



Dl *. 
.♦OPERAND*. 
.♦ LENGTH ♦. NO 
*. GREATER THAN .*... 
♦ . .♦ 



El ». 

.♦OPERAND*. 
.* LENGTH ♦. YES 
♦.GREATER THAN .*.... 
*. 3 .* 
♦ . .* 
♦ . •♦ 
*NC 



*****F1 ********** 
*NUMCON LE* 
*-♦-♦-♦-♦-♦-♦-♦-♦ 

* CONVERT * 

* OPERAND TO * 

* BINARY *G2 * 
***************** 



NO .* DELIMITER *. 
...*. IS A ,* 
*. COMMA .* 



NO .* LENGTH *. 
...*. EQUAL .* 
*. 9 .* 



» CONVERT ♦ 

* OPERAND TO * 

♦ BINARY *G2 ♦ 



****F2********* 

* NVSERR * 

* CHART KC ♦ 

* * 



C4 ♦. 

.* C2 ♦. 
.* FIELD ♦ 

.GREATER THAN 
*. 199 .«• 



* B2* 

* * 

* 

NLSERk 



*****D4********** 

* PUT LOWER ♦ 
*LIMIT CYLINDER ♦ 
» TWO INTO LOC ♦ 

* XTLLC2 OF * 

* LABEL AREA * 

4i*^*««i4i4>***4>*«4'»* 



* SET SCAN ♦ 

* POINTERS* * 

♦ POINTl AND * 
♦P0INT2 TO NEXT ♦ 

♦ OPERAND FIELD * 



Gl 



*G2 
THIS SUBROUTINE IS 
IDENTICAL TO THE 
ONE FOUND IN 
PRECEDING PHASE. 



.* SEQUENCE *. YES 
*. NO. GREATER .*.... 
*. THAN .* 
*. 255 .* 

*. .* X 

*NQ ***** 
*LV * 
* B2* 
• ♦ 
* 
NLSERR 
X 
*****H1********** 
*STORE SEQUENCE * 

* NUMBER IN LOC * 
» XTSEQN IN * 

* LABEL AREA * 

* * 
********«*«4i*«*** 



««**J1*******«* 

* RET TO AODR * 

* IN LNK REG * 

* • 



F3 *. 




***4c»pi:,4t4.«*4c«#«4,4c 


.* *. 




* CLEAR XTLLHl ♦ 


.* EXTENT ♦. YES 


* AND LOAD IT ♦ 


*. IS .♦, 




* WITH LOWER * 


*. ZERO .* 




* LIMIT HEAD * 


*. .* 




* ONE VALUE * 


*.. .* 


X 


***************** 


*N0 


***** 
*LV ♦ 

* B2* 

* ♦ 


': 


X 


NLSERR 


X 


**4i**G3********** 






* PUT THE CELL * 




* SET SCAN ♦ 


♦ NUMBER FIELD * 




* POINTERS, * 


* INTO LOCATION * 




♦ POINTl AND * 


* SVXTB ♦ 




*P0INT2 TO NEXT * 


* * 




* OPERAND FIELD * 









**«*4tH3********** 

* SET SCAN * 
*P0INTERS,P0INT1* 
*AND POINTS FOR * 

* THE NEXT * 

* OPERAND FIELD * 
****4>******4i«*4i*« 



*****J3********** 
*NUMCON LE* 
*-*-*-*-*-♦-*-*-* 

* CONVERT CI * 

* TO BINARY * 

* *62 * 

*****«**********4i 



*****K3********** 
*PUT LOWER LIMIT* 

* CYLINDER ONE * 

* INTO LOCATION * 



*«***««****«*«**« 



*«4c*«H4********** 
*NUMCON LE* 
*-*-♦-•-*-*-*-»-* 

* CONVERT H2 * 

* TO BINARY * 

* *G2 * 



«4i***j^**«*4[«*4i«* 

* PUT LOWER * 

* LIMIT HEAD * 

* TWO VALUE * 

* INTO XTLLH2 * 

* OF LABEL AREA * 
**4'************** 



**«*K4********* 

* RET TO ADDR * 

* IN LNK REG * 

* * 
*************** 



**** 

* * 

* 1 • 

* * 
*•** 
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Chart MB. Terminal XTENT Statement Processing $$BATTNL; 
Refer to Supervisor, Chart 23 



.♦LZ-K3,F5 



• TYPE ♦. NO 
SEQUENTIAL .♦... 
♦. DISK .* 



X 

* 
♦ 2 



OUTLBL X 

♦LBLGUT LW» 
*-♦-♦-*-♦-♦-♦-♦-• 

♦ OUTPUT • 

♦ PREVIOUS ♦ 

♦ EXTENT ♦ 



* * 

• RESET DATA ♦ 

• LENGTH OTALGT ♦ 

♦ TO 84 ♦ 

♦ ♦B^ ♦ 



kLPLACE 

PREVIOUS 

EXTENT HITH 

NtW EXTENT 



»B4 
LENGTH USED 
IN WRITE CCW. 





*<•** 






* * 






♦ 2 * 






* * 






**** 






X 




XTUNIT 


• *• 

85 ♦. 

.* HAX * 




YES .♦ 


EXTENTS 


*. 


...*. 


.?5cJ?Si5 


.* 


. * 


* 




*• .* 




X 


*. .* 




***** 


*N0 




♦ LV ♦ 






* 61* 






* * 






* 






LAXERR 








* 


ADO 1 TO 




* 


THE EXTENT 




* 


COUNT IN 




* 


THE LABEL 




* 


SAVE AREA 







.X.X. 



*****Q I ********** 

♦ SET UP P0INT4 ♦ 

♦ SO THAT IT ♦ 

♦ CONTAINS THE * 
♦ADDRESS OF THE ♦ 
♦PREVIOUS EXTENT* 
*0^lrt* *********** 



**** 

* * 

* 3 * 

* * 
**** 



.* BIN *. 

NUMBERS 
ARE ECUAL 

**. *F2 .♦* 
♦ . .* 

*YES 



HI *. 
.* VOL ♦. 

* SERIAL * 

NUMBERS ARE 

♦, ECUAL .♦ 

*. *F2 .* 



♦ NO 



NO 


DCUX X 






*****jl******* 


♦ J2 




♦ SET NO ♦ 


SEE LABEL LIST 




♦ EXTENT * 


ENTRY FOR MTRSVD 




♦ DEQUEUE SW. * 






* MTRSVD ♦ 






♦ EQ X«10' ♦ 











NEWXTN X 

***«*03* ********* 

* SET POINTER ♦ 

• POINTS, TO ♦ 

* AuORESS OF * 

♦ NEXT EXTENT ♦ 

♦ IN LABEL AREA * 
•*»«****»»******* 



*****El******* 






* * 




* :>AV NEW ♦ 


* RESET * 




* ADDR SS OF ♦ 


♦ MTRSVD ♦ 




• THE XTENT • 


♦ TO ZERO ♦ 




♦ AREA N LOO. ♦ 


* *J2 * 




♦ LbLPTK ♦ 








I 


♦ F2 


1 




THE SUBFIELD 




X 


MITHIN THE OSEOT 




.♦. 


FOR THIS EXTENT 


X 


Fl *. 


FIELD IS COMPARED 


^****P2********** 


.♦ ♦. 


TO THE IDEMTICAL 


* ADO 2Q TO ♦ 


.♦ SYMBOLIC ♦. 


SUBFIELD OF THE 


♦ THE DATA ♦ 


*. UNITS ARE .♦ 


PREVIOUS EXTENT FIELD. 


♦ LENGTH IN ♦ 


♦. EQUAL .♦ 




♦ LLC DTALGT ♦ 


♦, ♦F2 .♦ 






♦• •♦ 







*****(^i******* 

* SET SWITCH * 

* IN FLGBYO * 

* TO INDICATE 

* EXTENT * 

* ♦'ROCESSED ♦ 



****«H3*^^^*«* 

♦ SET BLOCK * 

♦ PRESENT 

♦ INOIOAIOR IN 

♦ FLGBYO 

♦ * 
****t********* 



****j2********* 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ * 
*************** 



***t(,l******* 
SET SWITCH * 

MTRSVD 
WITH X'80' 



************** 
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Chart MC. EXEC Statement Processor $$BATTNM; Refer to 
Supervisor, Chart 23 



•**A1***«***»« 
$$BATTM • 



•*«*A2*«***« 
♦ EXEC 



GET THE FIRST 

OPERAND, 
PROGRAM NAME 



Dl ». 

.•OPERAND*. 
-• LENGTH • 
.GREATER THAN 



El •. 
.♦OPERAND*. 
.» LENGTH 
. LESS THAN 
• . 9 



•««F1*»*»*«« 

CLEAR SAVE 

AREA 

TMPARl 

TO BLANKS 



B3 ♦. 

.•PROGRAM*. 

NAME IN 

DIRECTORY 

•J2 



• EXEC •. 

STATEMENT . 

•IN SEQUENCE^ 



• C5 
1C30A PROGRAM 
NOT FOUND 
MESSAGE. 



•*C4«*^*** 

ERRRTN 

CHART KC 

• *C5 



X 


OTSERR 


.». 




D3 ♦. 








LABEL •. 


NO 


BLOCK IN 


• . . . . 


CORE .* 




». -£5 .• 




*. .* 


X 


•YES 


«»««« 




• HE * 






X 


• * 


»»»♦» 




*MD « 


NOLBPR 


• BI^ 





♦E5 
THE LAST SEGMENT OF 
LABEL INFORMATION 
HAS, NOT BEEN 
TRANSFERRED TO THE 
LABEL CYLINDER OF 
SYSRES IF THIS 
BIT SWITCH OF 
FLGBYO EQUALS ZERO. 



»»F2*»^««* 

ERRRTN 

CHART KC 



♦«»»G1« 

PUT PROGRAM 

NAME INTO 

SAVE AREA 

JUST CLEARED 



• SET AN ODD 

• VALUE IN 

• SAVE AREA 

• FWRKFL 



«»«««J1»*»**««»«* 
•PUT THE ADDR OF* 

• PROGRAM NAME * 
•INTO REG 1- SET* 

• REG WITH ♦ 
•ADDR OF FWRKFL • 



• J2 
THE AREA ADDRESS 
REGISTER IS SE 
IF A PROGRAM NAMl 
PROGRAM NAME SPE 
1 IS FOUND DURINi 
LIBRARY DIRECTOR 
THE SVC 23, THE 
REGISTfcR CONTA 
ADDRESS BOUNDARY 
(AN EVEN VALUE) 



ED BY 

T WITH AN ODD VALUE. 
E ^«ATCHING THE 
CIFIED IN REGISTER 
G THE CORE IMAGE 
Y SEARCH, PART OF 
AREA ADDRESSED BY 
INS THE LOAD 
ALIGNED. 



••••Kl^^^^^»^^^ 

SVC 23 

GET LOAD ADDR 

FOR PROGRAM 

SPECIFIED 

•J2 
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Chart MD. Output Last Block of Label Information $$B^TTNM; 
Refer to Supervisor, Chart 23 



• * 

* I ♦ 



♦MC * 
♦ 03* 



BL *. 
•• FILE *. 

NO .♦ TYPE IS *. 
>••». SEQUENTIAL .* 
♦. DISK ,* 



SET A ♦ 
HEX •40' 
IN THE LAST 
SO ENTRY 

* 
************* 



.♦. 

Dl ♦. 
.♦ HAX ♦. 

YES .♦ LENGTH ♦ 
...*. GREATER THAN 
O.OATA LNG .* 
*. *C2 .♦ 

*« .♦ 
♦ NC 



*****EL********** 

* RESET ♦ 

* HAXIMUH • 

* LENGTH WITH ♦ 

* DATA LENGTH * 

* * 
***************** 



ACD KEY * 

LENGTH TO * 

DATA LENGTH * 

IN WRKRGl ♦ 

* 
**************** 



*****G1 ********** 

* SET UP WRITE * 

* AND VERIFY * 

* CCWS WITH * 

* LENGTH * 

* INFQRflATION * 
***************** 



*****H1 ********** 

* CALCULATE * 

* SPACE NEEDED * 

* CN THE * 

* TRACK * 

* * 



4 ****j I «**«**««** 

* * 

* GET REMAINING * 

* TRACK * 

* CAPACITY * 

* * 
***************** 



*C2 

THE REMAINING SCCTIGN 
CF This ROUTINE IS 
IDENTICAL TG THE 
LBLOUT SUBRUbTlME 
CHAKT LWt 

FOUND IN PRECEDING 
PHASES. LOUK AT 
THAT CHART FOR 
AOUITICNAL iNFQRHAriCN. 



* 2 * 

* * 



****A3*********' 

UPDATE 

TRACK 

NUMBER 

1***************1 



****B3*********' 



RESET 
RbCORD 
NbHBER 



***C3********* 
CALCULATE 
LAST TRACK 

NUMBER 

*4i*******«****4i: 



♦* EXTENTS 
EXCEEDED 



***** 
*LV ♦ 
* BI* 



•***»E3********** 

* RESET TRACK * 

* CAPACITY AND * 

* CALCULATE ♦ 

* REMAINING * 

* CAPACITY • 



SAVE 
.tEMAINISG 
CAPACITY 

:*4l*******4r4i4l*4>* 



****G3********** 

UPDATE ♦ 

WRITE * 

RECURD * 

NUMBER * 



*«4i*H3********** 
SET UP * 
WRITE * 
-SYSkES- ♦ 
CCB * 
* 



*»*m********* 



Kl ♦. 
.* *. 
•* SPACE *. NO 
. AVAILABLE .*... 
♦ • .* 



* * 

* 

NOLBPR 



*. .* 

*YES 

X 
**** 

* * 

* 2 ♦ 

* * 
**** 



* I * 

* * 
**** 
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Chart ME. Move Last Block Routine $$BATTNM; Refer to 
Supervisor, Chart 23 



♦MC-D3 
H0-J3 



NOLBPR X 

• MOVE THE • 

• PRGGRAH NAME * 
♦INTO THE FIRST ♦ 

• 8 BYTES OF • 

• FG AREA * 
***************** 



*****ti3********** 
♦PUT ADDRESS OF * 

♦ LABEL * 

♦ INFORMATION * 

♦ INTO WRKRG4 ♦ 

♦ » 
***************** 



*****Ci********** 

♦ MOVE THE * 
♦STORAGE PROTECT^ 

♦ KEY INTO THE ♦ 

♦ PSW SAVE ♦ 

♦ AREA ♦ 
***************** 



*****Q'i********** 

♦ PUT THE ♦ 

♦ LENGTH OF ♦ 
♦THE LABEL AREA ♦ 

♦ INTO WRKRG2 ♦ 

♦ * 
***************** 



*****Ql********** 

♦ SET THE ♦ 

♦ REGISTER SAVE ♦ 

♦ AREA TO ♦ 

♦ ZERO ♦ 

♦ * 
***************** 



*****Q'i********** 

♦ PUT THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE LABEL ♦ 

♦ STORAGE AREA ♦ 

♦ IN P01NT2 ♦ 
***************** 



*****£l********** 

♦ PUT THE ADDR ♦ 
♦OF THE CORRECT ♦ 

♦ FG PIB INTO ♦ 

♦ WRKRGl ♦ 

♦ * 
***************** 



*****fl******* 

♦ SET PIB ♦ 

♦ ASSIGN FLAG ♦ 

♦ TO INHIBIT ♦ 

♦ SYSRES ♦ 

♦ WRITE ♦ 
************** 



*****Ql********** 

♦ CALCULATE ♦ 

♦ THE AMOUNT ♦ 
♦OF MAIN STORAGE^ 

♦ ALLOCATED ♦ 

♦ *G2 ♦ 
***************** 



♦ F2 
PROVIDES SPACE FOR 
FLOATING POINT REGISTERS 
IN FG SAVE AREA. 



♦G2 
MAIN STORAGE ALLOCATED 
EQUALS THE NUMBER OF 2K 
BLOCKS SPECIFIED IN THE 
PIB MULTIPLIED BY 2048 
TO CONVERT BLOCKS TO BYTES 



*****f3********** 

♦ ADO 32 TO ♦ 

♦ LABEL STORAGE ♦ 

♦ AREA ADDRESS ♦ 

♦ ♦F2 ♦ 

♦ « 
***************** 



LOAD ADDRESS EQUALS ADDRESS OF THE LABEL STORAGE 
AREA PLUS THE LENGTH OF THE LABEL AREA. 



*****Ql********** 

♦ CALCULATE ♦ 

♦ LOAD ADDRESS ♦ 

♦ FOR SELF- ♦ 

♦ RELOCATING ♦ 
♦PROGRAM ♦GA^ 
***************** 



*«***H !♦♦♦♦♦♦♦♦♦♦ 
♦ CALCULATE ♦ 
THE HIGH 



ADDRESS IN 

RG2SV0 



***************** 



H3 



FG 



.♦ . - 
.♦ IS A SELF ♦. NO 
♦. RELOCATING 
♦. PROGRAM . 
♦ . .♦ 
♦ . .♦ 
♦YES 

Ix.... 



*****Ji********** 

♦ PUT THE AQDR ♦ 

♦ OF THE LABEL ♦ 



**m**\i^*********i 

♦ SET LOAD 
ADDRESS IN 
REGISTER 

• ♦J* 
* 
****************^ 



.X* 



l?il 



IS AN INITIALIZATION 



•*«*K1^^^^^^^^^ 



*************** 



****\Hii******* 



ROUTINES 
*K4 ♦ 
************* 



THE LAST TWO ROUTINES ARE 
MOVED OUT OFTHE FORE- 
GROUND AREA TO PROVIDE 
SPACE FOR THE FOREGROUND 
PROGRAM TO BE EXECUTED. 
THE LAST TWO ROUTtNES OF 
S$BATTNM ARE MOVED INTO 
THE LOGICAL TRANSIENT AREA. 



X 
•MF ♦ 
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Chart MF. Move Subroutine and INITIALIZE FOR FG Program 

Load Routine $$BATTNM; Refer to Supervisor, Chart 
23 



MVCLRT X 

•MOVRTN MF 

♦ MOVE ZEROS 
♦INTO THE LABEL 

♦ STORAGE AREA 



»««*B5*****«*** 

PUT THE VALUE 

255 INTO 

WRKRG3 

FOR EXECUTE 

INSTRUCTION 



♦»»»*C1»*» 

♦ SET UP • 

• REGISTERS FOR * 

* MAIN STORAGE • 
•CLEAR OPERATION* 



SUBTRACT 

256 FROM 

LENGTH 



CLEAR 

REMAINING 

MAIN STORAGE 



««*«E1******«*** 

LOAD REGISTER • 

i WITH THE • 

VALUE IN THE ♦ 

BASE REGISTER » 

♦ 02 ♦ 



• SAVE REGISTER * 

♦ AND 1 ♦ 

• VALUES IN THE » 

♦ REGISTER SAVE ♦ 
♦AREA ♦FZ* 



• D2 
REGISTER ONE CONTAINS 
THE ADDRESS OF THE NAME 
OF THE FOREGROUND PRO- 
GRAM TO BE LOADED. 
REGISTER CONTAINS THE 
LOAD ADDRESS AS DETER- 
MINED BY THE LINKAGE 
EDITOR PROGRAM OR AS 
ESTABLISHED FOR A 
SELF-RELOCATING PROGRAM. 
BOTH REGISTER VALUES ARE 
STORED IN THE FG PROGRAM 
SAVE AREA. 



♦ D3 
REMAINING LENGTH IS 
CALCULATED BY ADDRESSING 
THE CONTENTS OF WRKRG3, 
255, TO THE NEGATIVE 
VALUE IN WRKRG2. 



GET 

REMAINING 

LENGTH 

♦ D3 



♦F2 CAUTION 
THE REGISTER SAVE AREA 
CAN BE CONSIDERED AS 
BEING IN TWO PARTS. 
PART 1 CONTAINS REGS 9-0. 
PART 2 CONTAINS REGS 1-8. 
THE SAVE OPERATION PUTS 
REG- VALUES IN THE CORRECT 
SAVE AREA. 



*«*F4«»«**«* 

MOVE ZEROS 

INTO THE 

REMAINING 

BYTES 



**««*G1 •♦♦•♦♦♦ 


••* 


• STORE THE 




• ADDRESS OF 




* THE SVC 4 




♦ IN THE PSW 




♦ •H2 


• ♦♦ 




POSSIBLE 
PARTIAL 
. BLOCK 



MOVE 

ZEROS INTO 

256 BYTES 



•♦•»«F5***^****^* 
» ADD 256 ♦ 

♦ TO ADDRESSES ♦ 

♦ IN POINT! ♦ 
•AND P0INT2 ♦GS* 



••«*H1« «*•••••• 

• SVC II « 
•RELEASE CONTROL* 



••G4^***« 
RET TO ADDR 
IN LNK REG 



THE PSW IN THE FG SAVE AREA IS ASSEMBLED WITH THE SYSTEM MASK, KEY, 
AMWP. AND INTERRUPTION CODE FIELDS CONTAINING VALUES. THIS LOGICAL 
TRANSIENT PUTS THE ADDRESS OF A SVC A INTO THE INSTRUCTION ADDRESS 
FIELD. WHEN A SVC II IS ISSUED THE LOGICAL TRANSIENT RELEASES ALL 
CONTROL. THE FOREGROUND PIB IS ATTACHED. INDICATING AVAILABILITY 
FOR TASK SELECTION. WHEN A FOREGROUND TASK IS SELECTED, THE PSW 
IN THE FOREGROUND SAVE AREA BECOMES THE CURRENT PSW. THE SEQUENCE 
OF EVENTS THAT FOLLOWS IS 

1. EXECUTE THE SVC 4 TO LOAD THE FOREGROUND PROGRAM, NAMED IN 
REGISTER 1, INTO THE FOREGROUND AREA, STARTING AT THE ADDRESS 
SPECIFIED IN REGISTER 0. 

2. EXECUTE A BRANCH TO THE FOREGROUND ENTRY ADDRESS AS SUPPLIED 
IN REGISTER ONE BY THE SVC 4. 

3. EXECUTE THE FOREGROUND PROGRAM. 



POINTl CONTAINS THE MOVE 
FROM ADDRESS. P0INT2 
CONTAINS THE MOVE TO 
ADDRESS. 
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Chart MG. UCS Statement Processor $$BATTNM; Refer to 
Supervisor r Chart 23 



* IS 
ASSIGNMENT 

♦ . IGN 



INITL 

»»«»»B1«*»»»*«»* 
•RELOCATE CCW'S 
♦AND SET-NOPSW- 
• TO NOP 



POINT TO 1ST 

OPERAND 

-SYSXXX- 



COMMA 
END THE .* 
♦-SCAN .♦ 



VALID 

DEVICE 

TYPE 

♦. ♦OB . 



••♦♦«C2^^^^^^^ 

♦ MOVE CLASS 
» AND ORDER 

♦ TO CCB 

♦ -WRKCCB- 



•♦»»F1^^^^^^^^ 

LOAD LUB 

POINTER FOR 

FIRST SYSTEM 

UNIT IN 

WRKRGl 



01 ♦. 

♦ UNIT ♦ 

CLASS 

EQUAL 

♦K3 



♦•♦♦«H1^^^^^^^^^^ 

♦ LOAD LUB ♦ 
♦POINTER FOR IST^ 

♦ BG PROG UNIT ♦ 

♦ IN WRKRGl ♦ 



POINT TO 2ND 

OPERAND 
-PHASE NAME- 



E2 ♦. 
.♦ DID ♦ 

A BLANK 
OR COMMA 

END 
♦ .SCAN .♦ 



♦YES 



OPERAND ♦ 
-9 CHAR IN 
LENGTH .♦ 



♦SET PHASE NAME ♦ 
♦ SAVE AREA AND ♦ 
» BUFFER TO ♦ 
♦BLANKS SAVE PHS^ 
♦NAME IN LODNAM ♦ 



♦♦♦«H2^^^^^^^^^^ 

SET 3RD BYTE ♦ 

OF BUFFER ♦ 

LODNAM+10 TO ♦ 

HEX FF. ♦ 



UCSl 

♦♦♦♦♦Jl^^^^««^«^« 

♦ COMPUTE LUB ♦ 

♦ TABLE ♦ 

♦ DISPLACEMENT ♦ 
♦TO DESIRED UNIT^ 

♦ WITHIN CLASS. ♦ 



♦GET LUB AND PUB^ 

♦ ADDRESSES AND ♦ 

♦ CHK ASSGN ♦ 



♦♦♦♦J2^^^^^^^^^ 
SVC 23 - LOAD 
THE UCS PHASE 
HEADER INTO 

BUFFER. 
-LODNAM+8- 



X 

♦ •«»« 

♦ LG ♦ 

♦ B5^ 

♦ ♦ 

NDTERR 



♦AA 
L0DCCW2-SET TO NONFOLD OPCODE 

-HEX FB-. 
L0DCCW2+4-SET CHAIN FLAG TO 
CHAIN WRITE CCW 
-HEX 60-. 
L0DCCW3-SET ALLOW DATA 
CHAIN OPCODE 
-HEX 78- 



♦•♦•B4^ ♦♦♦♦♦♦♦ 

SVC4 

LOAD THE UCS 

PHASE FROM 

♦ CI LIB 

♦ F3 



♦♦*♦•♦*♦ 



DID BLANK 
END LAST 
. SCAN 



EXECUTE I/O 
•AS SPECIFIED 
IN WRKCCB 



♦«♦♦♦♦♦ 



♦ POINT TO ♦ 

♦ NEXT OPERAND • 

♦ *E3 • 
- f««r«^ 



DEVICE MUST BE A 1403 
WITH UCS FEATURES. 
-DEVICE TYPE CODE HEX 42- 



♦♦♦♦E4^ 

♦ NVSERR 

♦ CHART KC 



LENGTH 

EQUALS 

.6 CHARS. 



♦ LENGTH 

EQUALS 

♦.5 CHARS. 



D5 ♦- 
.♦ DID ♦ 

BLANK 
OR COMMA 

END 
♦.SCAN .♦ 
♦ . .♦ 
♦YES 



NO .♦ LENGTH 

...♦. EQUALS 

*.4 CHARS. 



* TO FOLD. 
I-OPCODE EQUAL 

• HEX F3- • 



X 

♦♦•♦H4^^^«^^^ 

MODIFY ♦ 

L0DCCW3 TO 

INHIBIT DATA 

CHECKS. 

-HEX 73- ♦ 



•♦♦♦«J3^«^«*^» 

♦ MODIFY ♦ 

♦ L0DCCW2 • 

♦ SET CHAIN BIT ♦ 
♦OFF TO PROHIBIT 

♦ WRITE. ♦ 



X 
♦ 1 ♦ 



X 

♦ ♦♦♦* 
♦MC ♦ 

♦ C4^PNPERR 



THE SUBROUTINE CNUNCO RETURNS 
THE UNIT CLASS IN THE LOCATION 
UNCLOR, BYTE 0. 

EQUALS SYSTEM 

1 EQUALS BG 

2 EQUALS FGl 

3 EQUALS FG2 

UNCLOR, BYTE 1, CONTAINS 

THE UNIT ORDER -PUB POINTER-. 



.X. 
X 

♦ ♦♦♦ 
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Chart MH. TljyiER Statement Processor $$BATTNN; Refer to 
Supervisor y Chart 25 



* $$BATTNN * 


****t^2* ******** 
* TIMER 


X 

» PUT THE ADDR 
•OF THE INTERVA 

• TIMER OPTION 

• TABLE INTO 

• WRKRG4 


. NO , 


^B2 
1C60D TIMER NOT 
AVAILABLE MESSAGE 

*»♦» 
» 3 » 


X 

. ». 

CI «. 

.»*INTERVAL*'» 
•. TIMER 

♦.SUPPORTED.* 


TNAERR X 

»»»««C2*»*«»**»» 
♦ERRTN KC 

» SEND ERROR 
• MESSAGE 



»»B4*«««»*» 

NVSERR 

CHART KC 



*»*C3««**»«» 

DOES * 

PROGRAM 

CONTROL THE 

TIMER 



»»«»»B5«»»*»»«**« 
« SET REGISTER • 
•ZERO TO DISABLE* 

* INTERRUPTS ON • 

SEIZE 

* OPERATION » 



SVC 2Z 

SEIZE THE 

SYSTEM 



SET OPERAND 

OF TIMER 
STATEMENTS 



**02****** 

CONTROL 

CHART KB 



'»*««*05*'i*"**'****tt'*' 

* SAVE THE KEY 
♦OF THE PROGRAM 

* THAT HAD IT 

* SUPPORT IN 

* WRKRG3 



»«»«E2^^**^^ 
NVSERR 
CHART KC 



PUT BG 

KEY INTO 

P0INT4 



PUT Fl 

KEY INTO 

P0INT4 



PUT CURRENT 
KEY VALUE 
IN PGINTI 



* ATTENTION 
ROUTINE IN 
♦. CONTROL . 



♦♦♦*G3*^^^^^^^^ 

PUT THE 

DISPLACEMENT 

VALUE FOR THE 

ATTENTION PIB 

IN PCINTI 



PUT F2 

KEY INTO 

P0INT4 



ZERO REGISTER 

AND SET 

THE MAXIMUM 

TIME INTERVAL 

IN REGISTER 1 



SVC 10 
SET TIMER 
INTERVAL 



♦*«»H4^^^**^^^ 

PUT KEY OF 

PROGRAM 

SPECIFIED BY 

THE OPERAND 

INTO POINTl 



^ TIMLNK * 

r*"GTvE*fl*M^R*"J 
^ CONTROL TO « 
' SPECIFIED PROG* 



«*K4*^**»^** 
CONTROL 
CHART KB 



♦ PUT THE KEY 
♦OF THE PROGRAM 

♦ THAT NOW HAS 

♦ IT SUPPORT 

♦ INTO ITKEY 



♦CALC. ADDR. OF 

♦ THE NEW 
♦INTERVAL TIMER 

♦ (IT) OPTION 

♦ TABLE 



»*««»G5^*^^^^*+^ 

♦ STORE IT IN 

♦ THE 
♦COMMUNICATIONS 

♦ REGION 



♦ SET REGISTER 
♦ZERO TO ENABLE 

♦ INTERRUPTS 

♦ ON RELEASE 



SVC 22 
RELEASE 

THE 
SYSTEM 



RET TO ADDR 
IN LNK REG 
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Chart MJ. UNA Statement Processor $$BATTNI; Refer to 
Supervisor^ Chart 22 



♦ » 

♦ UNA ♦ 

♦ ♦ 



♦GETKEY ML» 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ GET KEY OF ♦ 

♦ FIRST OPERAND ♦ 

♦ IN P0INT2 ♦ 



♦CHKFUA HL* 

♦ CHECK AREA ♦ 

• TO BE ♦ 

♦ DETACHED ♦ 

• ********•****:»** 



♦UNARTN HL* 
♦-♦-♦-♦-*-.♦-*-♦-* 

* UNASSIGN ALL * 

* LOGICAL UNITS * 

* IN CLASS *BA ♦ 
***************** 



♦ B4 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPtCIFIED BY THE 
SECOND OPERAND OF THE UNA 
STATEMENT. 



SCAN 
DELIMITER 
. IS A 
♦.BLANK.* 



*****^l********** 

* SAVE THE * 

* KEY OF THE * 

* FIRST OPERAND * 

* IN POINTS * 
41 * 
***************** 



*****f:i********** 
♦GETKEY ML* 
♦-♦-*-♦-♦-♦-♦-•-♦ 

* GET KEY OF * 
♦SECOND OPERAND * 

♦ IN P0INT2 ♦ 
***************** 



SNGUNA 

**4>4i*E3^^*******^ 
♦UNARTN HL^ 
*-*-*~*-*~*~*-*-* 

♦ UNASSIGN ALL ♦ 

♦ LOGICAL UNITS ♦ 

♦ IN CLASS ♦E^ ♦ 
***************** 



****f.^********* 

♦ CONTROL ♦ 

♦ CHART KB ♦ 

♦ * 
*************** 



♦ EA 
THE UNITS UNASSIGNED ARE 
THOSE BELONGING TO THE 
AREA SPECIFIED BY THE 
FIRST OPERAND OF THE UNA 
STATEMENT. 



*****G1 ♦♦♦♦♦♦♦**♦ 
♦CHKFUA ML^ 
♦-♦-♦-*-♦-♦-♦-•-» 

♦ CHECK AREA ♦ 

♦ TO BE ♦ 

♦ DETACHED ♦ 
***************** 



HI 



♦ , 



SCAN ♦• NO 
DELIMITER .♦... 
. IS A .♦ 
♦. BLANK. ♦ 
♦ .• .♦ 
♦YES 



Jl *. 
.♦ ♦. 

.♦ KEYS *. YES 
.ARE IDFNTICAL.*.... 
♦ . .♦ 

♦. .♦ 

*• .* 

♦NO 



*«*«>K2********* 

♦ ERRRTN • 

♦ CHART KG ♦ 

♦ * 
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Chart MK, HOLD or RELSE Statement Processor $$BATTNI; Refer 
to Supervisor, Chart 22 



* * 

* HOLD ♦ 

* * 



* * 

* RELSE * 

* * 



.X. 



ASGCHG X 

♦GETKEY ML* 

» GET KEY OF ♦ 

♦ FIRST ♦ 

* OPERAND * 
***************** 



*****Ql********** 

♦ GET THE ♦ 

♦ APPROPRIATE * 

♦ PIB ADDREiS * 

♦ USING THE * 

♦ KEY ♦ 
***************** 



* I ♦ 

* * 
**** 



,* STATEMENT ♦. HOLD 

TYPE .♦ 

♦. *H3 .♦ 



****mC3******* 

♦ TURN OFF * 

♦ HOLD/RELEASE 

♦ SH IN PIB 

♦ ASSIGN 

♦ FLAG ♦ 
************** 



♦ TURN ON ♦ 

♦ HOLD/RELEASE 
X* SW IN PIB 

♦ ASSIGN 

♦ FLAG ♦ 
************** 



*****Q-i********** 

* RESET P0INT2 ♦ 

* WITH PIB ADDR ♦ 
» OF THE FIRST ♦ 
♦AREA SPECIFIED * 

* BY FIRST OPND ♦ 

*******iL********* 



*****^l********** 

* SAVE ADDRESS ♦ 

* OF THE PIB ♦ 

* IN P0INT4 * 

* * 

***************** 



*****fl********** 
♦GETKEY ML* 
♦-*-♦-♦-♦-♦-♦-♦-* 

♦ GET KEY OF * 

♦ SECOND ♦ 

♦ OPERAND ♦ 
***************** 



E3 ♦. 


*****^i^******* 


* *. 


* TURN ON 


♦. HOLD 


♦ HOLD/RELEASE 


STATEMENT .♦ 


..X* SW IN PIB 


TYPE .♦ 


* ASSIGN 


♦. *H3 .* 


* FLAG 


♦ . .* 





*****fi******* 

♦ TURN OFF * 

♦ HOLD/RELEASE 

♦ SW IN PIB 

♦ ASSIGN 

♦ FLAG * 
************** 



*****Ql********** 

♦ GET THE ♦ 

♦ APPROPRIATE ♦ 

♦ PIB ADDRESS ♦ 

♦ USING THE ♦ 

♦ KEY ♦ 
***************** 



****i^2********* 

♦ CONTROL * 

♦ CHART KB ♦ 

♦ * 
**************** 



NO .* SCAN 
...*. DELIMITED 
*. BY A 

♦.BLANK.* 



**** 

* * 

* 1 ♦ 

* * 
**** 



*H3 
THIS IS A LOGICAL DECI- 
SION RATHER THAN A CODED 
DECISION. THIS ROUTINE 
USES A BAL INSTRUCTION TO 
ACCESS THE CODING START- 
ING AT LABEL ASGCHG. WHEN 
THE HOLD/RELEASE SWITCH 
SETTING IS CHANGEDt IT IS 
ACCOMPLISHED BY EXECUTING 
THE INSTRUCTION WHOSE 
ADDRESS IS IN THE LINK 
REGISTER. THEREFORE* THE 
ENTRY POINT TO THE HOLD 
PROCESSOR (BAL TO ASGCHG) 
IS FOLLOWED BY AN IN- 
STRUCTION TO TURN ON THE 
HOLD/RELEASE SWITCH. THE 
SWITCH SETTING INSTRUCTION 
ADDRESS IS NOW IN THE LINK 
REGISTER. THE SAME TECH- 
NIQUE IS USED BY THE 
RELEASE PROCESSOR. 



♦♦♦♦Kl********* 
» ERRRTN ♦ 

♦ CHART KB ♦ 

* * 
*************** 
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Chart ML. UNA, HOLD, RELSE Processor SuJDroutines $$BATTNI; 
Refer to Supervisor, Chart 22 



CHKFUA 



•A3»»»** 
GETKEY 



Bl ♦. 
.* KEY ♦. 

OF OPND 
EQ KEY OF 
.THIS PROG. 



»«»*C1»*« •#•«*• 

CALC PIB 

ADDRESS - 

STARTING ADDR 

OF PIB TABLE 

PLUS KEY 



«««««B3********** 
♦SCANR2 KD» 

♦ GET THE » 

♦ STATEMENT » 

♦ OPERAND ♦ 



.» PIB ♦ 


. 


^U 


^. DETACHED 






». X 'BO' .* 












». .♦ 




X 


*YES 




• LG » 








* F3« 








• » 


X 






UCUERR 


X 






••««E1***»***»» 




RET TO ADDR 


• 




IN LNK REG 


• 





C3 *. 

.♦ SCAN ». 
• DELIMITER * 

IS AN EQUAL 
«. SIGN .♦ 



OPERAND 

LENGTH EQ 

. 2 CHARS . 



PUT Fl KEY 

INTO 

P0INT2 



PUT F2 KEY 

INTO 
P0INT2 



•«A5*«»*« 

UNARTN 



***B5 ******** 
ZERO WRKRGl 

AND STORE 

THE PROGRAM 

KEY IN LOG 

UNKEY 



.UNALOP X 

«««**C5******** 

* STORE WRKRGl 

* IN UNALUN 
« AND PUT KEY 

* INTO WRKRG2 



•«E5****** 

PUT THE 

AREA KEY 

INTO 

WRKRGl 



UNASSIGN 

LOGICAL 

UNITS 



«»«*«G5******** 

* ADD ONE 

* TO THE 

* LOGICAL UNIT 

* NUMBER IN 

* WRKRGl 



H5 *. 

NO .*' END 
...♦. OF 

*. CLASS 



♦•J4****** 

ERRRTN 

CHART KC 



*YES 



••••J 5* ******* 
RET TO ADDR 
IN LNK REG 
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Chart NA. Terminated Program I/O Handling $$3E0J; Refer to 
Supervisor, Chart 26 



$$BEOJ 



IJBEJ20+8 

«««««B1*«**»*«'»* 

• LOAD ADDR OF 
»CGMM REGN INTO 

• Rll AND ADDR 

• OF PIB TABLE 
» INTO RIO 



»««««Cl»«»*«»««»» 
» ADD LTK VALUE • 
*T0 PIB TBL ADDR* 
•TO POINT TO PIB* 
»0F INTERRUPTED • 
» PROGRAM • 



»«««»D1»«»*»««*« 
•RESET WRITE ON 
•SYSRES BIT AND 
•CHAN APPENDAGE 

• BIT IN ASSIGN 

• FLAG OF PIB 



El ♦. 
.* TIMER •. 

• SUPPORTED •. 

BY INTRPTED .» 
•. PROG .♦ 



• AUTOTEST 

PROGRAM IN 
•.PROGRESS . 



♦ •C2 

SVC 2 

$$BATST3 

• D2 



♦ D2 
REFER TO IBM 
SYSTEM/360 
DOS AUTOTEST 
PLM — 
Y24-5027. 



ZERO INTERVAL 
TIMER 
ENTRY 




PCTEST 

»««»»G !•»•••••••• 

* LOAD ADDR OF * 
•PC TBL INTO R13* 
•AND DIVIDE THE • 

• LTK BY 2 • 



UNNORM ••. 


• £!• 




C3 •. 


» • 




.• IS ♦. 


♦ 




•TERMINATOR •. YES 


EOJSTEP 


•BEING CANCELED 


















• . .• X 






♦NO ••••• 






• NB • 






• Bl» 






• • 






. • 






SUPPRIO 






X 




«*«««D3^^^^^*^ 






SET PIB • 






ASSIGN FLO • 






TO INDICATE • 






CANCEL PROG • 




• 4 


IN PROGRESS^ 


• *•• 

• • 

• 4 • 
» » 

• «•« 




X 


X 




.•. CNCLTEST .•. 




E3 ». 


E4 •. 




.* WAS *. 


.•CANCEL • 




• LOGICAL •. NO 


.• DUE TO 




TRANSIENT .• X« 


. PROG CHECK 




•.EXECUTING.* 


• . 



• •*• 
• 2 • 



LOAD REG 1 

WITH THE 

ADDR OF PHASE 

NAME $$BTERM 



»«C5^^^«*^ 

SVC 2 

SSBTERM 

CHART NE 



«*«»«F3^«**^«« 

• RESET BIT • 

• IN CNCL CODE ♦ 
•THAT INDICATED 

• LOGICAL TRAN • 

• EXECUTING • 



F4 •• 

.•CANCEL •. 

• DUE TO • 

ILLEGAL SVC 



♦»E5»^»^^^ 

SVC 2 

$$BPCHK 

CHART NT 



SET REG 

EQUAL TO 

ONE 



ATTENTION 

ROUTINE 

.CANCELED . 



.•CANCEL DUE • 
.TO PHASE NOT 
•. FOUND .• 



• SVC 2 
.X^ *$BE0J2 

• CHART NL 



ZERO THE 

OPTION TABLE 

ENTRY 



OCTEST 

» LOAD ADDRESS 

• OF OC 

• OPTION TABLE 

• INTO R13 



• ZERO THE 

• OPTION TABLE 

• ENTRY 



SVC 2 

$$BE0J1 

CHART NJ 



SET REG 

EQUAL TO 

ZERO 



J3 •. 
.• CNCL ♦ 
• CODE BE- 
TWEEN X«20 
•.AND X'22' 
•. •JS .♦ 

'•NO 



SET UP TO 

FETCH 

$$BE0J1 



X.^ 5 



• SVC 2 

• SiBILSVC 

• CHART NN 



DETERMINES THE CAUSE 
OF THE CANCEL. IF 
THE CODE IS OUTSIDE 
THE RANGE SPECIFIED, 
CANCEL CODE 
ANALYSIS CONTINUES 
IN $$BE0J1. 
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Chart NB, EOJ Processing Routine and $$BEOJ Subroutines 
$$BEOJ; Refer to Supervisor, Chart 26 





III?i8H»^ 














PHASE. 


* * 

♦ PUT * 














* * 




***** 








*NA * 








♦ C3* 








• * 








* 
























X 








SUPPRIO .*. 




PUT X 




Bl *. 
•* PROG *. 


*****B2******* 


*****B3********** 




♦ SET X«10« ♦ 


* LOAD CCB * 


****^it* ******** 


.* BEING •• NO 


* IN PIB * 


* ADDRESS * 


* 


*, TERMINATED .*... 
*. IS BG .* 


X* TO SHOW FG * 


* INTO REG- ♦ 


* SVC 


* CANCEL * 


* ISTER 1 * 


* 


*• •* 


* *A2 * 


* ♦ 




♦ . .♦ 




***************** 




♦YES 


. 
























X 








***** 
*NA * 


*x ,... 




* 






X 


* B5* 


SVCO X 




•****c ******* 


* * 


******C3******4'**** 




* ESET * 


♦ 


» EXECUTE ♦ 




* CA AL AND * 






♦ SUPERVISOR ♦ 




CHANNEL 




* UPDATE JOB * 




* PROG * 




* CONTROL SW • 


***** 






*«4i*********** 


♦NA » 






• 


♦ B4* 


• 





****A5********* 

* * 

* ENTl ♦ 

* * 

«*4i************ 



ENTl X 

*****B5*****«**** 

♦ LOAD AND TEST * 

♦ REG 13 FOR ♦ 

♦ ANY PC OR * 

♦ OC TABLE » 

♦ ENTRY • 
***************** 



*****01**4>**** 

♦ SET ♦ 

♦ CANCEL CODE 

♦ BIT IN JOB 

♦ CONTROL SU 

♦ JCSWO ♦ 
************** 



EOJSTEP X 

*****E1 ********** 

* ZERO CANCEL * 

♦ CODE BYTE OF ♦ 

* PIB AND RESET * 
*OPEN INDICATOR * 

♦ IN JCSWO * 

****************4i 



LOAD PHASE 
tJOBCTLA 



************* 



****[)4********* 

* * 

* ENT2 ♦ 

* * 

******]^**4i4i*4c** 



05 *. 

..♦ PC ♦. 
.* OR OC *. 

.TABLE ENTRIES. 



****E3********* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



♦F4 
R15 CONTAINS 
LTK DIVIDED 
BY 2. 



****F3********* 

* RETURN TO ♦ 

* ADDR IN LNK * 

* REGISTER « 
*************** 



ENT2 X 

*****IE5********** 

* GET ENTRY IN » 

♦ TBL FOR PROG » 
♦INVOLVED USING * 
*R10 PIB POINTER* 
♦PLUS R15 ♦F** 
***************** 



ENT3 X 

**«**P5********** 

♦ ZERO ENTRY ♦ 

♦ IN PC OR ♦ 

♦ OC OPTION ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****G1^***^^^^*^ 

♦ SET UP ENTRY ♦ 

♦ POINT TO ♦ 

♦ SJOBCTLA IN ♦ 

♦ JCTPSW ♦ 

♦ * 
***************** 



****G5*****^*** 

♦ RETURN T(j ♦ 

♦ ADDR IN LNK ♦ 

♦ REGISTER ♦ 

*•***••*••***** 



*****H1********** 

♦ SET REG 1 ♦ 

♦ WITH ADDR OF ♦ 

♦ BG SAVE AREA ♦ 
♦AND MOVE JCTPSW* 

♦ TO THAT AREA ♦ 
***************** 



*****J1********** 

♦ RISET PIB * 

♦ ASSIGN FLAG ♦ 

♦ BIT THAT IN- • 
♦OICATED CANCEL 
^ •'■ "-06R--- 



SVC 11 
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Chart NC. Message Output Subroutine $$BEOJ; Refer to 
Supervisor, Chart 26 



♦ ♦ 

♦ LOGLIST ♦ 

♦ ♦ 



LOGLIST 

♦ CLEAR OUTPUT • 
*AREA TO BLANKS * 

♦ USE EXEC INST * 

♦ TO MOVE MSG * 
♦TO OUTPUT AREA ♦ 



♦LD LUBTAB ACOh » 
*IN R4 LO OUTPUT* 
♦AREA AODR IN R5* 
♦ST CUTPUT AREA » 
♦ ADCR IN CChLG » 

******* **«>»****4<:r 



♦STORE UNIT ALLR^ 


.* I/O ♦. 


♦ UF SYSLST OR * 


,♦ LEVICE A ♦. NO 


♦SYSOOO IN CCB. * 


♦. TAPL DRIVE ...... 


*PUT PUb PNTR IN* 


*. .* . 


*R3 FROM LU£3TAE3 * 


* • .» . 


***********4[*4ii;.** 


*. .* X 




♦YES *♦♦♦ 




♦NB 




♦ U3 


* 


♦ * 
. * 


X 
*****C2* ********* 


****«C3********** 


* MULT K5 BY e * 


•PUT NB^ 


»T0 INOEX PUBTAB* 


»-*-»-»-*-*-*-♦-* 


*R6 POINTS AT IT* 


* SE.,St TAPE OR ♦ 


*LD R6+R5 IN R4 * 


* FGK FILE PHUT ♦ 


*Fbk SYSLST PUb * 


• CONDITION ♦ 


V*****>K«««****«** 


***************** 



IS 

SYSLOG 

.ASSIGNED 



.* IS *. 
♦ SYSLOG ♦ 

SAME DEVICE 
♦.AS SYSLST.* 



*****p !******«**« 
*ST LOGICAL UNIT* 
*ADDR OF SYSLOO * 
*INTO CCfa VIA R5* 
»ST AODR IN CCB * 
* OF CCWLG * 
***************** 



*G][********** 



*****Q2 ********* 
*GLT SYSLST DEV 

* TYPE FROM PUB 

* HOVE TO FIELb 

* CALLcD TYPE 



SYSLST OR ♦. NO 
SYSOOO A .♦... 
. PRINTcK .» 



*****P2********** 
»ST OUTPUT AREA * 

* AUDR IN CCWLS * 

* LD CChSKP * 

* AODK IN R5 * 

*:«<*************** 



.* IS *. 
YES .» TAPL OR ♦. 
...♦FILE PROTECTED. 



♦ *** 

* * 

* 4 * 

* * 
**** 



**** 

* * 

* 2 ♦ 



*****F4^ ♦♦******* 

* relocate tape * 

* jutput area * 
*addr i,%tu ccwtp* 
♦ld aodr of cc^ ♦ 

* IN KfcG 5 * 
***************** 



OKTYPE 

«>****P5*****»«**« 
♦LO ADDR OF CIB * 
♦IN K5 INDEX 72 » 
♦ BYTES TO SYSL:>T* 
♦DIB CMP CURRENT* 
♦ADDR TO ENDADDR* 
***************** 



RlCCB < 




*****Q4 ********** 




♦ STORE AOUk OF ♦ 




♦APPROPRIATE CCH^ 


YES 


♦ IN RELATED ♦ 




* CCb FROM * 




• REG 5 ♦ 




***t»**4t********* 






***** 




♦Nb ♦ 




♦ D3* 




* * 


. 


* 


X 




*****h4* ********* 




♦PUT NB* 








♦' "hrite~msg~ ~* 




♦ ON I/O DEVICE * 




***************** 





**«**H5**^^^^*^^* 
♦ST CURRENT ADDR* 
♦IN SEEK CCW PUT* 
♦ CCHHRKOD n ♦ 
♦OUTPUT AREA TO » 
♦USE AS COUNT 10+ 
***************** 



*****J5******^*^^ 



♦ IS 


♦ . NO 


.♦ IS *. NO 


SYSLST 


...... 


♦. SYSOOO .♦ 




♦.ASSIGNED 


.♦ 


♦.ASSIGNED ,♦ 




♦. .♦ 




♦. .♦ 




♦. .* 




*. .* 


X 


♦ YES 


***** 


♦YES 


***** 




♦NB * 




♦NB ♦ 




♦ D3^ 




♦ 03^ 


X 


♦ * 




* * 


***» 


* 




* 


* * 








♦ 1 ♦ 




X 




* * 




*****K2 ********** 




***« 




♦LOAD UNIT ADDR ♦ 
♦OF SYSOOO IN K5^ 
♦ADJUST REGS SO ♦ 
♦SYSOOO USED IN ♦ 
♦^SETLOGUN^RTN ♦ 

X 

**** 

* * 

* 1 * 

* * 
**** 





♦ST AODR OF DISK^ 
♦OUTPUT AREA IN ♦ 
•WRITE CCW LOAD ♦ 
♦ADDR OF 1ST CCW* 
•OF CHAIN IN R5 ♦ 
«****4i*********** 
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Chart ND, Quiesce I/O Phase $$BE0J3; Refer to Supervisor, 
Chart 26 



* * 

* $»BE0J3 * 

* ♦ 



* STORE PROG ♦ 

* KEY IN ♦ 

* LOCATION 

* CLI ♦ 

* * 



♦ 1 * 



PUT X 

«»4'**B2 ********** 

* SET UP CCB * 

* AODR IN Rl * 

* AND CCH ♦ 

* AODR IN THE * 

* CCB * 
*4t******4i 41******41 



LASTPUb X 

**«**B<^********* 

* ADD 8 TO 

* k4 SO THAT 

* IT POINTS TO 

* THE NEXT PUB 

* Er4TRY 
**************** 



.* TELE *. h 

*. PROCESSING .*. 


10 

**** 

* * 

* 5 * 

* * 
***♦ 


.♦ DEVICE UN ♦. YES 
*. CHANNEL ....... 










♦.SUPPORTED.* 

**. .*' 

*YES 


*. QUEUE .* 
*. .* 

••.nS 






















♦ STORE PUB * 

♦ ASSIGN FLG * 

♦ OF PIB IN ♦ 

♦ LOCATION * 

♦ TM * 






03-*-.. "•iUS..03.J. 

.* *. SVC 25 
.♦ DEVICE ♦. NO ♦ HALT I/O ♦ 
*. IN DISABLE .*.... ON TP 

♦. CLASS .* . ♦ DEVICE ♦ 

*♦. ,*' X ************* 
♦YES ***♦ 
* * 




': 






* 2 ♦ 
• * * 
**♦* 


X 
**** 

* * 




X 

*****£ I ********** 

* SET UP REGS ♦ 

* WITH LUB AND * 

* PUB TABLE * 

* ADDRESSES * 






*****«E2*********** 

* DISABLE * 

TP 

* DEVICE * 




* I 


> * 

* 
N** 


GARY 



C^ ♦. 
.* LMD *. 

UF 
PUB TABLE 



*****P1 ********** 
■^ SET R7 * 

♦ (NUMBERING * 

* REGISTER) * 

* TO MINUS I * 

♦ * 
***************** 



* 3 



**** 
ITERATE X 

*****G1 ********** 

* ADD 1 TO R7 * 

* -R7 IS USED ♦ 

* TO NUMBER THE ♦ 

* PUB ENTRIES * 

* SCANNED * 
***************** 



.*• 

HI ♦. 

.* PUB *. 

* BELONG TO 
PROG BEING 
*. ENDED . 



.♦ TELE- *. NO 
*. PROCESSING .*... 
*. DEVICE .* 



****Q2******** 

* SVC 7 

* WAIT 
* 

************** 



*H3 
THESE BRANCHES 
FUNCTION AS WAIT 
LOOPS. THE WAIT 
CONTINUES UNTIL 
AN I/O DEVICE 
ASSOCIATED WITH 
THIS PROGRAM IS 
DEQUEUED. WHEN 
THE DEVICE HAS 
BEEN DEQUEUEOt 
REQIO FOR THAT 
DEVICE EQUALS 0. 



* 2 ♦ 

* * 
***« 



*****K1********** 

* ASSIGN * 

* SYSFGI TO * 

* THIS DEVICE * 



***************** 



♦YCS 


***♦ 
* * 

I' I 

***» 


* 5 

♦ 
** 








UMASSIGN * 
SYSFGI ♦ 












Ix 







*****E4.* *****:*♦** 

CALC END » 

PLUS 1 * 

4UDR UF ♦ 

RECID IN ♦ 

R12 * 

***************** 

***♦ I 



*****P4********** 

* * 

* DECREASE * 

* R12 BY * 

* ONE * 

* * 
***************** 



G4 ♦. 
.♦ LTK *. 
.* EQUAL ♦. YES 
REQID .*... 
♦. .♦ 

♦. »H3 .* 
♦. .♦ 
♦NO 



♦. *H3 .♦ 
♦ . .♦ 

♦ NO 



J4 *. 

.♦ ALL * 
.* DEVICES 
*. DEQUEUED 
*. 



*, 



****K4********* 

* SVC 2 ♦ 

* SSBEOJ * 

* CHART NA * 
*******••**•*•* 



*****j5********** 

* DECREASE * 

* COUNT CONTROL * 
.X* REGISTER ♦ 

* BY 1-R13 * 

* * 
***************** 



**•* 

* * 

* I * 

* * 
**** 
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Chart NE. Reset Foreground PUB Ownership and Detach 

Attention Routine $$BTERM; Refer to Supervisor, 
Chart 26 



*«**A1*«******* 
♦ i$BTERM ♦ 



«»«*«B !******•«« 

• LOCATE SAVE- 
» AREA POINTER 
•FROM PIB-TA8LE 

• INTO R2 

• ♦A^ 



DONE X 

****»^2* ******** 

* LOAD ADDRESS 

* OF PUB-TABLE 

• INTO R5 AND 
•LENGTH OF PUB- 

• ENTRY INTO R6 



•»»B3******* 

OR INTO 

PIBPUBAS 

TERMINATOR 

WORKING 
INDICATORS 



• A4 
RIO AND RIl ARE USED AS BASE REGISTERS 
FOR THE PIB-TABLE AND COMMUNICATICATION 
REGION RESPECTIVELY AND HERE SET BY 
A PREVIOUS PHASE AND SHOULD REMAIN 
UNCHANGED FOR THE NEXT PHASE. 



♦•••Cl< 

RELOCATE OUT 

AREA ADDRESS 

IN CCH 

ADDRESS 

AREA 



•••••Dl^«*«^«^»* 

• LOAD R13 

» WITH ADDRESS 

• OF UNASSIGN 
•RTN FOR BRANCH 

• ON REGISTER 



•••••El* 

• LOAD LOGICAL 

* TRANSIENT KEY 

* INTO R8 AND 

• MODIFY IT FOR 
•INDEXING 



• ALL • 

PUB'S 

SCANNED 



****m02* ********* 

* RESET PROPER • 
•OWNERSHIP FLAGS^ 
•IN ALL PUBS,GET« 
•NEXT ENTRY, AND • 

• ADD R6 TO R5 • 



F2* 



•••»»F1»*^*^»*^» 

• LOAD ADDRESS 
•OF LOG-ROUTINE 

• INTO R14 FOR 

• BRANCHING ON 

• REGISTER 



•••»»H1»«^^^^* 
» MODIFY MASK* 

• TO RESET F2 • 
•OWNERSHIP FLAG * 

• IN ALL PUB- • 
•ENTRIES •HZ 



JI •. 
.» IS •. 

.•FOREGROUND ♦. ON 
.CANCEL-SWITCH.*.., 
•. IN PI8 .♦ 
•. *K3 .• 

"'•OFF 



• •♦•Kl< 

SUPPRESS I/O 

BY CHANGING 

NOP INTO 

BRANCH AT 

LABEL LOG 



THE LOGICAL TRANSIENT 
KEY IS SHIFTED RIGHT 
CAUSING A DIVISION BY 
16 TO OCCUR. 



THE BINARY BIT 
CONFIGURATION IN 
LTK +1 IS COMPARED 
TO A BINARY 32. 



► H2 

A 254 IS ANDED 
INTO THE IMMEDIATE 
DATA POSITION OF THE 
RESET OWNERSHIP 
INSTRUCTION MOD. 



tJ2 

RELEASES THE 
CORE PARTITION 
USED BY THE 
TERMINATED 
PROGRAM. 



C3 ♦. 
.•NORMAL •. 
.• EOJ SET •. YES 

.CANCEL-CODE= 

•. X'00« .• 



PRCOMPL 

•••••C4***^*****^ 

• GET JOB-NAME • 

•FROM FOREGROUND^ 

...X» SAVE AREA • 



.• ATTENTION •. NO 
ROUTINE .•... 
•.CANCELED .* 



••••E3^^^«^^^ 

SET A X'07'^ 
IN DISPLACE- • 
MENT AREA OF 
PUB AS DETACH^ 
MASK • 



SETUP 

•••••E4^^^*^«*^^^ 

• GET ADDRESS • 
•OF TAPE-ERROR- • 

♦ BLOCK TABLE, • 
•IF ANY, INTO R2^ 



PHYSEIZE 

•••••F 3* ••••••• 

» CLEAR RO 

• TO ZERO TO 

• DISABLE I/O 



SVC 22 

SIEZE 

CONTROL 



» NG * 
• El^ 
X •••• 
UNASSGN .•. 

G5 •. 
.•SHOULD ♦. 
NO .•ASSIGNMENTS*. 
...•. BE RESET .* 



***H3** ****** 

MOVE 

DETACH-MASK 

INTO 

PIB-FLAG 

• J2 



•••••J3^*^^^^^ 

♦ AND INTO • 

• PIBPUBAS THE • 

• BG AND FG END • 
•OF TERMINATION* 

♦ SWITCHES • 



THIS SWITCH IS IN THE 
PIBPUBAS-BYTE IN THE PIB 
ON INDICATES I/O CANCEL 
IN THE TERMINATOR. 
SUPPRESS ALL I/O FROM 
NOW ON TO AVOID A 
CANCEL-WITHIN-CANCEL 
LOOP IN THE SYSTEM. 
SET ON BY PHASE 
*$eEOJ. 



•••••«J4^^^»*^ 
SVC 22 
• RELEASE 
.X CONTROL 



••«*K4^ ******** 
* SVC 11 * 
♦RETURN TO TASK * 
*SELECT IN SUPVR* 
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Chart NF. Reset JIB's for I/O Devices of Terminated Program 
$$BTERM; Refer to Supervisor, Chart 26 



***** 

♦NE * 
♦ G5* 



UNASSGN-^8 X 

*««4>*B1 ********** 

♦ZERO R5 AND R7 ♦ 

♦ AND PUT SIZE ♦ 
» OF LUB TABLE ♦ 

♦ TO BE SCANNED ♦ 

♦ INTO R7 * 



**«**C1 ********** 

* LOAD STARTING ♦ 

* ADDRESS OF * 

* LUB TABLE ♦ 

* INTO R5 ♦ 

* * 
«i*****4i4i***4t**4t4>* 



:»*«4i4>0 1 ********** 

* GET THE * 

* LUB TABLE * 

* END ADDRESS * 

* BY ADDING R5 * 

* TO R7 * 



* SET TABLE * 

* ENTRY LENGTH * 

* IN R6 FOR * 

* BRANCHING ♦ 

* ROUTINE * 

**i»«**»*4i*4>****** 



**** 

* * 

* 1 * 

* * 

**** 



DEQUEUED X 

***4i*[}2********** 

* MAKE LUB * 

* ENTRY ALL * 

* ONES AND * 

* ACCESS NEXT ♦ 

* LUB ENTRY ♦ 



.♦ LUB ENTRY ♦. 

♦. WITHIN SET . 

♦. LIHITS .» 



X 

***** 
♦NE ♦ 
♦ B2^ 



♦.CHAIN.* 
♦ . .♦ 

♦NO 



♦ SAVE DATA ♦ 

♦ IN R9 BY ♦ 

♦ LOADING IT ♦ 

♦ INTO R2 ♦ 

♦ * 
*4<*«4<4i4>********** 



♦ ZERO R9t AND ♦ 

♦ SET UP NEW ♦ 

♦ JIB POINTER ♦ 

♦ IN R9 ♦ 

♦ ♦FA ♦ 



Fl ♦. 
.♦ DOES ♦. 

LUB ENTRY ♦. YES 
HAVE JIB .♦... 
. POINTER .♦ 
♦ . .♦ 



DEQUEUE X 

♦ ZERO R9. PICK ♦ 
♦UP JIB POINTER ♦ 

♦ AND STORE ♦. 

♦ IT INTO ♦ 

♦ FRLSTBEG ♦ 



AODLST 

♦ LOAD POINTER ♦ 
*T0 FIRST ENTRY ♦ 

...X* OF OLD FREE- ♦ 

♦ LIST INTO R8 ♦ 

♦ FROM FAVP ♦ 



*4<*4<»D44i«4i*4t*4c*** 

* PUT DEQUEUED * 

* JIBS ON THE * 

* FREELIST ♦ 



**4i***4i4'********* 



* 1 » 

* * 
**** 



♦ F4 
THIS IS SET UP FROM 
PREVIOUS JIB ENTRIES 
4TH BYTE. 



♦ D5 
THIS IS THE JIB POINTER 
TU THE OLD FREELIST. 
STORE BYTE POINTED TO BY 
FAVP INTO 4TH BYTE OF 
LAST JIB ENTRY DEQUEUED 
AND REPLACE THE BYTE 
WITH CONTENTS OF 
FkLSTBEG. 



**** 

* * 

* I ♦ 

* * 
• *** 



CHAIN X 

♦ ACCESS THE ♦ 

♦ JIB ENTRY AND ♦ 

♦ ZERO OUT THE ♦ 

♦ JIBS FIRST ♦ 

♦ THREE BYTES ♦ 



**** 

* • 

* 2 * 

* * 
**** 
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Chart NG. Get TEB Statistics and Reset TEB*s $$BrERM; Refer 
to Supervisor, Chart 26 



* TEB * 

* * 



LOAD BASE » 

ADDRESS OF * 

PUB-TABLE * 

IN R12 * 



* SET LENGTH 

* OF HEADER 

* MESSAGE INTU 

* BYTE COUNT 
FIELD OF CCW 



4i*4>*4i*4>* 



■ ^^i***** 



♦ LLAD LENGTH * 

♦ OF PUB-ENTRY » 
» INTO R9 FOR » 
♦INCREMENTATION * 

♦ * 



El *. 
.* END *. 

OF 

PUB-TABLE 

. R12=256 . 



»♦♦• 




**** 


* * 




* * 


♦ 4 ♦ 




* 5 * 


* * 




* * 


• ♦♦• 




**** 


X 




- 


* .♦. 




X 


B<^ ». 




.♦ 1ST ». 


* 


LOAD ADDRESS * 


) .♦ TIME *. 


* 


OF NEXT * 


*. THROUGH .♦ 


* 


BYTE IN QUI ♦ 


♦• .* 


* 


AREA INTO R4. * 


♦ . .♦ 


* 


ZCRU R5 * 


*. .* 




•YES 








**** 




* 


* , 




* 


7 ♦.X. 




♦ 


* 




**** 


X 


GETBYTE X 




**4i**C5**4i******« 


♦ RESET * 


* 


INSERT * 


♦ HEADER SWITCH* 


* 


BYTE IN Thfc » 


» TO X«FO« FOR ♦ 


* 


TEB-ENTRY • 


♦ BRANCH AT ♦ 


• 


USING R3 « 


♦ LAbEL NOP ♦ 


* 


INTO R5 ♦ 







*****05*«***«*««' 

♦ CONVERT 

♦ DATA IN R5 

♦ TO PACKED 

♦ DECIMAL 
* 



*4i4i**£4*4t«**«*:»** 


****«E5********** 


♦ * 


* UNPACK AND ♦ 


♦ SET UP * 


* MOVE THE * 


• SECONu ♦ 


♦ CONVERTED » 


♦ HEADER ♦ 


♦ BYTE TO OUT * 


* * 


* AREA USING R'* * 




***l^*****0******* 



LOG NH 

*-♦-♦-♦-*-*-♦-*-♦ 

PRINT 2N0 

♦ HEADER ♦ 



0*0** fS********** 

♦ LOAD ADDRESS » 

♦ OF NEXT ♦ 

♦ TEB-BYTE PY ♦ 

♦ ADDING I TO ♦ 

♦ R3 » 
****4>4i**4>***4i*»** 



GI *. 


GZ ♦. 




»**4t«Q34i*4i««****4' 


" 


*****Git********** 




«***»G5** ♦*♦♦♦♦♦♦ 


.* *. 


.♦ PUB ♦. 




♦ MULTIPLY TEB- ♦ 




♦ CLEAR HEADER ♦ 




♦ INCREMENT R4 ♦ 


.♦ ♦. YES 


.♦BELONGS TO ♦. NO 




* ENTRY POINTER ♦ 




♦1 TO ALL BLANKS^ 




♦ BY 4 TO POINT ♦ 


.FOREGROUND 2 .♦... 


.... .X+.FCREGRGUND 2 .♦... 




♦ FROM PUB BY 6 ♦ 
» ENTER PRODUCT ♦ 




♦ AND MAKE ♦ 

♦ CHANNEL AND ♦ 




♦ TU NEXT PjS ♦ 


♦. JOB .♦ 


♦. JOB .♦ 


♦ TO BE USED IN ♦ 


*. .* 


♦. •♦ 




♦ INTO R7 ♦ 




♦UNIT PRINTABLE ♦ 




♦ OUTPUT AREA ♦ 


♦ . .♦ 


♦. .♦ . 








********:¥******** 






♦ NO 


♦ YES 




': 








• 




MTAPE X '. 




X 








X 
.♦. 


HI* *♦. 


0***rni2********** 




*^f^L0:fH3********** 








H5 ♦. 


.♦ PUB ♦. 


* * 




♦ ADO R2 AND ♦ 




♦ SET LOOP ♦ 




.♦ ALL ♦. 


.♦BELONGS TO ♦. YES 


♦ GET ♦ 




♦ R7 TO ACCESS ♦ 




♦ COUNT BY ♦ 


NO .♦ BYTES ♦. 


.FOREGROUND 1 .♦... 


.....X* DEVICE ♦ , 




♦ TEB-ENTRY ♦ 

♦ ADDRESS ♦ 




♦ LOADING Rl * 

♦ WITH A 5 ♦ 




..*. CHECKED .♦ 


♦, JOB .♦ 


♦ lYPE ♦ 




♦ . .♦ 


* 4. 




♦ ♦K3 ♦ 








*♦. .♦' 


♦ . .♦ 












X 


♦ . .♦ 


♦ NO 












♦♦♦♦ ♦YES 














♦ 


♦ 














* 7 


« . 


X 












♦ 


♦ 


***♦ 












**** . 


41 * 


X 




X 










♦ 6 ♦ 


• ♦• 




.♦. 








X 


* * 


J2 ♦. 




J3 ♦. 




♦♦♦♦♦J4^*^*^»^*** 






♦ *♦♦ 


.♦ ♦. 




.♦ ♦. 




♦ LOAD POINTER ♦ 








YES .♦ ♦. 




.♦ ANY *. YES 


♦ TO SECOND * 




♦ MOVE ZEROS ♦ 




...♦. TAPE .♦ 




♦. TAPE ERRORS .*. 




♦ BYTE IN * 




♦ TO ♦ 




♦. .♦ 




♦ . .♦ 




♦ TEB-ENTRY * 




» TEB-ENTRY ♦ 




• ♦. .♦ 




♦ . .♦ 




♦ INTO R3 ♦ 








X ♦. .♦ 




♦ . .♦ 


X 






m**************** 




♦♦♦♦ ♦NO 




♦ NO 


♦ ♦♦♦ 










* ♦ . 






* * 










♦ 3 ♦ 






♦ 4 * 










♦ ♦ 


I 




* 4> 










♦ ♦•♦ ,X 






*♦♦♦ 


♦ *♦♦ 

♦ * 










'♦K3* 




, 




GETNXT X 


R2 


CONTAINS 




• 5 ♦ 




X 




*4i*«*K2 ♦♦♦♦♦♦*♦♦♦ 


THE 


ADDRESS OF 




♦ ♦ 








♦ ADO R9 TO ♦ 


THE 


BEGINNING 




*♦** 




LOG NH 




♦ RI2 TO GET ♦ 


OF 


THE TtB-TABLE 








♦_♦_♦-♦-♦_»_♦-♦_♦ 




♦ NEXT ♦ 


SEE 


FR-E4 








PRINT 




♦ PUB~£NTRY ♦ 












♦ STATISTICS ♦ 




♦♦♦♦♦♦♦♦♦♦♦*♦**♦* 












. 




X 












*h* 




♦ * 












♦ ♦ 




♦ I * 












* 6 ♦ 




* * 












* ♦ 




♦ »♦♦ 












**♦* 
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Chart NH. Print Message and TEB Statistics Subroutine 
$$BTERM; Refer to Supervisor, Chart 26 



* * 

* LOAD ADDRESS * 

* OF LUB TABLE ♦X 

* INTO Rff * 

* * 



♦ ♦ 

♦ LOG * 

♦ * 



CANCEL 
WITHIN 
CANCEL 



n,if***03********** 

♦ SET LOGICAL ♦ 

♦ UNIT NUMBER ♦ 

♦ AND CCW- * 

♦ ADDRESS IN * 

♦ CCB * 



♦ 

♦ CLEAR 

♦ OUTAR 

♦ TO BLANKS 

* 



♦ MOVE APPRO- * 
*PRIATE MESSAGE ♦ 

♦ INTO OUT AREA * 

* PUT CCB ADDR * 

* INTO REG 1 ♦ 



SVCO 

PRINT * 
A 
* LINE ♦ 



4>4i4<*J3*4<4c4>4i4<4<4<* 

* RETURN * 

* TO ADDRESS IN * 

* LINK REGISTER * 
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Chart NJ. Prepare Cancel Cause Message $$BE0J1; Refer to 
Supervisor, Chart 27 



* SSBEOJl * 



CAUSEl X 

♦ MOVE JOBNAME ♦ 

♦ FROM COMREG ♦ 

* TO OUTPUT ♦ 

* AREA * 



♦ C2 

APPROPRIATE 
MESSAGE FOR 
ILLEGAL SVC SET 
UP AT ASSEMBLY 
TIME, 



* GET ADDRESS * 

* OF FOREGROUND ♦ 

* SAVE AREA * 

* AND PUT INTO ♦ 

* R4 * 



*****E1 ********** 

*MOVE FOREGROUND* 

♦ JOBNAME TO * 

♦ OUTPUT AREA * 



41**************** 



* 2 * 

* * 



**4>**C3********** 
» RELOCATE CCW * 
* ADDREbl) I^ » 



*4<««***4i« 



» * 
* 3 * 



F2 *. 
.* PHASE *. 
.* NOT FOUND ». NO 
*. INDICATOR .*.., 



PROG X 

«««**G1********** 

♦ SET MESSAGE • 

♦ CODE FOR PROG * 

♦ CHECK IN * 

♦ SYSLOG/LST • 

♦ OUTPUT AREA * 



4i«*«*Hl********** 

* SET UP CCW * 

* MESSAGE COUNT * 

* IN BYTE COUNT * 

* AREA OF CCH ♦ 

* * 



*:»*4i*G2 ********** 

* SET UP * 

* PHASE NOT * 

* FOUND MESSAGE * 

* IN OUTPUT * 

* AktA * 

**** ', 



**** . 
LOGGER X 

4i*«*4>H2********** 

* LOAD ADDRESS * 

* UF LUB-TABLE * 

* INTO R4 * 

* ♦ 

* * 
***************** 



SYSLOG 
SYSLST 



*****f^********** 

* GET AND STORE * 

* ADDRESS OF * 

* LOGICAL UNIT * 

* ADDRESS OF * 

* SYSLOG IN CCB * 
***************** 



****tLQ'^********** 

♦PRINT NK* 
♦-♦-*-♦-♦-♦-♦-♦-* 

* WRITE * 

* CANCEL MSG * 

* UN SYSLOG * 
***************** 



ONLIST X 

«****H3********** 

* SET UP A » 

* COUNT OF 120 * 

* IN BYTE COUNT * 

* AREA OF CCM ♦ 

* * 
***************** 



FGJOB X 

*****Qi^********** 

* ZERO R5 AND * 

* INSERT LUB- * 

* ADDRESS OF * 

* FOREGROUND * 

* SYSOOO lU R4 ♦ 
***************** 



*****C5******* 

* RESET CATAL* 
*AND SUPERVISUR* 

* UPDATE INDEX ♦ 

* SWITCHES IN * 

* COMREG * 
************** 



*****os******* 

* SET CANCEL * 

* BIT-ON * 

* FOR JOB 

* CONTROL * 



********> 



***** 



.* FG * 

SYSOOO 
ASSIGNED 



***** 
*NK * 
* D2* 



****«G4********** 

* LOAD ADDRESS * 

* OF 2 TIMES * 

* SYSLST INTO ♦ 

* REG 8 ♦ 

* * 
***************** 



*****^ij^********** 

* SUBTRACT R8 * 

* FROM R4 ♦ 

* SIMULATING ♦ 

* FG SYSOOO * 

* AS SYSLST * 
***************** 



*****FS********** 

* LOAD R5 WITH ♦ 

* ADDRESS OF » 

* LOGICAL UNIT * 

* ADDRESS OF » 

* SYSLST * 
***************** 



***** 
*NK » 
* Bl* 



• TERMINATION * 
♦IN OUTPUT AREA ♦ 

• OF CCW ♦ 
***************** 



*****J2********** 

* STORE ADDRESS * 

* OF MESSAGE * 

* IN DATA * 

* ADDRESS OF * 

* OUTPUT CCW ♦ 
***************** 



****J3********** 



***************** 



*****jt^****^***** 

* LOAD A HEX * 

* 100 INTO R5 * 

* AS A LOGICAL ♦ 

* UNIT NUMBER * 

* FOR FG SYSOOO * 
***************** 



**** 

* * 

* 3 ♦ 

* * 
•*** 



*NK » 
♦ Bl* 
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Chart NK. Output Cancel Message on SYSLST; $$BE0J1; Refer 
to Supervisor, Chart 27 



♦ 4 ♦ 

* * 



SETLOGUN X 

*. STORE LOGICAL * 

♦ UNIT NUMBER * 

♦ IN OUTPUT CCB » 

♦ FROM R5 ♦ 
♦AND ZERO REG 5 ♦ 



♦ INSERT IN R5 * 

♦ PUB-POINTER ♦ 
♦FROM SYSLST LUB^ 

♦ ENTRY TIMES ♦ 

♦ 8 ♦ 



B2 ♦. 
.♦ IS ♦. 

DEVICE ♦. NO 
A PRINTER .♦... 



♦ 5 ♦... 

♦ ♦ . 

BALR14 X 

♦PRINT NK^ 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ WRITE ♦ 

♦ MESSAGE ♦ 

♦ ON SYSLST ♦ 
***************** 



,X*. BACKGROUND 
♦ . JOB 
♦ • .♦ 
♦ . .♦ 
♦YES 
**** . 

♦ ♦ . 

♦ 8 ♦... 



.♦. OKTYPE 

C3 ♦. *****Q/^*******^f*, 

♦ IS ♦. ♦ LOCATE AND 

DEVICE ♦. NOfOISK ♦ STORE THE 

A TAPE .♦ X^ ADDRESS OF 

..♦ ♦ SYSLST OIB 

♦. .♦ ♦ ENTRY IN R5 

♦, .♦ **************** 

♦YES 



*****QS********** 

♦ LOAD ADDRESS ♦ 

♦ OF FILE » 
X* PROTECTION ♦ 

♦ SENSE CCW ♦ 

♦ IN R5 ♦ 
***************** 



*****(^^********** 

♦ STORE SENbE » 

♦ CCH ADDREJ>i. » 

♦ IN MESSAGb * 

♦ cCb ♦ 

4- ( 

***************** 



*****[)l********** 

♦ LOAD R6 ♦ 

♦ WITH ADDRESS ♦ 



***************** 



* 6 ♦...X.^ NJ ♦ 

♦ * , * fi,* 
**** . **** 



****02********* 

♦ SVC 2 ♦ 

♦ $$BPSW ♦ 

♦ CHART NR ♦ 
*************** 



*****Q2********** 

♦ LOAD ADDRESS ♦ 

♦ OF FIRST BYTE ♦ 
♦FOR TAPE OUTPUT^ 

♦ MESSAGE INTO ♦ 

♦ R5 ♦ 
***************** 



SYSLST 
EXTENT 
FILLED 



**** 

♦ * 

♦ 6 ♦ 

♦ » 
**** 



*****Q^********** 

♦ PRINT VJK* 
»-*-»-♦-♦-•-*-♦-♦ 

♦ SENSE FOK ♦ 



***************** 



****f[2********* 

♦ PRINT ♦ 

* * 
*************** 



*****^'^********** 

♦ STORE ADDRESS ♦ 

♦ INTO TAPE ♦ 

♦ OUTPUT CCW ♦ 

♦ DATA ADDRESS ♦ 

♦ FIELD ♦ 
***************** 



*****^i^********** 

♦ * 

♦ STORE ♦ 

♦ SEEK-ADDRESS ♦ 

♦ IN CCM ♦ 

♦ * 
***************** 



E5 ♦. 

.♦ IS *. 

TAPE FILE 
PROTECTEL. 



♦♦♦♦♦F !♦♦♦♦♦♦♦♦♦♦ 

♦ GET SYSLST ♦ 

♦ DEVICE TYPE ♦ 

♦ FROM ♦ 

♦ PUB-ENTRY ♦ 

♦ * 
***************** 



*****f2********** 

♦ LOAD ADDRESS ♦ 

♦ OF OUTPUT ♦ 

♦ CCB INTO Rl ♦ 

♦ * 

♦ • 
***************** 



**** 

*****tr3********** 

♦ PICK UP AND ♦ 

♦ STORE ♦ 

♦ OUTPUT CCW ♦ 

♦ ADDRESS IN ♦ 

♦ OUTPUT CCB ♦ 
***************** 



*****f.i^********** 

♦ SET SEEK- ♦ 

♦ ADDRESS AND ♦ 

♦ COUNT FIELD ♦ 

♦ IN OUTPUT ♦ 

♦ AREA ♦ 
***************** 



**** 

* * 

♦ 4 ♦ 
4> * 

**** 



******Q2*********** 

SVC 

♦ EXCP ♦ 

PRINT A 

♦ LINE ♦ 

************* 



*****i,i,********** 

♦ SET SEARCH ♦ 

♦ ADDRESSES IN ♦ 

♦ SEARCH AND ♦ 

♦ SEARCHl CCW'S ♦ 

♦ * 
***************** 



****J2********* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



*****iiit********** 

♦ SET TRANSFER ♦ 

♦ IN CHANNEL ♦ 

♦ ADDRESSES ♦ 

♦ IN TIC AND ♦ 

♦ TICl CCW'S ♦ 
***************** 



*****ji^********** 

♦ SET DATA ♦ 

♦ ADDRESS IN ♦ 

♦ OUTPUT CCW ♦ 

♦ * 

♦ * 
***************** 



****f(,2********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER ♦ 
*************** 



*****f(,{^********** 

♦ PICK UP ♦ 

♦ ADDRESS OF ♦ 

♦ FIRST OUTPUT ♦ 

♦ CCW IN CHAIN ♦ 

♦ ♦ 
***************** 



♦ 7 ♦ 

• * 
♦«•* 
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Chart NL, Select Cancel Message and Program Identification 
$$BE0J2j Refer to Supervisor, Chart 28 



♦ » 

• $$BE0J2 * 

* * 



CAUSEl X 

* LOAD ADDRESS * 
•OF CANCEL CODE * 

* LCTQKUP TABLE ♦ 

* INTO REG 3 ♦ 



X 

♦COMPARE CANCEL » 
♦ CODE FROM PiB ♦ 
♦FOR TERMINATED ♦ 
♦PROG WITH CODE ♦ 
♦IN LOOKUP TABLED 
***************** 



X 

.♦. 

B3 ♦. 



♦• .♦ 
♦ . .♦ 
♦YES 



*****Q,^********** 

♦ MOVE JOB NAME ♦ 
♦STORED FROM JOB^ 
♦STMNT IN COMREG^ 
♦TO OUTPUT AREA ♦ 

* * 
***************** 



CODES 

EQUAL 

♦ K2 



**** 

* * 

♦ 2 ♦ 



*****^l***^****** 

♦ INDEX 5 BYTES ♦ 

♦ TO NEXT TABLE ♦ 

♦ ENTRY CMP ru ♦ 
♦SEE IF THIS IS ♦ 

♦ END OF TABLE ♦ 
****0************ 



Fl ♦. 

.♦ LAST ♦ 
.♦ ENTRY 
♦, IN TABLE 
♦ . 



*0***QI********** 

♦ZERO REG 4 AND ♦ 
♦ INSERT CHAK ♦ 
♦FROM LOOKUP TfaL^ 
♦TO INDEX TO MSG^ 
♦IN MSCODE TABLED 
***************** 



• 04 
NM-A3 
NM-D3 
NM-G5 
NM-H4 
NM-J2 
NM-Kl 



• CLEAR OUTPUT *■ 
♦AREA BY MOVING ♦ 

* IN BLANKS ♦ 

♦ STARTING AT ♦ 

• LABEL CAUSE * 



♦♦•♦•CS**^**^*^^^ 
♦MOVE ACTUAL MSG^ 
♦TO OUTPUT AREA ♦ 
♦USING MODIFIED ♦ 

♦ INST AT ♦ 

♦ LABEL MVC ♦ 
***************** 



*****Q^********** 

♦LOGGER NM^ 

♦ OUTPUTS ♦ 

♦ MSG ♦ 



*mm**^3********** 
♦LA OF PIBTAb IN^ 
*R4 INDEX TO AR ♦ 

♦ PIB FOR FG ♦ 
♦SAVE AREA ADOR ♦ 

* ♦G^ ♦ 
***************** 



*****{: ^********** 

* MOVE NAME OF ♦ 

♦ FO JOB INTO ♦ 

♦ OUTPUT AREA ♦ 
♦FROM SAVE AREA ♦ 

* * 
m**************** 



*****^S********** 

♦ LOAD ADDRESS ♦ 

♦ INTO Rl OF ♦ 

♦ NAME ♦ 

♦ $$BPSH ♦ 
« * 
♦*•«*•««♦♦♦♦♦♦*♦♦ 



****f^********* 

♦ SVC 2 ♦ 

♦ S$BPSM ♦ 

♦ CHART NR ♦ 
*************** 



****H,'i******* 

♦ MOVE LENGTHS 

♦ VALUE' OF MSG ♦ 

♦ INTO INSr 

♦ LABELED ♦ 

♦ MVC ♦ 
************** 



ATTACHED TO THE PROGRAM BEING TERMIN 



AKtA ruiNitK i:> LU^Aieu in tnt: ak-kidi 
WHILE THE PUINTER IN THE FG-PIb POINTS 
TO THE LOGICAL TRANSIENT SAVE AREA. 



*****\il********** 

♦ LA OF MSCODE ♦ 

♦ TABLE IN R5 ♦ 

♦ ADD R5 TO R4 ♦ 

♦ TO GIVE AODR ♦ 

♦ OF MSG NEEDED ♦ 
***************** 



*****H3******* 

♦ MOVE ADDR ♦ 

♦ OF MSG INTO 

♦ INST LABELED 

♦ MVC 

♦ * 
************** 



*****jl********** 

♦ MOVE MSG CODE ♦ 
♦TO OUTPUT AREA ♦ 

♦ LABELED * 

♦ LGLINE * 

♦ * 
***************** 



*****j'i********** 

♦ INSERT LENGTH ♦ 
♦OF MSG INTO R3 ♦ 

♦ ADD 37 BYTES ♦ 
♦STORE RESULT IN^ 
♦CCWLG COUNT FLO^ 
***************** 



♦K2 
THE LAST ENTRY HAS 
A •CATCH-ALL» FUNCTION 
AND GIVES A MSG 
SAYING 

•UNRECOGNIZED 
CANCEL-CODE* 



**** 

♦ * 

♦ 4 ♦ 

♦ * 
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Chart NM. Select I/O Device and Output the Cancel Message 
$$BE0J2; Refer to Supervisor, Chart 28 



* * 

* LOGGER * 

* ♦ 



* * 

* I ♦ 



Bl**** 



»<<** 



*LD LUBTAB ADOR * 
*IN R4 LO OUTPUT* 
♦AREA ADOR IN R5* 

* THEN STORE IT * 

* IN CCWLG * 



SETLOGUN X 

*****B2********** 

* ST LOGUNIT * 
*AUDR IN CCB SET* 

* POINTER FROM * 

* LUB TO PUbTAB * 

* IN KEG 5 * 

lF^i**1ffJ^* ********* 



^*^1^:t^^*********^ 

* SET RCV ADUR * 
♦FOR SENSE DATA * 

* IN SEN6E CClN * 
» SET CCW ADUR ♦ 

* INTO CCB ♦ 
****^ ************ 



♦ IS * 

SYSLOG 
ASSIGNED 



01 *. 
.♦ ARE ♦. 

.*SYSLOG AND * 
. SYSLST SAME 
♦. DEVICE .♦ 



*****^l********** 
*LOAD UNIT ADDR * 
♦OF SYSLOG IN R5* 
♦STORE IT IN CCB* 
*SET CCHLG ADDR * 
* IN CCB VIA R5 * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



**^,*,*fl*i**i*i***^^* 
*PRINT NM* 
*-♦-♦-♦-*-♦-♦-*-♦ 

* WRITE MESSAGE * 

* ON SYSLOG * 

* * 

***^,**t***L*******i 



*4<«4tGl ********** 

MOVE COUNT * 

OF 120 BYTES » 

INTO CCWLG * 



********* 



*****Q2********** 

♦MULT R5 BY 8 TO^ 
♦INDEX INTO PUB ♦ 

♦ TBL LA OF PUb ♦ 

♦ TBL IN R6 ADD ♦ 

♦ R5+R6 INTO R4 * 
***************** 



*****Q2********** 

*R^ NOW HAS AODR* 

* OF SYSLST PUB * 
*GET PUB DEVICE * 

* TYPE FOR CMP * 

* TO IDENTIFY * 

****** 4i*« 4141**41**41 



E2 *. 

.♦ *. 
SY6LST * 
A PRINTER 



♦ SENSE TAPE OR * 

♦ FOR FILE PRCT * 

♦ CONDITION * 
***************** 



.♦ TAPE ♦. 
.♦DRIVE FILE 
. PROTECTED 



***♦ 

* * 

* 3 ♦ 

* * 
**** 



TPTYPE .». 



* 4 ♦ 
» ♦ 
*♦** 



,* 
. .♦ 
♦ YES 



****E3********* 

♦ * 

♦ PRINT ♦ 

♦ ♦ 
*************** 



.* IS *. YES 
*. SYSLST A ...... 

♦. DISK .♦ 



**** 

♦ * 

♦ 3 ♦ 

♦ * 
*♦♦* 



*****f2********** 
*USE A BLNK BYTE* 
*ADDRFUR CCWSKP* 
*DATA ADDR. LOAD* 
*ADDR OF CCWSKP * 
* INTO REG 5 * 
***************** 



**** 

* * 

* 2 * 

* ♦ 
***♦ 



PRINT X 

*****P3********** 

* LOAD ADDR * 

* OF CCb INTO * 

* REG 1 * 

* * 

* * 
***************** 



******Q3*********** 

SVC 

♦ EXECUTE ♦ 

CHANNEL 

* PROG * 

************* 



*****P4********** 
*LA OF TAPE OUT-* 
*PUT AREA IN R5 * 
*ST IT IN CCWTP * 

* LOAD ADDR OF * 

* CCWTP IN R5 * 
***************** 



* 2 *... 

* ♦ . 

***♦ , 
RLCCB X 

*****Q4********* 

* STORE 

* APPROPRIATE 

* CCW ADDR IN 

* CCB FROM 

* R5 
**************** 



DKTYPE X 

*****P5********** 
♦LA OF DIB IN R5^ 
♦INDEX TO SYSLST* 

* DIB CMP CURR * 

♦ ADDR TO END * 
*ADDR OF EXTENT * 
***************** 



.« SYSLST * 
. EXTENT FULL 
*. .* 



***** 
*NL ♦ 
♦ E5* 



*****jl******* 

* .RESET CATAL* 

* And supvr up-* 
*date jcshi bits* 

* set cncl bit * 

* IN JCSWO * 
************** 



X 

***** 
*NL ♦ 
* E5* 



H3 *. 
.* I/O *. 

OPERATION 
COMPLETE 



****J3********* 

* SVC 7 * 

* PROB PROG * 

* WAIT * 
*************** 



***************** 



***** 
*NL * 
* E5* 



*****H5********** 

* SET CURADR IN * 

* SEEK CCW MOVE ♦ 

* CCHHRKOD TO ♦ 
♦DISK OUTPUT AS * 

* COUNT ID FLD * 
***************** 



*****J5********** 

♦ REDUCE RCD NO ♦ 
♦BY I. SET THIS * 
♦ADOR IN SEARCH ♦ 

♦ CCWS ♦ 

♦ » 
***************** 



Kl *. 
.* IS * 

SYSLST 
ASSIGNED 



»**♦♦ 
*NL ♦ 
* E5* 



*****K2********** 
* LD SYSOOO LGL * 
*UNIT ADDR INTO ♦ 
*R5. ADJUST REGS* 
*S0 SYSOOO USED ♦ 
*IN SETLOGUN RTN* 

***********:****** 



****K3****»**** 

* RETURN ♦ 
*T0 ADDR IN LINK* 

* REG 14 * 

*******«*«**•«* 



*****KS********** 

* ST SEARCH COM * 

* ADDRS IN TIC * 

* CCWS SET DATA » 

* ADDR IN WRITE ♦ 

* CKD CCW * 
***************** 
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Chart NN. Prepare Information About Cancel Cause $$BILSVC; 
Refer to Supervisor, Chart 28 



♦♦♦♦Al********* 

♦ ♦ 

♦ $»BILSVC ♦ 

♦ ♦AS * 



♦ A3 
REG 8 CONTAINS 
2X (SYSLST LOGICAL 
UNIT MUMBER) 



♦ ♦♦♦ 
« ♦ 

♦ 6 ♦ 

♦ ♦ 



REG 10 AND REG 11 ARE 
INITIALUEO BY A 
PREVIOUS PHASE TO BE 
USED AS BASE REGISrEK;> 
FOR PIB-DSECT AND 
SUPVR C0MRE6 DSECT 
RESPECTIVELY. 



♦GET BACKGROUND ♦ 

♦ JOB NAME ♦ 

♦ FROM THE ♦ 

♦ COMHUNlCATIOf* * 

♦ REGION ♦ 
*^;^*ttiif *********** 

**** 



♦ 2 



♦ ♦** 
PNFORSVC .♦. 

C2 ♦. 
.♦ PHASE ♦. 
*♦ NOT FOUND 
♦. (REG 0=0) 



♦ ♦♦* 

♦ 4 ♦ 

♦ ♦ 
**** 



*****Sit********** 

♦ PRINT tiQ* 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ ERROR HESSAGt ♦ 

♦ UN SYSLOG ♦ 

♦ ♦ 

****^,****^t:t:*mtL*** 



♦ SET UP REG 2 * 

♦ WITH ADDRESS ♦ 

♦ OF THE PRINT ♦ 
♦SUBROUTINE FOR ♦ 

♦ BRANCH Oh KEG ♦ 
***************** 



**4>^^E !♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP REG 3 ♦ 

♦ WITH ADDRESS * 

♦ OF THE DUMP ♦ 

♦ SUBROUTINE ♦ 

♦ * 
***************** 



*****fl********** 

♦ LOAD THE ♦ 

♦ STARTING * 

♦ ADDRESS OF ♦ 

♦ THE PIB-TA6LE ♦ 

♦ INTO REG 9 ♦ 
***************** 



*****Ql********** 

♦ LOAD THE ♦ 

♦ ADDRESS OF ♦ 
♦THE PhAbC NAME ♦ 

♦ INTO REG ♦ 

♦ 7 ♦ 
***************** 



OVLAY X 

**4i*«Hl ♦♦♦♦♦♦♦♦*♦ 

♦ GET THE JOB ♦ 

♦ NAME FROM ♦ 

♦ THE LOGICAL * 

♦ TRANSIENT ♦ 

♦ SAVE AREA ♦ 
***************** 



***^^Q-i********** 

* UfcT PHASE ♦ 
♦NAME FOR WHICH ♦ 

THE SVC WAS ♦ 

* ISSUED ♦ 

* ♦ 
***************** 



.X* 



CNLIST 

*****Qe^********** 

♦ SET A BYTE ♦ 

♦ COUNT OF 120 ♦ 

♦ IN ERROR ♦ 

♦ MESSAGE CCW'S ♦ 

♦ ♦ 
***************** 



*****02***^****** 

♦ LOAD THE ♦ 

♦ ADDRESS OF ♦ 

♦ THE ILLEGAL ♦ 
♦SVC INSTRUCTION^ 

♦ IN WORK AREA ♦ 
***************** 



*****^2********** 

♦ UNPACK THE ♦ 

♦ ADDRESS TO ♦ 

♦ PREPARE FOR ♦ 

♦ PRINT IN HEX ♦ 

♦ AND TRANSLATE ♦ 
***************** 



*****f.2********** 

♦ UNPACK THE ♦ 

♦ ILLEGAL SVC ♦ 
♦CODE rti PREPARED 

♦ FOR PRINTING ♦ 

♦ AND TRANSLATE ♦ 
***************** 



*****Q2********** 

♦ MOVE ILLEGAL ♦ 

♦ SVC CALL ♦ 

♦ MESSAGE TO * 

♦ PRIi-iT AREA AND ♦ 

♦ SET LENGTH ♦ 
***************** 



* 3 



**** 
RELLC X 

*****0-i********** 

* CLKAR MESSAGE ♦ 
» AREA AND ♦ 
♦RELuCATt DATA- ♦ 
•ADUKLSS IN CCW ♦ 
♦FOR SYSLOG/LST ♦ 
***************** 



*****^^********** 

* LOAD BASE ♦ 

* ADDRESS OF ♦ 

* LUB-TABLE ♦ 
» INTO REG 4 ♦ 

* ♦ 
***************** 



.♦ SYSLOG 
UNIT 
♦.ASSIGNED 



FGJOB 

*****^i^********** 
♦ZZRO RfcG 5 ANU ♦ 

♦ STORE LUB ♦ 

♦ ADDRESS DF ♦ 

♦ FOREGROUND ♦ 

♦ SYSOOO IN R4 ♦ 
***************** 



*****Q5******* 

♦ RESET JOB ♦ 
♦CTRL SWITCH LA* 

.X* COMM REG FCR ♦ 

♦ ,SVC UPDATE ♦ 

♦ INO AND CATAL 
************** 



*****£S******* 

♦ SET LINK ♦ 

♦ SWITCH IN ♦ 

♦ CDMMREG AS 

♦ CANCEL BIT ♦ 

♦ FOR JOB CTKL^ 
************** 



♦YES ♦♦♦♦ 

♦ ♦ 

♦ 2 ♦ 
X ♦ ♦ 

♦♦♦♦ ♦*•* 

♦ ♦ 

♦ I ♦ 



*****^2********** 

♦ STORE THE ♦ 
♦SYSLOG LOGICAL ♦ 

* UNIT NUMBER ♦ 

♦ IN OUTPUT CCB ♦ 

* s ♦ 
*********ii******* 



*****j'i********** 

♦ STORE ADDRESS ♦ 

♦ OF THE SYSLOG ♦ 

♦ ERROR MESSAGE ♦ 

♦ CCW IN CCb ♦ 

♦ * 
***************** 









F5 ♦. 






.♦ IS ♦. 






NO .♦ SYSLsT ♦. 






...♦. ASSIGNED .* 








♦. .♦ 








♦ . .♦ 








♦ . .♦ 








♦YfcS 








♦ ♦♦♦ 








♦ ♦ . 








♦ 5 ♦... 








♦ ♦ . 


X 




♦ ♦♦♦ . 


.♦. 




iETLOGUN X 


G4 ♦. 




*****Q^*********K- 


.♦ ♦. 




♦ STORE LOGICAL * 


.♦FOREGROUND ♦. NO ) 




♦ USIT NUMBER ♦ 


♦. SYSOOO .♦... 




♦ OF SYSLST IN * 


♦.ASSIGNED .♦ 




♦ CCB AND ♦ 


♦ . .♦ 




♦ ZERO REG 5 ♦ 


♦ . .♦ X 




♦YES ♦♦♦♦♦ 




♦NP ♦ 






♦ Hl^ 






* * 

• 


I 


X 


X 






♦ SUB REG 8 ♦ 


♦ GET SYSLST » 


♦ FROM REG 4 ♦ 


♦ PUB-TABLE ♦ 


♦ SIMULATING ♦ 


♦ DISPLACEMENT ♦ 


♦ SYSLST AS ♦ 


♦ IN REG 5 FROM ♦ 


♦FGSYSOOO ♦A3^ 


♦SYSLST PUB-PNTR^ 








^^^l*********:***** 



*****J^********** 

♦ LOAD HEX 100 ♦ 

♦ INTO REG 5 AS ♦ 

♦ LOGICAL UNIT ♦ 

♦ NUMBER FUR ♦ 

♦ FGSYSOOO ♦ 
***************** 



*****j^********* 

♦ LOAD REG 6 

♦ WITH 

♦ PUB-TABLE 

♦ ADDRESS 
* 
**************** 



***** 
♦NP ♦ 
• Al» 
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Chart NP. Select I/O Device and Prepare to Output a Message 
$$BILSVC; Refer to Supervisor, Chart 28 



♦ B2 
REG 5 + REG 6 
EQUALS REG 4 



LOAD ADDRESS 
OF SYSLST 
PUB ENTRY 
INTO REG 4 



LOAD TRANSFER 

ADDRESSES IN 

TIC CCW'S 



GET SYSLST 

DEVICE TYPE 

FROM 

PUB TABLE 



SET DATA 
ADDRESS IN 
OUTPUT CCW 



.». 


TPTYPE .». 


TPTYPEI .*. 


DKTYPE X 






X 


Dl ». 


D2 «. 




D3 *. 




*««**D4**««««»« 






•»*D5»*»»»**»»* 


.* IS 












LOCATE AND 








• DEVICE «. NO 


.♦* '♦. YES 




.»* SYSLST '♦. YES 






STORE SYSLST 


« 




LOAD OUTPUT • 


A .* 


....X». BACKGROUND .♦ 




X«. = .»... 




X* 


DIB-ENTRY 






CCW ADDRESS ♦ 


«. PRINTER .♦ 


JOB 




•. DISK 






ADDRESS IN 






INTO REG 1 • 


». .» 






*. .« 






REG 5 


« 






**»YES 


'»N0 
X 




'•NO 
• »»♦ . 

• 2 *..'. 






X 






X 


X 


FGLST .». 


FGTAPE X 






• *• 




NOP 


-*. 


«««E1*«**««**«« 


E2 ». 




•»«»»E3*»»»*»»*»» 






E4 ». 






E5 •. 


LOAD CARRIAGE ♦ 






» LOAD CCW'S » 






.» IS •. 






. « *. 


CONTROL CCW • 


.*' **. NO 




• CONTAINING • 


YES 


• SYSLST ♦ 




YES . 


♦ SWITCH *. 


ADDRESS ♦ 


«. TAPE .*.... 




» TAPE ERROR • 






EXTENT 




• •• *. 


SET 


INTO REG 1 ♦ 






• MESSAGE • 






*. FILLED .♦ 








♦ 






» INTO REG 1 • 






*• •• 






«. .* 




». .» X 






X 




«. .« 




X 






*YES *»« 






«»* 




• NO 




»♦»» 


♦NO 




• • 






« 












, » ♦ 


♦ 4 






* 4 








• 5 * 




...* 5 * 








« 








» » 












««« 


♦ 






**«• 




♦»«» 




















X 


X 










X 






X 


»»«FI»«»»«*»*»* 


»»««»F2»»*»«***«» 




»»«««F3*»»»**«*»» 










»»»F5**»«*»» 


STORE MESSAGE * 


♦ LOAD ADDRESS » 




• LOAD ADDRESS • 




* 








SET NOP * 


CCW ADDRESS ♦ 


* OF FILE • 




• OF THE » 






STORE 






SWITCH FOR ♦ 


IN CCB ♦ 


♦ PROTECTION » 




• CCW'S IN • 




* 


SEEK ADDRESS 




« 


BRANCHING * 


FROM REG 1 ♦ 


* SENSE CCW * 




• REG I » 






IN CCW 






SECOND TIME ♦ 


♦ 


« INTO REG 5 * 








• 






« 


THROUGH • 



«««G2 •*•**•*• 

STORE SENSE 

CCW ADDRESS 

IN MESSAGE 

CCB 



«*«G4«»«*»»»* 

SET SEEK- 

ADDRESS AND 

COUNT FIELD 

IN OUTPUT 

AREA 



«»««*G5«*»««»«« 

* STORE OUTPUT 

* CCW ADDRESS 

* INTO OUTPUT 
•CCB FROM REG 1 



G4* 



TERM X 

•«»»«H1«»^^^««^ 

• LOAD ADDRESS 

• OF $$BDUMP 

• TRANSIENT 
» IN REG 1 



»»J1»»*»»» 

SVC2 

$$BDUMP 

CHART NV 



• SENSE DATA 



TAPE ♦. 
FILE 
.PROTECTED.* 



*»»H4*»»«*»»» 
SET SEARCH- 
FIELD 
BY REDUCING 
THE RECORD 
NUMBER BY 1 



SET SEARCH 
ADDRESSES IN 

SEARCH, AND 
SEARCHl CCW'S 



**«**J5«'i'«««*««« 

• MODIFY OUTPUT 

• AREA POINTER 

• AT LABELS LA 

• AND MVC FOR 
•2ND LINE PRINT 
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Chart NQ. Output Message on Selected I/O Device $$BILSVC; 
Refer to Supervisor, Chart 28 



* PRINT * 

* * 



PRINT X 

♦ ♦♦**(; 3«#«******« 

♦ LOAD AUDRESS * 

♦ CF CCB * 
» INTO ktG 1 * 



**♦****♦♦* 



if*:tit***** 



* EXIT TO » 

* ACliRESS IN * 

* LINK REGISTER ♦ 
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Chart NR. 



Prepare Canceled Program's PSW for Output Message 
and PIOCS Subroutine $$BPSW; Refer to Supervisor, 
Chart 27 



•*«>*A1********* 



*«**••*•****«•• 



* LOAD ADDRESS 

* OF PIB TABLE 

* INTO REG 7 



••••*«*«********i 



•****C1**4>******* 



•SAVE AREA FROM « 

* LOGICAL TRANS • 

• BUCKET • 



X 
• *. 

B2 *. 
.♦ IS ♦. 

.♦ SYSL06 ♦• NO 
*. UNIT .*... 
*. ASSIGNED .* 
♦. .♦ 
• . .♦ 
♦YES 



♦ . 



C2 

* 
SYSLOG 

SYSLST 

♦• • 

*. .• 

*N0 



F6J0B 

♦ZERO REG 5 AND * 
STORE LUB 



OF SYSOOO 
* INTO REG 4 * 



NO 



*•♦* 

* 3 * 

* • 



C4 



.♦FOREGROUND 
...*. SYSOOO 

♦.ASSIGNED . 
♦ . .♦ 
X ♦. .♦ 
♦♦♦♦* ♦YES 
♦NS ♦ 
♦ El^ 
♦ ♦ 



♦♦♦♦Dl^^^^^^^^^' 



i»«9«4>*«*««4i««**: 



♦♦El^^^^^^^ 



♦•♦♦♦02^^^^^^^^^^ 



•••«>•*••****•**«* 



TRANSLATE 
USERS PSW 
INTO HEX 
DATA FOR 
♦ PRINTING ♦ 



^ STORE LOGICAL ^ 
UNIT NUMBER 



♦ SWITCH IN ♦ 

♦ COMREG AS 

♦ CANCEL BIT ♦ 

♦ FOR JOB CTRL^ 



.♦ IS ♦. 

SYSLST 
♦.ASSIGNED .♦ 



♦♦♦•♦♦♦♦***♦♦♦•♦♦ 



♦♦♦♦♦ 
♦NS ♦ 
♦ El^ 



♦ LOAD ADDRESS ♦ 

♦ OF 2 X SYSLST ♦ 

♦ INTO REG 8 ♦ 



• **«i*4i*«*««»«*]»** 



♦♦♦•*E4^^^^^^^^^^ 

♦ LOAD HEX 100 ♦ 

♦ INTO REG 5 AS ♦ 

♦ LOGICAL UNIT ♦ 

♦ NUMBER FOR ♦ 

♦ SYSOOO ♦ 
•***•***«***♦•*** 



♦♦♦♦♦Fl^^^^^^^^^^ 



• *****4>*«*«***«** 



♦PRINT NR^ 
♦-♦-♦•>♦-♦-♦-♦-♦-♦ 
♦ PRINT MESSAGE ♦ 



SYSLOG 
♦♦♦^^^^^ 



••«**«»««4i******* 



SETLOGUN X 

♦•♦♦♦F3^^^^^^^^^^ 
♦ STORE LOGICAL ♦ 
^ UNIT NO. OF ♦ 
SYSLST INTO ♦ 
OUTPUT CCB ♦ 
ZERO REG 5 ♦ 



♦ SYSL 

♦ OUTPI 

♦ ZERO 



♦ * 

♦ PRINT ♦ 

♦ ♦ 



LOGGER X 

♦ LOAD ADDRESS ♦ 

♦ OF LUB TABLE ♦ 

♦ INTO REG 4 ♦ 



«•**••«••«*•«*•*• 



♦ 3 ♦... 

♦ ♦ . 
♦♦♦♦ . 

ONLIST X 

♦ MOVE 120 ♦ 

♦ INTO BYTE ♦ 

♦ COUNT AREA ♦ 

♦ OF MESSAGE ♦ 

♦ CCW ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



««**«G3^*^^^***** 
♦ GET SYSLST ♦ 
PUB TABLE 



♦DISPL INTO REG5^ 
♦AS 8X(PUB-PNTR ♦ 
♦IN SYSLST LUBI 



**•****«•*«••*•** 



♦ LOAD ADDRESS ♦ 

♦ OF CCB ♦ 

♦ INTO REG 1 ♦ 

♦ • 



****«H1 ♦♦♦♦♦♦♦♦♦♦ 



MESSAGE 
ITO DATA 
IRESS.QF 



♦ 2 ♦ 

♦ ♦ 
♦♦♦♦ 



4i****H3^^^^^^^^^^ 



♦♦♦♦♦♦HS*^^^^^^^^^* 



MITH ADDRESS ♦ 



LOAD REG 
MITH ADORE.. 

♦ OF PUB TABLE 

♦ w 
♦••♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



MRITI 
A L," 

SVI 



LITE 



♦♦♦♦#♦♦♦♦♦♦♦♦ 



♦♦♦♦♦J !♦♦♦♦♦♦♦♦♦♦ 

♦ PRINTING A ♦ 

♦ LINE ♦ 



♦ LOAD u__ 
♦OF SYSLST 
♦ENTRY ^'' 



♦ ♦H* ♦ 



♦•" *'♦ 

.^♦:*'cOMtf?TED* 



♦♦♦♦♦ 



ki 



\h 
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Chart NS, Select I/O Device and Prepare to Output a Message 
$$BPSW; Refer to Supervisor, Chart 27 



***** 

♦NR * 
♦ J3* 





















* GET SYSLST • 


















♦ DEVICE TYPE » 


















♦ FROM ♦ 


















♦ PUB TABLE » 


















♦ ♦ 










**** 






**** 












♦ ♦ 

♦ I ♦ 

♦ ♦ 
♦ *♦♦ 






♦ * 

♦ 4 ♦ 

♦ * 
♦*♦♦ 


X 


TPTYPE .♦. 




TPTYPEl .*. 


OKTYPE 




X 


CI* **. 




C2 *. 






C3 ♦. 








«* ♦. 




.* *. 






«♦ ♦. 


♦ LOCATE AND ♦ 






.♦ ♦. NCi 




.♦ ♦. YES 




.» SYSLST ♦. YES 


♦ STORE THE ♦ 




♦ SET DATA ♦ 


♦. PRINTER .*•... 




X*. BACKGROUND .♦. 
». JOB .* 






*♦. DISK .♦ 


....X^ DIB TABLE ♦ 
♦ ADDRESS INTO ♦ 




♦ ADDRESS IN ♦ 


*. .♦ 


** 


• • • • 


• • • 


♦ OUTPUT CCW » 


*. .* 




♦ . .* 






*. .♦ 


♦ REG 5 ♦ 






♦ . .* 




*. .» 






♦ . .♦ 


**************^** 






*YES 




♦ NO 






♦NO 








V** 




• 






• 








♦ 2 »... 

* ♦ . 




• 






I 








♦ ♦♦* 




X 














BALR14 X 


FGLST .*. 






X 


X 






***4t»01 *******«*« 




D2 *. 






****itQ-^*****:f**** 


**1^**Q/^********** 




*****Q^********** 


♦PRINT NR* 




.♦ ♦. 






♦ LOAD FIRST ♦ 


♦ LOCATE ♦ 




♦ PUT ADDRESS ♦ 


♦_♦_♦_♦_♦_*_«_♦_♦ 




.* *. NO 




♦ BYTE FOR ♦ 


♦ SYSLST ♦ 




♦ OF FIRST ♦ 


* MESSAGE * 




*. TAPE .♦ 






♦ TAPE OUTPUT ♦ 


♦ DIB-ENTRY ♦ 




♦ CCW IN CHAIN ♦ 


* ON * 




♦. .* 






♦ INTO DATA ♦ 


♦ INTO REG 5 ♦ 




♦ INTO RbG S ♦ 


♦ SYSLST * 




♦. .♦ 






♦ADDRESS IN CCW » 








************* ***Jt 




». .♦ 
♦ YES 


X 

♦ *♦ 


^ 


****t-************ 








**** l **** 






* 


* 










* * , * * 






♦ 3 


* 










* 3 * * * *NR- 


■C4 




* 


* 








X 


* * . ♦ * ♦ NR- 


-E3 




♦ ♦♦ 


* 








*♦♦♦ 


**** , **** 
















♦ * 


TERM X 




X 








.♦. 




♦ 5 ♦ 


*****^l********** 




*****^2********** 






*»4i4<«g34[»^4i4[*4c*«4[ 


E4 ♦. 




♦ ♦ 


* * 




* LOAD ADDRESS ♦ 






♦ PICK UP ♦ 


.♦ ♦. 




*♦♦* 


* LOAD ADDRESS * 




♦ OF FILE ♦ 






♦ CCW ADDRESS ♦ 


.♦ SYSLST ♦. YES 




* OF SiBDUMP * 




♦ PROTECTION ♦ 






♦ AND LOAD ♦ 


♦. EXTENT .♦. 






♦ INTO REG 1 * 




♦ SENSE CCW ♦ 






♦ INTO REG 5 ♦ 


♦. FILLED .♦ 






* * 




♦ INTO REG 5 * 






♦ ♦ 


♦ . .♦ 






***************** 




***************** 






**** * 

* ♦ . 

♦ 5 ♦... 

♦♦♦♦ ! 


♦ • .♦ 
♦ NU 


X 

**** 

* * 

**** 








X 




STH X 


X 






X 




♦♦♦♦♦F2^^^^^^^^^^ 






*****f^********** 


*****f^********** 






****fl********* 




♦ STORE SENSE ♦ 






* * 


♦ SET SEEK ♦ 






• FETCH * 




♦ CCW ADDRESS ♦ 






♦ STORE CCW ♦ 


♦ ADDRESS IN ♦ 






♦ $$BDUMP * 




♦ IN OUTPUT ♦ 






♦ ADDRESS INTO ♦ 


♦ CCW AND SET ♦ 






♦ CHART NV ♦ 




♦ CCB ♦ 






♦ OUTPUT CCB ♦ 


♦COUNT FIELD IN ♦ 






*************** 










^ * 


♦ OUTPUT AREA ♦ 
♦♦♦♦♦*♦♦♦♦♦*♦♦»♦♦ 







***********ti***** 



.♦ TAPE 
FILE 
♦.PROTECTED. 



♦ 1 ♦ 

♦ * 
**** 



*****Qi^********** 

♦ SET SEARCH ♦ 

♦ FIELD IN CCW ♦ 

♦ BY REDUCING ♦ 

♦ THE RECORD ♦ 

♦ NUMBER BY I ♦ 



^****^i^********** 

♦ SET SEARCH ♦ 

♦ ADDRESSES IN ♦ 

♦ SEARCH AND ♦ 

♦ SEARCHl CCWS ♦ 
4t * 
***************** 



*****j^********** 

* LOAD ♦ 

* TRANSFER ♦ 

* ADDRESSES ♦ 

* IN TIC CCWS » 

* ♦ 
*♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦ 

♦ ♦ 

♦ 4 ♦ 

♦ ♦ 
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Chart NT. Prepare Information for Message about PC Cancel 
and Select I/O Device $$BPCHK; Refer to 
Supervisor, Chart 28 



***** 

♦NU ♦ 
* 61* 



♦*** 

* * 

* 6 ♦ 

* * 
«*«* 



****A1********* 

♦ * 

♦ $$BPCHK ♦ 

♦ ♦ 
*************** 



START X 

*****B1 ********** 

♦ GET AODR OF ♦ 
♦LOGICAL TRANS- * 

♦ lENT BUCKET * 
♦FROM PIB TABLE ♦ 

♦ * 
***************** 



*****Cl********** 

* MOVE JOB NAME * 
*FROM PROB PROG * 

* SAVE AREA TO * 

* FIELD CALLED * 

* TXTNAM ♦ 
***************** 



DI ♦. 
.♦ BG ♦. 

.* PROGRAM *. N 
.CAUSE OF PROG.*. 
*. CHECK .♦ 



*****E1********** 

♦ OVERLAY NAME * 
♦IN TXTNAM WITH * 

♦ NAME FROM JOB ♦ 

♦ STATEMENT NOW ♦ 

♦ IN COMREG » 
***************** 



.X. 



NOTBG X 

*****F1 ********** 

♦ GET LAST 4 ♦ 

♦ BYTES OF OLD » 

♦ PSW FROM SAVE ♦ 

♦ AREA AND PUT * 

♦ INTO REGS 7-8 * 
***************** 



*****A2********** 
•ZERO REGS Bi 6.* 
♦GET INTRPT CODE* 
♦ FROM OLD PSW ♦ 
♦DOUBLE CODE TO ♦ 
♦INDEX MSG TABLED 
***************** 



*****B2^^*^^^*^*^ 
♦GET MSG LENGTH * 
♦AND DISPLACEHNT^ 
\^FROM TBL TO USE^ 
♦WITH TXTAB FOR ♦ 
♦APPROPRIATE MSG^ 
***************** 



♦ BLANK AREA OF ♦ 

♦ 91 BYTES FOR ♦ 

♦ OUTPUT MSG ♦ 
♦ASSEMBLY. WIPES^ 
♦OUT PREV INSTS ♦ 
***************** 



*****D2^^^^^^^^^^ 

♦ BLANK AREA OF ♦ 

♦ PREV USED TBL ♦ 
♦FOR USE AS 2ND ♦ 

♦ OUTPUT MSG ♦ 

♦ AREA ♦ 
***************** 



*****E2^^^*^^^^^^ 

♦ USE EXEC INST ♦ 
♦TO MOVE MSG TO ♦ 

♦ OUTPUT AREA ♦ 
♦REGS8 AND 6 HAD^ 

♦ MSG AODR. LNG ♦ 
**********i****** 



♦PT REG 8 TO OUT^ 
♦PUT AREA, INDEX^ 

♦ BY MSG LENGTH ♦ 

* MOVE NEXT * 
♦.PART OF MSG IN ♦ 
***************** 



.♦ ♦. NO 

SYSLOG .♦... 
♦.ASSIGNED .♦ 



*****C3********** 

♦ STORE SYSLOG ♦ 

♦ SYM UNIT AODR ♦ 

♦ AND AODR UF ♦ 

♦ CCWLG IN CCB * 

♦ * 
***************** 



*****03********** 
♦PRINT NU* 
*-*-*-*-*-*-*-*-* 

♦ USING SYSLOG ♦ 

♦ PRINT MSG ♦ 

♦ » 
***************** 



*****A4***^^^^^^* 

♦ LOAD ADDR OF ♦ 
♦CCW APPROPRIATE* 
*T0 OEV IN REG L* 
*ST0RE CCW ADDR * 

* IN CCB * 
***************** 





***** 




♦YES 




♦ NU ♦ 




**** 




♦ F2* 




♦ • 




* * 




...♦ NU * 




* 




» K2* 








X **♦* 




TPTYPEl 


.*. 


*****B4********** 






B5 *. 


*PRINT NU* 






* ». 


*-*-*-*>•-*>*-*-* 


YES .* 


IS *. 


* WRITE MSG * 


...*. 


SYSLST .♦ 


* ON I/O DEVICE * 




*. 


A DISK .* 


* * 






*. .» 




X 




*. .* 




*»** 




*N0 


**** , 


* * 






* * . 


* 7 * 






* 4 *... 


* * 




* 


* ♦ . 


**** 







TERM X 

*****04********** 

* LOAD AODR IN * 

* REG I OF * 

* NAME * 

* iSBDUMP ♦ 

* * 
***************** 



ONLIST .♦. 




E3 ♦. 


X 


.♦ ♦. 




.♦ BG ♦. NO 


♦ SVC 2 


*. PROGRAM .*.... 


♦ SSBDUMP 


♦ . .♦ 


♦ CHART NV 


♦ . .♦ 




♦ . .♦ X 




♦YES ♦♦♦♦ 




♦ ♦ 




♦ 5 ♦ 




* * 




**** 





*****C5********** 
♦STORE DATA AOUR^ 
♦OF TPLINE INTO ♦ 

* CCWTP VIA ♦ 

* REGl * 

* * 
***************** 



*****D5********** 
♦STORE DATA ADDR* 

♦ OF TPLN INTU ♦ 
♦CCWTAP VIA REGl^ 

♦ LOAD ADDR L.F * 

♦ CCWTP IN REGl ♦ 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****F3********** 
♦RESET CATAL AND^ 

♦ SUPVR UPDATE ♦ 

♦ BITS IN JCSWl ♦ 
♦SET CANCEL BIT ♦ 

♦ IN JCSWO ♦ 
***************** 



***** 
♦NU ♦ 
♦ B2^ 



*****G1 ********** 
♦SHIFT REG a TO ♦ 

♦ ISOLATE ILC ♦ 

♦ DOUBLE INST ♦ 

♦ LNG TO CHANGE ♦ 
♦HALFWOS TO BYTE^ 
***************** 



G3 ♦. 

.♦ ♦. 

♦ SYSLST ♦ 

ASSIGNED 



FGJ06 X 

*****G^********** 

♦ ZERO REG 5 PT ♦ 
♦TO 1ST PROG LUB^ 
♦DOUBLE POINTER ♦ 

♦ TO GET LUB ♦ 
♦ENTRY OF SYSOOO^ 
***************** 



♦ 7 ♦.X. 

♦ ♦ . 
*«** 

OKTYPE X 

*****Q5********** 

♦ LOAD ADDR OF * 
♦DIB INTO REG 5 ♦ 
♦INDEX 72 BYTES * 

♦ TO POINT TO ♦ 

♦ SYSLST DIB ♦ 
***************** 



*****H1********** 
*SUB REG 8 FROM * 

* REG 7 TO GET ♦ 

• ACTUAL INST * 

* AODR WHICH * 

♦ CAUSED INTRPT * 
***************** 



*****H2********** 
*LOAO DATA ADDR • 
*LABELED LSLINE * 
*INTO CCWLG AND ♦ 

* CCWLS VIA • 

♦ REG I ♦ 
***************** 



♦ 8 ♦... 

♦ ♦ . 

**** . 
SETLOGUN X 

*****H3********** 
♦STORE SYM UNIT ♦ 
♦AODR FOR SYSLST* 
♦IN CCB ZERO REG^ 

♦ 5 AND LOAD IN ♦ 
♦PUB ENTRY PNTR ♦ 
***************** 



.♦ SYSOOO 
♦. ASSIGNED 



*****H5********** 
♦COMPARE CURRENTS 
* AODR WITH ESQ * 
*AODR IN SYSLST ♦ 
*OIB FOR EXTENT * 
♦FULL CONDITION ♦ 
**«•**********••* 



*****J1********** 
♦UNPK INST ADDR ♦ 

* PUT RESULT IN * 
*AREA NAMED LCN.* 

* WILL BECOME * 

* PART OF MSG * 
•*****•*••***«**« 



*****J2********** 
*PUT APPROPRIATE* 
*OATA AOORS INTO* 
*CCWLGlt CCWSKP * 

* CCWLOG AND * 

* CCWLST * 
***************** 



•****J3********** 
*CALC PUB TABLE * 
*DSPLT IN REG 5 * 
*ADD PUBTAB ADDR* 

* IN REG 6. GET • 

* SYSLST ENTRY * 
«********«*•***«* 



*****J4********** 

* STORE LOGICAL * 

* UNIT ADDR IN * 

* CCB. SIMULATE ♦ 

* SYSOOO AS * 

* SYSLST * 
**•****«*•***•*•• 



*****K1********** 


*****K2********** 


K3 *. 


*SHIFT REG 7 TO 


* 


*LOAD 


L4JB TABLE 




.* * 


:cJI?'JSIn8?''?o 


* 


iLSB-SvitloS^SNS 




.* SYSLST 


* 




*. DEVICE A 


*PRINT OCML STOR* 


:"fi 


ilsfJ5k8« 




*. PRINTER 


* IN MSG AREA 


* 




*. .* 


******«***•****•• 


•*****•**••**•**• 


*. •♦ 


• 






. 




♦YES 


























X 






X 




X 


**•• 






•*•• 




**•• 


• * 






• * 




• * 


* I * 






* 2 ♦ 




♦ 3 * 


* * 






• * 




• * 


***• 






*«•• 




•*•• 



*****K5***«****** 

* STORE CURRENT * 

* ADDR FROM * 

* SYSLST OIB * 

* INTO SEEK * 

* CCWOK * 
**•**•***•**•*•** 



***** 
*NU * 
* Bl* 



552 DOS System Control 



Chart NU. Set Up for I/O and. Output the 
Refer to Supervisor, Chart 28 



Message $$BPCHK; 



***** 

♦NT ♦ 
♦ K5* 

* * 



* MODIFY INST* 

* AT MVC TO USE* 

* OKLN AREA AS * 

* HSG 2N0 LINE * 

* OUTPUT AREA* 
********i^***** 



****A4********* 

* » 

* PRINT * 

* * 
******m******m* 



*****B1********** 

* HOVE COUNT ID * 

* INFO FROM * 

* CURRENT ADDR * 
*T0 OUTPUT AREA ♦ 

* AS CCHHRKOU * 
***************** 



***««C1 ********** 

*MOVE CCHHR FROM* 
*CURRENT ADDR TO* 
*SRCHBCKT FIELD * 

* REDUCE RECORD • 

* NO. BY 1 * 
***************** 



*****Q2******* 

* MODIFY INST* 

* AT LA SO DKLN* 
*AODR WILL LOAD * 

* IN CCW AS NEW* 

* DATA ADDR * 
************** 



***** 
*NT * 
* G5* 



LOAD CCB 

ADDR INTO 

REG 1 

*************** 



***Q^*********** 



************* 



*****D1 ********** 

* LOAD REDUCED * 

* SRCHBCKT ADDR * 
*INTO SEARCH CCW* 
*AND SEARCHl CCW* 

* * 
***************** 



***4>*E1 ********** 
STORE ADDR OF * 
SEARCH CCW IN » 
IC CCW AND OF * 
*SEARCH1 CCW IN * 
* TICl CCW * 
***************** 



* STO 

* SEA 
*TIC 



*****F1********** 
♦STORE DATA ADDR* 
*GF DKLINE OUTPT* 
* AREA IN WCKO * 
♦CCW.LD ADDR OF ♦ 
♦CCWCKD IN REG I* 
***************** 



***** 

• NT * 

♦ A5* 



.♦ IS I/O *. 
.DEVICE A TAPE. 
*. DRIVE .* 



.* I/U *. YES 
. OPERATION .*... 
*. COMPLETE .* 



4>**4>E4********* 

* SVC 7 * 

* PROB PROGRAM * 

* WAIT * 
*************** 



****f^********* 

* RETURN * 

* VIA R14 * 
« * 

*************** 



***** 

♦ NT ♦ 

* 04* 



.♦ SWITCH *. 

.BRANCH ON 2N0. 

*.TIM£ THRU.* 



*♦*•* 
♦NT ♦ 
♦ A^* 



*****Q2********** 

* STORE ADDR OF ♦ 

* INST LBLD ON- ♦ 

* LIST INTO CCW ♦ 

* TO RCV SENSE * 
*DATA FROM TAPE * 
***************** 



*****»l******* 

* * 

* SET SWITCH 

* AT NOP TO 

* BRANCH 

* ♦ 
************** 



*****yiZ********* 
* 

* STORE ADDR 

* OF CCW SENSE 

* IN CCB 
♦ 
**************** 



*****jl********** 

* * 

* STORE ADDR ♦ 

♦ OF CCW FROM ♦ 
♦REG I INTO CCB ♦ 

♦ ♦ 
***************** 



*****J2********** 
♦PRINT NU^ 
♦-♦-•-♦-»-*-♦-♦-♦ 

♦ SENSE FOR ♦ 

♦ FILE PROTECT ♦ 

♦ ON TAPE DRIVE ♦ 
***************** 



*****\Hl********** 
♦PRINT NU* 
*-*-*-*-*-*-.*-*-* 

* WRITE FIRST * 
♦LINE OF MSG AS * 

* REC ON DISK ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



TAPE 


♦ . 


YES 


DRIVE FILE 




♦ .... 


.PROTECTED. 


♦ ' 




♦ . .♦ 






♦ • .♦ 




X 


♦NO 




***** 
♦NT ♦ 
♦ 04^ 


X 




♦ ♦ 


♦ ♦*♦♦ 




♦ 


♦NT ♦ 






♦ B5^ 
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Chart NV. Monitor Background Program Dump $$BDUMP; Refer to 
Supervisor, Chart 27 



* * 
« iSBDUHP * 

♦ *k2 * 



♦ A2 
ENTERED VIA SVC 
ISSUED BY 

SSBPCHK 

$$BILSVC 

$$BPSW 

AND DIRECTLY 
FROH PROBLEM 
PROGRAM WHEN 



♦♦♦♦ 

* 1 ♦ 

* * 



* * 

♦ 3 ♦ 



4>****B1***'»*****' 



*^*^i*f *********** 



♦ TURN ON ♦ 

♦ CANCEL FLAG ♦ 

♦ IN PIB ASSIGN 

♦ FLAG BYTE ♦ 

♦ * 



SYSLST 

A TAPE 

DRIVE 



♦ SET TAPE ♦ 

♦ INDICATOR REG * 
» 12 FOR CALLED * 

♦ DUMP PROG TO ♦ 
*IDENT TAPE JOB * 



.♦ X 

YES ♦♦♦♦* 
♦NW * 
♦ AI* 

* * 



DUMP 

MACRO 

CALL 



FI ♦. 

.♦ DUMP ♦. 

SWITCH 

IN COMREG 



CANCEL 
MACRO 
CALL 



SYSTST .♦. 

HI ♦. 
.♦SYSLST ♦. 
.* ASSIGNED 
*. IN LUB 
♦. TABLE . 
♦ . .♦ 
♦ . .* 
♦YES 



PRINTER X 

♦ LOAD REG I ♦ 

♦ WITH ADDRESS ♦ 

♦ OF NAME ♦ 

♦ SSBDUMPB ♦ 
» ♦ 



♦♦♦♦E3+*+^++*^* 

♦ SVC 2 ♦ 

♦ $$BDUMPB ♦ 

♦ CHART PB ♦ 



DSKRT X 

♦ LOAD REG 1 * 

♦ WITH ADDRESS » 

♦ OF NAME ♦ 

♦ SSBDUMPD ♦ 

♦ ♦ 



****C5^ + ^*^** + + «' 



ni^t^^if^nf******** 



♦ SVC 2 » 

♦ $$BOUHPD » 

♦ CHART PG ♦ 



♦ 2 ♦ 

* ♦ 



SETCODE X 

♦ MOVE X«10« ♦ 

♦ CANCEL CODE 

♦ INTO PIB 

♦ FOR NORMAL 

♦ EOJ ♦ 
************** 



*****Jl*********> 

♦ LOCATE PUB 

♦ ENTRY 

♦ ASSOCIATED 



*****J2********** 

♦ LOAD REG I ♦ 

♦ WITH ADDRESS ♦ 

♦ OF NAME ♦ 

♦ $$BEOJ ♦ 

♦ ♦ 
***************** 



.* 


rsHJ 


*. 


YES 






♦ .... 


*, 


DRIVE 


.* 






♦ . .♦ 








♦ . .♦ 




X 




♦NO 




•♦•♦ 








• 1 








♦ 3 




X 




♦ 




**♦♦ 




*♦•♦ 




• ♦ 








♦ 1 ♦ 







*«i**K3^^^^^^^^^ 

♦ SVC 2 ♦ 

♦ ttSEOJ ♦ 

♦ CHART NA * 
*************** 
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Chart NW, Monitor Foreground Program Dump $$BDUMP; Refer to 
Supervisor, Chart 27 



FGJCB X 

♦ CALC UPPER ♦ 

♦ STOR LIMIT OF * 

♦ CANCELED PROG * 

♦ SAVE IM REG 8 * 

♦ * 
***************** 



* 2 * 

* * 
**** 



CANCEL 
MACRO 
CALL 



DUMP 

MACRO 

CALL 



^****Ql******* 

♦ MOVE X'lO' * 

♦ CANCEL CODE 

♦ INTO PIB 

♦ SIMULATE 

♦ NORMAL EOJ * 
************** 



♦ LOCATE 

♦ SYSGOO 

♦ IN LUE 

♦ TABLE 

**i^*************, 



TAPEl X 

*****Qit********** 

♦ MOVE DATA ♦ 

♦ ADDRESS INTO ♦ 

♦ CCW AND CCB * 

♦ rO PREPARE * 

♦ FOR SENSE I/O ♦ 
**********if****m* 



*****Ci,********** 

* SET TAPE * 

• INDICATOR REG ♦ 

♦ 12 FOR CALLED * 

♦ DUMP PROG TO ♦ 

* IND TAPE JOB ♦ 
************1L**** 



*****Qi^********** 

* LOAD ADDRESS ♦ 

♦ OF CCB FOR ♦ 

• SYSOGO INTO ♦ 

♦ REG 1 ♦ 

* * 
***************** 



SVC 

EXECUTE 

♦ SENSE * 

COMMAND 

****nf******** 



it***fe^********* 

* SVC 7 * 

* WAIT * 

* * 
lf**0*********** 



,***C,i********** 

DETERMINE * 

PUB ENTRY * 

ASSOCIATED * 



NU . 


» 


TAPE ♦ 


• ••♦. 


* 


PROlfecTEO.* 






*. .* 






*m .♦ 


4>** 




♦YES 


* 






3 * 






* 




X 


*** 




♦ * 

♦ I » 

♦ ♦ 

♦ ♦♦* 



.♦ SYSGOO ♦. NO . 


.* SYSOGO ♦. 


YES 


*. A PRINTER .*.... 


♦. A TAPE .*.... 


*. .♦ 


♦. DRIVE .♦ 




♦. .* 


♦ . .* 




*. .♦ 


♦ . .♦ 


X 


♦YES 


♦ NC 


♦ »** 


• *** 


**** 


* 


♦ ♦ • 


* ♦ . 


♦ 2 


♦ 3 ♦... 


♦ I ♦... 


* 


♦ ♦ . 


♦ ♦ . 


**** 


**♦« 


♦ *♦♦ 




FETCH X 


TERM X 






:l^****J2********** 










♦ LOAD REG I ♦ 


* LOAD REG 1 




» NITH ADDRESS ♦ 


* WITH ADDRESS 




♦ OF NAME ♦ 


* OF NAME * 




♦ SSBDUHPF ♦ 


* $$BTERM 











****t(,l********* 

* SVC 2 ♦ 

* $$BDUMPF ♦ 

* CHART NX ♦ 
*************** 



i,***f(2********* 

♦ SVC 2 ♦ 

♦ $$BTERM ♦ 

♦ CHART NE ♦ 
*************** 
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Chart NX. Foreground Program Dump $$BDUMPF; 
Supervisor, Chart 29 



Refer to 



COMP Fl 

IDENTIFIER 

X'30' WITH 

LOGICAL 

TRANSIENT KEY 



» MOVE F2 INTO 
• HDG REPLACING 
» Fl PROGRAM 
•IDENTIFICATION 



•♦♦»EI***«*«» 
LOCATE IN PIB 

FOR F2 ITS » 
STARTING ADDR 

MODIFY INST » 
TO LOAD REG 8 



STARTl X 

»*LOAD AND*TEST » 
» TAPE REG 12 * 
•(SET BY $$BDUMP« 
•TO IDENTIFY IF ♦ 
•SYSOOO IS TAPE)» 



• LOAD ADDR OF • 
•TPLINE IN REG 1» 
•STORE THIS ADDR* 

• IN CCW4 » 



♦••C2»^*^^«* 

SET • 

SWITCHES AT 

OUTl AND AT 

TAPNOP TO 

BRANCH • 



• LOAD ADDR OF 
•CCW4 INTO REG 1 

• THEN STORE IT 

• IN CCBl 



RELOCF X 

♦»«*«£ 2* **•*•••♦• 

* STORE ADDR OF • 
♦CCW4 INTO CCB2 • 
*LD A 4 IN REG 4» 
•AS WORK LENGTH • 

* INCREMENT » 



• ZERO REG 12 • 
•FOR USE AS PAGE* 
•CTR. ZERO REG 2* 
•TO USE FOR PAGE^ 

• LINE COUNTER • 



•««««G2« *••*•»•• 
•STORE REG 8 IN 
•SAVARA. IT HAS 
•PROG UPPER LIM 
•CALC AND SAVED 
• BY $$BDUMP 



•SKIP TO CHAN 1 
• AND WRITE HDR 
•LINE OR TP RCD 



• GET REG SAVE 

• AREA ADDRESS 
•FROM REG 9 DE- 
•LIMIT 32 BYTES 
•BY REGS 3 AND 5 



SET HDG FOR 

FIRST LINE OF 

GEN REGS AND 

CONTROL BYTE 

FOR TAPE 



•• FLOATING •. 
.POINT FEATURE. 
•. SWITCH .♦ 



»«»»»B4»»^»*»»*^ 
•CLEAR I/O AREA 

• STORE FLT PT 

• REGS DELIMIT 

• REG SAVE INFO 
•BY REGS 3 AND5 



•EDIT AND WRITE 
•FLOATING POINT 
• REGS LINE 



WRITE LINE 

OR RECORD OF 

LABEL INFO 



COREl 

♦CLEAR I/O AREA 

• MOVE PRPROG 

• HDG--F1 — 

• OR — F2 — IN 



***»03********** 


•♦•••D4^»»^^^^^ 


REGPNT NZ^ 


•SET BEGIN ADDR 




• OF SUPVR IN 


EDIT AND ♦ 


•REG 7. SET END 


WRITE GENL ♦ 


• ADDR IN 


REGS 0-7 * 


• REG 8 



««««-»E3«^^^«^^^* 
•POINT TO REG 8 

• INFO IN SAVE 

* AREA CHANGE 

♦ PRINT LINE 

♦ HDR INFO 



SET SWITCH 
AT LST TO 

BRANCH 



EDIT REG 8 



•EDIT AND WRITE 

• SUPVR PORTION 

• OF MAIN STG 



»#*«F4*^«^*^^ 
SET SWS EOJ» 
AND LAST LINE* 
TO NOP STOPS 

INDEX OF • 
ENDLIN INSTS* 



• ANY 

SPACE LEFT 
•. ON PAGE . 



SYSOOO IS PTR 

LOAD ADDR OF 

PTLINE INTO 

REG 1 



• STORE ADDR OF 

• PTLINE FROM 
•REG 1 INTO CCW 

• AND CCW2 



«««««K1*«««^««»** 
•LOAD ADDR CCWO ♦ 

• IN REG 1 THEN ♦ 

• STORE IT IN ♦ 
•CCBl LOAD CCW2 ♦ 
♦ADDR INTO REG 1* 



.* FLOATING *. 

.POINT FEATURE. 

•.ON SYSTEM. • 



»«*»»J2^ •••*•♦ 

• SET FPSW • 

• TO NOOP • 

• MODIFY INST • 
•POINTING TO LOW 

• LIMIT OF PROG 



NOTEST 

••♦»«K2^^^«^^^^»^ 
•CLEAR 115 BYTES* 
•OF STG UP TO X ♦ 
••86' THIS WIPES* 
» OUT PREVIOUS * 
• INSTS • 



SET SWITCH 

AT LST TO 

NOP 



«««*«J3^****^***« 

• SET LOWER • 
•AND UPPER SAVE • 

• AREA LIMITS • 

• FOR REGS 8-15 ♦ 
♦IN REGS 3 AND 5» 



♦EDIT AND WRITE 

♦ GENL REGS 

* 8-15 



•SKIP TO CH 1 ON 
• PTR WRITE HDR 
•LINE OR TP RCD 



•MOVE LABEL HDG 
•TO OUTPUT AREA 
•POINT TO LABEL 

• LNG INFO WITH 

• REGS 3 AND 5 



SET 

ALTER3 SW 

TO NOP 



WRITE PROB 

PROG HEADING 

LINE OR RCD 



««««»05^*^^^^^^^^ 
♦LOAD LOW LIMIT ♦ 
*PROBPROG IN REG* 
♦7 TEST IF ADDR * 

• ON A CORRECT * 

• BOUNDARY * 



• CORRECT *. YES 
ADDRESS .*... 

•.BOUNDARY .• 



»»*«»F5**«»»^^»*« 

* CORRECT REG 7 • 

♦ TO PT TO NEXT • 
♦MULTIPLE OF 16 ♦ 

• BOUNDARY OF * 
*PROB PROG START* 



SET ALTER 

SWITCH TO 

NOP 



C0RE2 

»»«*»H5*^» ••*•*»• 

• LOAD ADDR OF • 
•PROB PROG UPPER* 

• LIMIT FROM • 

• SAVARA INTO • 
» REG 8 • 



•WRITE PROB PROG* 
•PORTION MAIN ST* 
•AND TM IF NEED • 



SVC 2 

$$BTERM 

CHART NE 
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Chart NY. Prepare Page Headings and PIOCS Subroutines 
$$BDUMPF; Refer to Supervisor, Chart 29 



» ♦ 

♦ PA6HE0 ♦ 

♦ * 



PAGHED X 

* MOVE CHAR I ♦ 
♦INTO TPLINE AS * 

• CONTROL BYTE ♦ 

* FOR TAPE ♦ 

♦ OUTPUT » 
***************** 



***»*CL********** 

♦ EXEC INST * 

♦ USED TO CLEAR * 

♦ 120 BYTE * 

♦ PTLINE AREA ♦ 

♦ ♦ 



*«*«*0I********** 

* INCREMENT * 

* REG 12 FOR ♦ 

* PAGE COUNT * 

* CONV TO OCML * 
*STORE SAVE AREA* 
***************** 



«****E1*****4<**** 

* UNPK PAGE NO * 

* PUT IN HDR * 

* ASSEMBLY AREA * 

* CLEAR SIGN * 

* * 
***************** 



Fl *. 
.* HIGH *. 
.*OROER DIGIT*. NO 
*. OF PAGE NO .*.. 
*. ZERO .♦ 



*«***Gl********** 
*SUPPRESS LEAD- * 

* ING ZEROS BY * 

* MOVING BLANK * 

* INTO HI ORDER * 
*DIGIT OF PG NO * 

***«********:»**** 



HI *. 
.* 2ND *. 

.* HI ORDER *. NO 
*. DIGIT OF PAGE.*... 
*.N0. ZERO .* 



*****J1 ********** 
•SUPPRESS LEAD- * 
♦1N6 ZEROS -MOVE* 
*BLANK INTO 2ND « 
*HI ORDER DIGIT * 
♦OF PAGE NUMBER * 
***************** 



*«***B2********** 

* MOVE JOB DATE * 

* FROM COMREG * 

* AND PAGE NO. * 

* TO PRINT LINE * 

* ASSEMBLY AREA * 
***************** 



*****C2********** 

* * 

* LOAD ADDR OF * 

* CCBl INTO * 

* REG 1 * 

* * 
***************** 



*****02********** 

* INSERT LINE » 
♦COUNT PER PAGE * 

* FROM COMREG * 

* INTO REG 2 * 

* * 
***************** 



*****E2*********' 
* 

* DECREMENT 

* LINE COUNT 

* BY 1 
* 

***********»****; 



***** 


**** 


*NZ * 


* * 


* J5* 


* 3 * 


**** * * 


* * 


* * * 


**** 


* 2 *.X. 




* * . 




**** 




PRINT X 


TAPSYS X 


******B3*********** 


*****B4********* 
* TEST FOR 


* SVC * 


♦ F5 


* EOF ON 

* TAPE 


* * 



************* 



*****C3********** 

* * 

* REDUCE LINE * 

* COUNT BY I * 

* IN REG 2 ♦ 

* * 
***************** 



I/O 

OPERATION 
.COMPLETE . 



****E3********* 

* SVC 7 * 

♦ PROB PROG * 



****************: 



CA * 

* 

EOF 

ON 

TAPE 



LINE 

COUNT 

ZERO 



*****Q2 ********** 

* * 

* * 

* *H2 * 

* * 

* * 
***************** 



*H2 
SINGLE LINE COUNT IS SET 
JUST PRIOR TO THIS 
POINT, IT WILL NEVER 
BE ZERO HERE AND NEXT 
SEQ INST HILL NOT BE 
REACHED FROM THIS 
POINT. IF NO LINE 
COUNT WAS SET BY 
PROGRAMMER AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GENERATION TIME. 



TAPNOP .*. 

F3 *. 

.♦ SW *. 

.* IF SYSOOO *. B 

*.IS TAPE DRIVE.*. 

*. BRANCH .* 



**** 

* * 

* 2 * 

* * 
**** 



****G3********* 

♦ RETURN * 
*T0 ADDR IN LINK* 

* REG 14 » 
*************** 



*****04********** 

* LOAD X«0100' * 

* INTO REG. TO * 
*GIVE CLASS AND * 
♦UNIT NO OF DEV * 
*FOR EOV RETURN * 
***************** 



*****E4******* 

♦ OR INTO ♦ 

♦ COMREG+89 ♦ 
♦A X«02' TURNING^ 

♦ ON EOV RETURN^ 

♦ SWITCH ♦ 
************** 



* LOAD ADDRESS * 

* INTO REG 1 ♦ 

* OF NAME * 

* $$BCMT07 * 

* * 
***************** 



****G4********* 

* SVC 2 * 

* $$BCMT07 * 

* * 
*************** 



****D5********* 

* RETURN TO ♦ 

* ADDR IN LINK ♦ 

* REG 14 * 
*************** 



♦ F5 
IF SYSOOO IS 
PRINTER IN PAGHED 
SUBROUTINE SKIP 
TO CHANNEL 1 
PRINT PAGE NOR 
AND DOUBLESPACE. 

FROM REGPNT 
SUBROUTINE ONE 
LINE PRINTS AND 
ONE SPACE IS 
TAKEN. IF SYSOOO 
IS A TAPE DRIVE 
A TAPE RECORD IS 
WRITTEN. 



•****K1********** 

♦ * 

♦ MOVE JOBNAME ♦ 

♦ TO PAGE HOG ♦ 

♦ ASSEMBLY AREA ♦ 

♦ * 
***************** 
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Chart NZ. Prepare and Edit a Line Subroutine $$BDUMPF; 
Refer to Supervisor, Chart 29 






* • 

* 3 ♦ 

* • 



RE6PNT X 

• BLANK AREA • 

• OF I/O OUTPUT • 

• DATA • 



****B2********* 



«•*******•*•*** 



***•*•••*•***•••* 



ALTER2 X 

♦♦♦•♦B5********** 

* INCREMENT * 

* REG 6 BY 9 * 
*FOR NEXT UNPKD * 

* WORD PRINTING * 

* LOCATION * 
***************** 



REG 6 WILL • 

• POINT TO LOGS ♦ 

• ALONG LINE • 



REGPNTl X 
^ LOAD A ' 



••**••••*******•* 



ON FIRST TIHE THRU 
LOOP FOR 2N0 REG 
LINE BR WILL OCCUR 
IMHED SINCE NO NEW 
LIMIT YET SET 
IN REG 5. 



• • 

• UNPK ♦ 

• « 



• 6 



UNPK X 

••***E1«********* 

• HOVE A BYTES • 
*FROM SAVE AREA « 

• POINTED TO BY • 
•REG 3 INTO AREA* 

• NAMED WORK * 
***************** 



♦ MOVE BLANK • 

♦ PRINTABLE ♦ 

♦ CHARACTER TO • 

♦ LABEL FSTWO • 

♦ * 
**************4i4t* 



*****E3********** 

* BLANK OUT * 

• ADDITIONAL 17 * 

♦ BYTES (FIRST ♦ 

* TWO WORDS) * 

• • 



****4>F3******* 



******4i**4i***«**4> 



•••••Gl*******«** 

♦ UNPK 4 BYTES ♦ 

* FROM REG SAVE • 

* AREA PUT INTO * 

• LINE AREA • 

• * 



*****HI***«***«*4i 

• SEPARATE REGS * 

♦ WITH BLANK * 



«•«•••«*•««•***•« 



**********4t*4>4'*** 



•••**G2******* 

* • 

* SET ALTERS 

* SWITCH TO 

* BRANCH 

* * 
************** 

« 2 *... 

* ♦ . 
♦•♦♦ X 

ALTER .*. 

H2 *• 
.* *. 

*l SWITCH 
*. .♦ 
•• .♦ 
♦ . .♦ 

•NOP 



•••• 

• • 

• 3 • 

• • 
**•• 



• 


SET ALTER 


* 


SWITCH TO 


* 


BRANCH 


* 






*•** 


* 


* . 


* 4 


♦ ... 


♦ 


• .X.... 


•♦•♦ X 


ALTERl 


.*. 




G3 *. 




>• *• 


.* 


REG 


*. 


EQUAL 



•ADD REG 3 TO 4.* 

• CMP TO REG 5 ♦ 

• TO SEE IF ALL * 
•WORDS IN LIMIT • 

• OF LINE UNPKD * 
***************** 



.• NEXT •. YES 
. WORD BEYOND .*... 
•. LIMIT .• 
♦. •C* .♦ 



; ♦. .♦ 

X •. •• 

**** OYES 

• • . 

• 6 • 

• * • 
•*•• .X.... 

X 
LST .♦. 

F5 •. 
.• •. 
BR .• 



* * 

* 5 • 

* * 



•NOP 

X 

•♦•• 

* * 

:' : 

•••• 



• • 

♦ 2 • 



***«*H3*^^^^^^^^^ 

• INCREMENT • 

• LINE LOCATION • 

• COUNTER REG 6 • 

• BY 2 • 

• • 
***************** 



*****j^********** 

• LOAD 4 INTO • 

• REG TO • 

• RESET COUNTER • 

• • 
***************** 



• 5 • 

• • 
••*• 



****Qi^********* 

• RETURN • 
•TO ADDR IN LINK* 

* REG • 
*************** 



****iitt********* 

* * 

* PRNTL * 

* * 
*************** 



SWITCH 

,♦ 
. .* 

*NOP 



**G5******* 

* TRANSLATE ♦ 

* I/O OUTPUT * 
* AREA TO PRIMT 

* CHARACTERS * 

• * 
*********** 



**** 

. * * 

...* PA * 

* K4* 

. **** 
PRNTL X 

*****j^********** 

* * 

* LOAD ADDR * 

* OF CCB2 ♦ 

* INTO REG 1 * 

* * 
***************** 



*•*•• 
•NY • 
• B3^ 
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Chart PA. Line Test Subroutines $$BDUMPF; Refer to 
Supervisor, Chart 29 



PRNTLN 



•TEST IF ADDR IN* 
•LIMIT OF PRESNT* 
« DUMP PORTION « 



LSTLN 

• •*«*C1**'»*****« 

• SET AND 
» TRANSLATE 

• LOCATION CTR 

• REG 7 AS LINE 
•IDENTIFICATION 



»«*»«D1»»*»»»*»» 

• IF LAST LINE 
» COND REG 7 IS 

• INDEXED 48 
•BYTES TO PT TO 
•LAST LINE ADDR 



•EDIT AND WRITE 

* LINE NOW IN 

♦ OUTPUT AREA 



»A3*»*«» 
TSTCOR 



TSTCOR X 

• ♦■»»»B3»«*»*»*«»* 
»PT REG 3 TO 48 ♦ 

• BYTE STG AREA • 
»PT REG 5 TO END* 
» FOR ONE PRINT • 
•LINE OR RECORD • 



«»«C2»»»*»»* 

SET TSTPRT • 

AND TSTLSTl 

SWITCHES TO 

NOP 



» SKIP TO 1 ON • 
*PTR WRITE PAGE • 
•HDR LINE OR RCD» 



BTSTCR 

•TSTCOR 



•TEST IF ADDR IN* 
•LIMIT OF PRESNT^ 
• DUMP PORTION » 



• RETURN » 
•TO ADDR IN LINK* 

• REG • 



««*»»E3»»»*****«^ 
» COMPARE REG 5 • 
•END OF LINE PNTR 
•TO REG 3 LIMIT • 
• OF PRESENT » 
•PORTION OF DUMP* 



.♦ LIME *. 

.TO BE PRINTED. 

•.STILL IN .» 

«. LIMIT.* 



•»»»«G3**»*»**** 
*LD REG 8 LIMIT 
* INTO LINE END 
» REG 5 TO SET 
•EXACT DUMP END 
•CLEAR I/O AREA 



♦ NOP • 

AFTER SUPVR 

*. PART OF .• 

•.DUMP .• 



IF SYSOOO 

. IS TAPE . 

•.DRIVE.* 



LOAD ADDRESS 
IN REG 1 
OF NAME 
$$BTERM 



TSTLST X 

«««»»B5*****«**** 
*GET ENDING ADDR* 

* OF NEXT LINE * 

* TEST IF IT IS * 
« LAST LINE * 



NO .* NEXT 
...*. LINE LAST 
*. LINE 



»»*«D5***»**** 

PREPARE FOR 

LAST LINE BY 

INDEXING 

ENDLIN INSTS 

BY X'30' 



SW 
NOP IF 2 
. LINES 
•.SAME . 





TSTPRT .». 


X 


F5 * 


«F4«******** 




SVC 2 » 


BR .* SW 


$$BTERM * 


...». NOP IF 


CHART NE * 


». LINES 




•.SAME 



TPMARK X 

•LD ADDRESSES*OF* 
•CCW'S IN REG 1 * 

* STORE CCW5 * 
»ADDR FROM REG I* 

* INTO CCB2 * 



CLRLIN 

»««««G5******** 

• CLEAR OUTPUT 

• LINE AREA 

• SET UP 

» — SAME— 



• •**H 1* *•-»*••*• 

COMPARE CHARS 

TO SEE IF 

NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



SET LAST 

LINE SWITCH 

TO BRANCH 



*WRITE LINE WITH* 
» STG LOC INDEX • 
* AND — SAME — » 



* *««» J 1 •»*«-««**«« 

* INCREMENT » 

* REG 7 BY 48 • 
•BYTES, POINT TO* 

* START ADDR * 

* OF NEXT LINE • 



WRITE 

LAST LINE 

SW 



* CHANGE CCW5* 
•TO BSR COMMAND* 

* SET TAPSYSI 

* SWITCH TO * 

* UNCOND BR • 



LOAD ADDRESS 

OF 0UT2 

INTO REG 14 



SET SWS • 
AT TSTPRT 
AND TSTLSTl 
TO BRANCH 



ENDLINl 

**»«»K 5 ********* 

* LOAD ADDR OF 
*LAST LINE FROM 

* REG 7 PLUS 

* 48 BYTES ON 
*LAST LINE COND. 
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Chart PB, Initialize for BG Storage Dump on Printer or Tape 
$$BDUMPB; Refer to Supervisor, Cnart 29 



* * 

* $$BOUMPB * 

* * 



* * 

♦ I ♦ 



♦ TEST CONFIG * 
» BYTE CCOMREG ♦ 

♦ +52) FOR FLT * 

♦ POINT FEATURE ♦ 

♦ ON SYSTEM * 



4[«4>*4i*«*******»»* 



SYSLST 

A TAPE 

DRIVE 



* * 

* I ♦ 

* * 



♦ 

* LOAD PTLINE 

* ADDRESS 

* INTO REG 1 

* 



♦ * 

♦ STORE ADDRESS * 

♦ OF PTLINE * 

♦ FROM REG 1 IN ♦ 

♦ PRINTER CCH'S ♦ 
***************** 



*****f I********** 

* * 

* LOAD ADDRESS ♦ 

* OF CCHO ♦ 

* INTO REG 1 ♦ 

* * 
***************** 



*****Ql********** 

♦ STORE ADDRESS * 

♦ OF CCMO IN * 

♦ CCW ADDRESS ♦ 

♦ PORTION OF ♦ 

♦ CCBl ♦ 
***************** 



**** 

♦ * 

♦ 2 » 

♦ * 
**** 



* LOAD TPLINE * 

* ADDRESS INTO ♦ 

* REG 1 ♦ 

* * 
***************** 



*****Q2********** 

♦ STORE ADDRESS ♦ 

♦ OF TPLINE IN ♦ 

♦ DATA ADDRESS * 

♦ FIELD OF ♦ 

♦ TAPE CCW4 * 
***************** 



*****0^********** 

* * 

* MOVE DEVICE ♦ 
♦TYPE X'50« FOR ♦ 
♦TAPE INTO FIELD* 

* CALLED ZONE • 
***************** 



*****£-i********** 

* * 

* LOAD ADDRESS * 

* OF CCW4 ♦ 

* INTO REG I * 

* * 
***************** 



*****f^********** 

* STORE ADDRESS ♦ 

* OF CCW4 IN ♦ 

* CCW ADDRESS * 
» PORTION OF ♦ 

* CCBl * 
***************** 



RELOC X 

*****Q2********** 

♦ STORE ADDR OF ♦ 
♦CCW POINTED TO ♦ 

♦ BY REG L INTO ♦ 
♦CCW ADDR FIELD ♦ 

♦ OF CCB2 ♦ 
***************** 



.♦ FLOATING ♦. 
.POINT FfcATURE. 
♦. PRESENT .♦ 



*****C^******* 

♦ NOP BRANCH ♦ 

♦ SWITCH FPSW 

♦ SO FLT POI.>JT 

♦ REGS WILL 

♦ DUMP ♦ 
************** 



.♦ HULTI ♦. 

. PROG SYSTEM . 

♦ENVIRONMENTS 



*****j^^********** 

♦ MOVE X«78' * 

♦ INTO CORE+3 * 

♦ GET INDICATOR ♦ 

♦ TO PROB PRUG ♦ 

♦ BEGIN POINT ♦ 
***************** 



X. 

NOTEST X 

*****f^********** 
♦BR PAST ORIGIN ♦ 
♦STMNT WHICH WAS* 

♦ USED TO ♦ 

♦ INCREASE AREA ♦ 
♦TO BE OVERLAID * 
***************** 



BALI X 

♦ MOVE BLANK * 
♦PRINT CHAR '^O'* 

♦ INTO STG LUC * 

♦ X'l2' LABELED » 

♦ LINE ♦J^ ♦ 
***************** 



*****^l********** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF CCW2 ♦ 

♦ INTO REG 1 ♦ 

♦ ♦ 
***************** 



*****H3********** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF WRDLTH ♦ 

♦ INTO REG 4 ♦ 

♦ * 
***************** 



*****ii5********** 
♦PROPAGATE BLANK* 
♦ CLEARING MAIN ♦ 
♦STG UP TO X'BA'^ 
♦THIS AREA USED * 
♦FOR I/O OUTPUT ♦ 
***************** 



THIS IS PREPARATION FOR 



*****j^********** 

* ZERO REG 12 * 

* TO USE FOR ♦ 

* PAGE COUNT ♦ 



***************** 



*****j^********** 
♦PAGHED PO* 
♦-•-♦-*-♦-♦-♦-♦-♦ 
♦ SET UP AND * 
♦WRITE PAGE HDG ♦ 
♦ON PTR OR TAPE ♦ 
**♦♦♦♦♦•♦♦•*♦••♦* 



*****\H^********** 

* ZERO REG 2 * 

* TO USE FOR ♦ 

* LINES PER ♦ 

* PAGE COUNT * 

* * 
***************** 



***** 
♦PC * 
♦ Al* 
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Chart PC. BG Dump on Printer or Tape $$BDUMPB; Refer to 
Supervisor, Chart 29 



♦»»»«A1*«»»*»»«*» 

♦ GET REG SAVE « 

♦ AREA ADDRESS • 

♦ FROM REG 9. » 
•DELIMIT 32 BYTE» 
♦AREA BY REGS3,5» 



***««A2*'»*«***** 
•CLEAR I/O AREA 

♦ SAVE FLT PT 

• REGS DELIMIT 
» REG SAVE INFO 
•BY REGS 3 AND5 



• ANY 

SPACE LEFT 
•. ON PAGE . 



SET HDG FOR 

FIRST LINE 

GENLREGS AND 

CPNTROL BYTE 

FOR TAPE 



• EDIT AND 

• WRITE GENL 

• REGS 0-7 



IT AND WRITE 
FLT POINT 
REG LINE 



•««*«C2**^**«*** 

• PUT STARTING 
•ADDR OF COMREG 
•INTO REG 3 AND 

• END ADDRESS 

• INTO REG 5 



SKIP TO 1 

WRITE HDR 

OR TAPE RCD 




»*»C3» 

MOVE LABEL 

LENGTH HDG 

TO OUTPUT 

AREA 



»«««oi»«*»**»«*« 


•«*««D2 **•**•**** 


««*«*D3******** 


POINT TO REG 8 • 


*REGPNT PE* 


* LOAD REGS 3 


SAVE AREA INFO.* 




* AND 5 TO 


CHANGE PRINT • 


• WRITE • 


*POINT AT LABEL 


LINE HDR INFO. * 


» COMREG • 


• LENGTH INFO 


* 


» LINE * 





»»*»»E1^****»* 
» CHANGE » 

* NOP INST * 
•AT LABEL LST TO* 

• BRANCH • 



«#E2^***»*» 

CHANGE 

NOP AT 

BLNKST 
TO UNC BR 
TO TRANS 



««««»E3*^^^^^* 

• MODIFY 

• ALTER3 SW 

• FROM UNC 

• BR TO NOP 



EDIT REG 8 



««*#F2^«^«»»**« 

SET BEGIN AND 

END ADDR OF 

SUPVR IN 

REGS 7 AND 8 



WRITE LINE 

OR RECORD OF 

LABEL INFO 



ADDRESS 
BOUNDARY 
. CORRECT 



» CORRECT REG 7 

• TO PT TO NEXT 
•MULTIPLE OF 16 

• WORD BOUNDRY 

• •BS 



X 

***C4***^*** 

MODIFY 

ALTER SW 

OF REGPNT 

SUBROUTINE 

TO NOP 



•*«»D4* *•»••** 

LOAD ADDRESS 

OF PROBPROG 

UPPER LIMIT 

INTO REG 8 



• WRITE PROBLEM • 

• PROG PORTION • 
•OF MAIN STORAGE* 



«»F4**»»^^ 

SVC 2 

$$BEOJ 

CHART NA 



*B5 

THIS IS WHERE PROBLEM 
PROGRAM BEGINS, THAT 
IS, THE LAST DIGIT IS 
A ZERO, (E.G. IFO, 2F0, 
ETC) 



*«»*«GI******* 

• RESET • 

• BRANCH 

• AT LABEL LST 
» TO NOP 



WRITE SUPVR 
PROG PORTION 
OF MAIN STG. 



COREL X 

♦•♦♦«G3***^^**** 
♦CLEAR I/O LINE 

♦ AREA 
♦MOVE PROB PROG 

♦ HEADING IN 



♦•••*H1********** 


«»»»«H2***««»^ 


««««*H3**^*****^^ 


• SET LOWER AND • 




♦PRNTL PE« 


• UPPER SAVE • 


• MODIFY • 




* AREA LIMITS * 


EOJ SW • 


♦ WRITE PROB • 


* FOR REGS 8-15 » 


* TO NOP * 


• PROG HEADING • 


*IN REGS 3 AND 5* 


* ♦ 


* « 



•UNPK 
»—•—♦—♦—*—♦—»— 

• EDIT AND 

• WRITE GENL 

• REGS 8-15 



X 

**• ♦•J £• ••**«* 
» RESTORE LAST* 
» LINE SW TO * 

• NOP AND RESET • 

• ENDLIN AND • 
» ENDLINl INSTS 


CORE X 

*»*•♦ J 3 »•••»*»»«» 
•PT REG 7 LOWER • 
•LIMIT PROB PROG* 

* TEST IF ADDR * 

* ON A CORRECT * 
» BOUNDARY * 


X 

*•♦« 

« 3 ♦ 


X 

«♦«* 

» 4 * 



.* FLOATING *. 

•. PT FEATURE . 

*. PRESENT .» 



Appendix H, Detailed Flowcharts 561 



Chart PD. Prepare Page Headings and PIOCS Subroutines 
$$BDUMPB; Refer to Supervisor, Chart 29 



***** 

♦ PE » 

* J5* 
* * 



****Ai********* 

* * 

* PAGHEO ♦ 

* * 
*************** 



PAGHED X 

*****B1********** 

♦ HOVE CHAR I * 

♦ INTO TPLINE ♦ 

♦ AS CONTROL ♦ 

♦ BYTE FOR TAPE ♦ 

♦ OUTPUT ♦ 
***************** 



*****£ 1 ********** 

* EXEC INST ♦ 

* USED TO CLEAR * 

* 120 BYTE ♦ 

* PTLINE AREA * 

* * 
***************** 



*****oi********** 

* INCREMENT ♦ 

* REG 12 FOR * 

* PAGE COUNT ♦ 
*CONV TO DECIMAL* 
♦STORE SAVE AREA* 
***************** 



*****gX ********** 
*UNPACK PAGE NO.* 

* PUT IN HEADER * 
*ASSEMBLY AREA, * 

* CLEAR SIGN * 

* * 
***************** 



.* HIGH *. 
.*ORDER DIGIT*. 
. OF PAGE NO . 
*. ZERO .* 



*****Q1 ********** 
*SUPPRESS LEAD- * 

* ING ZEROS BY * 

* MOVING BLANK * 

* INTO HI ORDER * 
*DIGIT OF PG NO.* 
***************** 



HI ♦. 
.* 2ND *. 

.* HI ORDER *. 

.DIGIT OF PAGE. 

*.N0. ZERO .* 

*. .* 

*. .♦ 



*****j I ********** 
*SUPPRESS LEAD- * 
*ING ZEROS MOVE * 
*BLANK INTO 2ND * 
*HI ORDER DIGIT * 
* OF PAGE NO. * 
***************** 



*****B2********** 

* MOVE JOB DATE * 

* FROM COMREG * 

* AND PAGE NO. * 

* TO PRINT LINE * 

* ASSEMBLY AREA * 
***************** 



*****(;2********** 

* * 

* LOAD ADDRESS * 

* OF CCBI INTO * 

* REG 1 * 

* * 
***************** 



*****Q2 ********** 

* INSERT LINE * 
*COUNT PER PAGE * 

* FROM COMREG * 

* INTO REG 2 * 

* ♦ 
***************** 



*****£ 2 ********** 

* * 

* DECREMENT * 

* LINE COUNT * 

* BY 1 * 

* * 
***************** 



LINE 

COUNT 
ZERO 



****Q2 ********** 



**************** 



************* 



*B5 
IF SYSLST IS 
PRINTER, IN PAGHED 
SUBRUUTINE SKIP 
TO CHANNEL 1 
PRINT PAGE HDR 
AND DOUBLE SPACE. 

FRUM REGPNT 
SUBROUTINE ONE 
LINE PRINTS ONE 
SPACE TAKEN. IF 
SYSLST IS TAPE 
DRIVE A TAPE RECORD 
IS WKITTEN ON SVC 0. 



I/O *. YES 
OPERATION .*... 
.COMPLETE .♦ 



****0<»********* 

* SVC 7 * 

* PRUB PROGRAM * 

* WAIT * 
*************** 



* SYSLST *. YES 

ASSIGNED TO .*.... 
*. PRINTER .* 



*G3 
SINCE LINE COUNT IS SET 
JUST PRIOR TO THIS POINT, 
IT WILL NEVER BE ZERO 
HERE AND NEXT SEQ IN- 
STRUCTION WILL NOT BE 
REACHED FROM THIS POINT. 
IF NO LINE COUNT WAS SET BY 
PROGRAMMER, AN ASSUMED 
VALUE WAS ASSIGNED AT 
SUPVR GEN TIME. 



*****G4********** 

* * 

* LLAD ADDRESS * 

* OF SYSLST * 

* INTO REb * 

* * 
***************** 



*****H/^******* 

* ♦ 

* TURN EUV 

* SWITCH ON IN 

* COMREG + 89 

* * 
************** 



*****J4********** 

* LOAD ADDRESS * 

* INTO REG 1 * 

* OF NAME * 

* $$BCMT07 * 

* * 
***************** 



****G3******* 

* RETURN 

* TO ADDR IN 

* LINK REG 
************* 



*****K1 ********** 

* * 

* MOVE JOBNAME * 
*T0 PAGE HEADING* 

* ASSEMBLY AREA * 

* * 
***************** 



****K4********* 

* SVC 2 * 

* $$BCMT07 * 

* * 
*************** 
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Chart PE, Prepare and Edit a Line Subroutine $$BDaMPB; 
Refer to Supervisor, Chart 29 



♦ * 

♦ REGPNT ♦ 

♦ * 



REGPNT 

♦ BLANK AREA * 

♦ CALLED LINE * 

♦ FOR ASSEMBLY ♦ 

♦ OF I/O OUTPUT ♦ 

♦ INFO » 



REGPNT5 

♦ LOAD ADDRESS * 

♦ OF FSTWD INTO ♦ 

• REG 6. REG 6 » 

* WILL POINT TO * 
♦LOGS ALONG LINE* 



REGPNTl 

**4i**()X ********* 

* LOAD 4 INTO 

* REG TO 

* INITIALIZE 

* COUNTER 

* 



* 6 



**** 
UNPK X 

*4.**4<E1 ********** 

* MOVE 4 BYTES * 
*FROM SAVE AREA * 
*(POINTED TO BY * 

♦ REG 3) INTO * 
*AREA NAMED WORK* 
4>4t4>*********4'**** 



UNPKl 

4c«4>4<*Fl ********** 

* DECREMENT * 

* COUNTER IN * 

* REG * 



i^*****:^f:HL*1li 



***************** 



Jl *. 

» 

SWITCH 



****Q2********* 
* 
REGPNT5 ♦ 

* 
*************** 



**** 

* * 

♦ 3 * 

**** 



***************** 



♦*02********* 

UNPK * 
************* 



**** 
I * 



BLNK2 X 

*****f2*********' 

* MOVE BLANKS 

* TO LABEL 

* FSTWU+4 



**************** 



*****£f'^********** 

* MOVE BLANK * 
*PRINT CHARACTER* 

* INTO AREA * 

* NAMED FSTWD * 

* * 
***************** 



*****^^********** 

* BLANK OUT * 

* ADDITIONAL 17 * 

* BYTES (FIRST * 

* 2 WORDS) * 

* * 
***************** 



****f^******* 
SET ALTER * 
SWITCH TO 
UNC BR 
IF NOP 

♦ 
************* 



♦ C4 
REG 3 IS INCREMENTED 
4 BYTES EACH TIME 
AND COMPARED TO REG5 
TO SEE IF ALL REGS 
IN LIMITS OF THIS 
LINE UNPKD. ON FIRST 
TIME THRU LOOP FOR 
2N0 REG LINE BR 
WILL OCCUR IMMEDIATELY 
SINCE NO NEW LIMIT 
YET SET FOR REb 5. 



ALTER2 X 

*****Q^********** 

* INCREMENT ♦ 

♦ REG 6 BY 9 ♦ 
♦FOR NEXT UNPKD * 

* WORD PRINTING * 

♦ LOCATION » 
***************** 



.* BR *. 

.♦ IF WORD ♦ 
*. BEYOND LIMIT 
*. »C4 .* 



.* LAST 
WORD 
♦.UNPACKED 



**** 
LST 



E5 *. 

♦ 

SWITCH 



****f/f********* 

* RETURN * 

* TO AODR IN * 

* LINK REG * 
*************** 



*****Ql********** 


4<****G2******* 


* UNPK 4 BYTES * 


* SET ALTER3 * 


* FROM REG SAVE * 


* SW TG UNC. 


* AREA PUT INTO * 


* BR IF IT WERE 


* LINE AREA * 


* NOP 


* * 


* * 




************** 




**** '. 


* 


* * . 




» 2 *... 




* * . 




*♦** X 


X 


ALTER .♦. 


*****iil********** 


H2 ». 


* SEPARATE REGS ♦ 


.* *. 


♦ WITH BLANK * 


.* * 


♦ PRINT ♦ 


*. SWITCH 


♦ CHARACTER ♦ 


*. .* 



BLANKS X 

*****Q^********** 

* MOVE BLANKS * 
♦INTO FSTWD+107 * 

♦ IF NOT SUPVR ♦ 

♦ OR PR0BPR06 * 

* PART OF DUMP * 
***************** 



*****^-i********** 
♦INCREMENT LINE * 

* LOCATION CTR * 

* BY 2 ♦ 

♦ (REG 6) ♦ 

♦ ♦ 
***************** 



*****j-i********** 

♦ LOAD 4 INTO * 

♦ REG TO ♦ 

♦ RESET COUNTER ♦ 



****\i^********* 

* * 

* PRNTL ♦ 

* * 
*************** 



**H5******* 

♦ TRANSLATE ♦ 

♦ I/O OUTPUT ♦ 
AREA TO PRINT 

♦ CHARACTERS ♦ 

* * 
*********** 



PRNTL X 

***** J 5****41***** 

♦ LOAD ADDRESS ♦ 

♦ OF CCB2 * 

♦ INTO REG I ♦ 



***************** 



***************** 



**** 

♦ * 

♦ I ♦ 

♦ ♦ 
*♦*♦ 



♦ 2 ♦ 

♦ ♦ 
**♦* 



X 

♦*♦♦♦ 
♦PD ♦ 
♦ B4^ 
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Chart PF. Line Test Subroutines $$BDUMPB; Refer to 
Supervisor y Chart 29 



♦TEST IF ADDR IN» 
♦LIMITS OF PRES-^ 
♦ ENT DUMP AREA ♦ 



»A3^^^^« 
TSTCOR 



TSTCOR 

•POINT REG 3 AT 

• START OF 48 

• BYTE STG AREA 

• AND REG 5 AT 
♦END FOR 1 LINE 



TLST X 

♦ GET END ADDR 

♦ OF NEXT LINE 

♦ TEST IF IT IS 

♦ LAST LINE 



LSTLN 

♦ SET AND 

♦ TRANSLATE 

♦ LOCATION CTR 

♦ REG 7 AS LINE 
♦IDENTIFICATION 



ENDLIN 

♦ IF LAST LINE ♦ 
♦COND, INDEX REG^ 

♦ 7 BY 48 BYTES ♦ 

♦ TO PT TO LAST ♦ 

♦ LINE ADDRESS ♦ 



♦EDIT AND WRITE ♦ 
♦LINE OF STG NOW^ 
♦IN OUTPUT AREA ♦ 



»*«C2^^^^^^^ 

MODIFY ♦ 

TSTLSTl AND 

TSTPRT SWS 

TO NOP 



♦ SKIP TO I ON ♦ 
♦PTR WRITE PAGE ♦ 
♦HDR LINE OR RCD^ 



CMPCOR 

♦««»»E3^^^^^^^»^^ 

♦ COMPARE REG 5 ♦ 

♦ END OF LINE ♦ 

♦ PNTR TO REG 8 ♦ 

♦ PRESENT LIMIT ♦ 
♦OF DUMP PORTION^ 



MOVE X'lO* TO 
CANCEL CODE 
BYTE IN PIB 



•«**E4^ ♦♦♦♦♦♦♦ 

LOAD ADDRESS 

INTO REG 1 

OF NAME 

$$BEOJ 



NEXT 
LINE LAST 
. LINE 



X 

*««»*D5 »♦♦♦•♦♦ 

♦ PREPARE FOR^ 

♦ LAST LINE BY 

♦ INDEXING 

♦ ENDLIN INSTS 

♦ BY X»30' ♦ 



.♦ LAST ♦. BR 








.♦BE PRINTED ♦ 


♦. LINE SWITCH .« 










. STILL IN 


♦ . .♦ 










♦. LIMIT .♦ 


♦ . .♦ 






»»»« 








X 




» « 






♦NOP 


*««» 




* 9 « 




♦ NO 


«»«» . 












♦ ♦ • 


• 2 ♦ 




• ««* 






♦ 4 ♦... 














• ««* 










«»»« . 












TSTCR X 










X 


•♦»»*G1^^^ ♦♦♦♦♦♦♦ 






X 




«««»«G3^ ♦♦♦♦♦♦♦ 


♦TSTCOR PF^ 




•«««G2^^^^^ 


««*« 


♦LD REG 8 LIMIT 








RETURN 




♦ INTO LINE END 


♦TST IF ADDR IN ♦ 




♦ TO 


ADDR IN 


-INK* 


♦ REG 5 TO SET 


♦LIMITS OF PRES-^ 




♦ 


REG 




♦EXACT DUMP END 


♦ ENT DUMP AREA ♦ 






«««« 


♦CLEAR I/O AREA 



«««*F4«*»»«« 

♦ SVC 2 

♦ $$BEOJ 

♦ CHART NA 



TSTPRT .♦. 

F5 ♦. 
.♦ SW ♦. 

BR .♦ NOP IF ♦ 
...♦.2 LINES SAME 



CLRLIN X 

•»««*G5^^^«^^«^^^ 

♦ CLEAR OUTPUT ♦ 

♦ LINE AREA ♦ 
♦SET UP —SAME— ♦ 



COMPARE CHARS 

TO SEE IF 

NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



INCREMENT 

REG 7 BY 48 

BYTES, POINT 

TO NEXT LINE 



♦♦♦H3^^^^^^^ 

MODIFY ♦ 

LAST LINE 

SW FROM NOP 

TO BRANCH 



WRITE 

LAST LINE 

SW 



5*«*«««««*« 



»—♦-•-♦— 



WRITE LINE 
♦WITH LOC INDEX 
♦ AND — SAME— 



MODIFY SWS ♦ 
AT TSTPRT 

AND TSTLSTl 
TO BRANCH 



•*«*«K5^^ ♦•♦•♦♦♦♦ 
♦LD ADDR OF LAST^ 
♦LINE FROM REG T 

♦ INDEXED BY 48 ♦ 

♦ BYTES ON LAST ♦ 
♦LINE CONDITION ♦ 
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Chart PG. BG Dump on Disk Device $$BDUMPD; Refer to 
Supervisor, Chart 29 



♦ LOAD AND TEST 

♦ REG 3 TO SEE II 

♦ THIS IS PDUMP 

♦ REG 3 WAS SET 
» IN $$BDUMP 



IF» 



SET SWS • 
PDUMP2 TO BR 
OUTl TO BR 
OUT TO NOP 



♦»*»F1»«»»»*» 

STORE CHAR » 

FROM REG 2 « 

INTO MVBLNK+1 

MODIFYING THE» 

INSTRUCTION* 



DUMP 

•LOAD REG 4 WITH* 
•ADDR OF WRDLTH.* 

* ZERO REGS 2 • 

♦ AND 12 * 



»»»»»H1*»»«**»»* 

♦ TEST CONFIG 
♦BYTE (COMREG + 

♦ 52) FOR FLT 
» POINT FEATURE 

♦ ON SYSTEM 



.♦ FLOATING *. 
.POINT FEATURE. 
♦. PRESENT .♦ 



B2 ♦. 
.♦ MULTI ♦. 

PROG ♦. NO 
SYSTEM .♦... 

.ENVIRON- .♦ 
*.MENT .♦ 

'♦YES 



MOVE X'78' ♦ 
INTO CORE + 3* 
GET INDICATOR 
TO PROB PROG ♦ 

BEGIN POINT* 



♦ 2 

NOTES** 



♦•♦B3**«***» 

SET SWITCH 

AT LABEL 

LST TO 

BRANCH 



•POINT TO COMREG* 
•BEGINNING WITH * 

• REG 3, END ♦ 

♦ WITH REG 5 • 



SET 
BLNKST SW 
TO BRANCH 



SET 

ALTER3 SW 
TO BRANCH 



EDIT REG 8 



BRANCH AROUND 

ORIGIN STMNT 

TO BALI 



♦♦♦♦•E2^*»»^***«* 
♦MOVE BLANKS TO ♦ 
•AREA NAMED LINE* 
*THIS WIPES OUT * 
♦PREVIOUS INSTS ♦ 
• UP TO X'92« ♦ 



RESET SWITCH • 
AT LST TO • 
NOP • 



♦♦♦♦♦E3^*»**»*** 

* POINT REGS 3 
•AND 5 AT BEGIN 

♦ AND END BYTES 

• OF REGS 9-15 

• IN SAVE AREA 



♦ POINT REG 3 AT • 
♦BEGIN REG 5 AT • 
♦END 32 BYTES IN* 

* REG SAVE AREA • 
♦(ADDR IN REG 9)* 



•♦•♦•H2^ 

♦MOVE HDG GRO-7 

♦ AND CONTROL 

♦ BYTE FOR DISK 

♦ TO I/O OUTPUT 

♦ AREA 



•»«»*H3»*»***«^^» 
♦CLEAR I/O AREA ♦ 
•SAVE FLT PT REG* 
•LD REGS 3 AND 5* 
* WITH FLT PT * 
•LIMITS. SET HDG* 



♦EDIT AND WRITE 
♦FLOATING POINT 
♦ REGS 



RESET 
BLNKST SW 

TO NOP 



♦ LOAD SUPVR 

• LIMITS INTO 
♦REG 7 AND REG 

• (START REG 7 

♦ END REG 8) 



WRITE SUPVR 

PORTION OF 

MAIN STORAGE 



* SET OUT SW * 

* AND BTSTCR TO* 
*N0OP. STOPS THE* 
»INDEX OF ENDLIN 

* AND ENDLINl* 



• PAGE 

LINE COUNT 
*. ZERO 



WRITE NEW 

PAGE HEADING 

RECORD 



SET 

FPSW TO 

NOP 



X 


PDUMP2 .♦. 


C0RE3 X 


♦♦♦«K2*«^^^^^^^* 


K3 *. 


♦•♦♦•K4^ ♦•♦♦♦♦♦* 


PT REG 5 TO END^ 




* MOVE LABEL 


OF REG 8 INFO ♦ 


.» ». BR 


* LENGTH HDG TO 


IN REG SAVEAREA^ 


♦. PDUMP SW .*.... 


♦ OUTPUT AREA 


MOVE HDG AND ♦ 




♦LOAD REGS 3 AND 


DISK CTRL BYTE ♦ 


*. .• 


♦ 5 WITH LIMITS 



» WRITE LABEL 
» LENGTH INFO 
* RECORD 



•**»C5*****»**^ 

CLEAR OUTPUT 

LINE AREA 

MOVE ~BG — 

IN AS PROBLEM 

PROG HEADER 



WRITE PROBLEM 

PROG HEADER 

RECORD 



•^♦««E5^*^******* 
»LOAD LOW LIMIT * 

♦ PROB PROG IN * 
♦REG VIA REG 7* 
•ZERO REG 1. TST^ 

• ADDR IN REG 7 • 



• ADDRESS 
ON CORRECT 

• .BOUNDARY . 



♦♦♦♦♦G5*»*^«***«« 
♦ADJUST REG 7 TO* 

♦ POINT TO NEXT * 
♦MULTIPLE OF 16 ♦ 

* FOR PROB PROG * 
♦BEGIN BOUNDARY * 



♦♦^♦H5*»***** 

SET ALTER * 

SWITCH TO 

BRANCH 

LD PROB PROG 

END IN REG 8* 



•WRITE PROB PROG^ 
•PORTION OF MAIN* 
« STORAGE * 



SVC 2 

$$BEOJ 

CHART NA 
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Chart PH. Prepare Page Headings and PIOCS Subroutines 
$$BDUMPD; Refer to Supervisor, Chart 29 



»***A1»***« 
• PAGHED 



» MOVE CHAR ♦ 
•INTO FIRST DISK* 
♦ OUTPUT BYTE ♦ 
» AS CONTROL * 
» BYTE ♦ 



•wwvCl********* 

EXEC INST 

USED TO CLEAR 

120 BYTE 

OUTPUT AREA 



»#«»»B2»*» ♦•»»*» 
» MOVE JOB DATE 
• FROM COMREG 
» AND PAGE NO. 
♦TO CUTPUT LINE 
« ASSEMBLY AREA 



♦»»»C2»»»«»**« 

LOAD ADDRESS 

OF CCB 

INTO REG 1 



•«««B3»*«****«« 
PUT ADDR FROM 
COMREG+96 IN 
REG 6 POINTS 
TO DISK INFO 
BLOCK AREA 



»»*«»B 4* ********* 
♦STORE ADDR FROM* 

* REG 6 INTO * 

* SEARCH AND ♦ 

* SEARCHl CCW'S * 



•♦•«»C3*******»* 

* INDEX REG 6 
*72 BYTES POINT 

* TO DIB 

» ASSOCIATED 

* WITH SYSLST 



•«•*»««*•* 



•*«»«'C 4*** ******* 

* LOAD ADDR OF * 

* SEARCH CCW IN * 

* REG 6. STORE * 
*THIS IN TIC CCW* 
♦AS THE TO ADDR * 



«*«*«B5********** 

* TEST UNDER * 
•MASK IF TRAFFIC* 

* BIT POSTED * 

* IN CCB * 



.* I/O *. 

OPERATION *. YES 
COMPLETE .*. 



«««*«D1********«* 

* INCREMENT * 

* REG 12 FOR * 

* PAGE COUNT * 

* CONV TO DCML * 
*STORE SAVE AREA* 



♦•»«»D2**» ****** 

* INSERT LINE 
*COUNT PER PAGE 

* FROM COMREG 

* INTO REG 2 



«««**D3********* 

* CMP CURRENT 

* ADDR WITH END 

* ADDR IN DIB 

* TO SEE IF 
*EXTENT IS FULL 



»»#*»D4********* 

* LOAD ADDR OF 
*SEARCH1 CCW IN 

* REG 6. STORE 

* THIS IN TICl 

* CCW TO ADDR 



**D5*»***** 

SVC 7 

PROS PROG 

WAIT 



UNPK PAGE NO 
PUT IN HDR 

ASSEMBLY AREA 
CLEAR SIGN 



DECREMENT 

LINE COUNT 

BY 1 



*SYSLST 
EXTENT 
FILLED 



«»«««E4********** 
*LOAD ADDR INTO * 
•REG 6 OF DSKLIN* 

* (THE DATA * 

* OUTPUT AREA) * 



»«*»E5* 

RETURN 

TO ADDR IN 

LINK REG 



Fl *. 


F2 *. 




«*«*«F3********** 


«**««F4******** 


.* HIGH *. 


.* LINE *. 




* STORE CURRENT * 


* STORE DSKLIN 


ORDER DIGIT*. NO 


.» COUNT *. 


NO 


*ADDR FROM REG 6* 


♦ ADDR IN CCW 


OF PAGE NO 


*. ZERO 


*•• • • 


* INTO SEEK CCW * 


♦ USED TO WRITE 


. ZERO .* 


*. . « 




* ♦ 


* COUNT KEY 




*. • * 






* AND DATA 


*• •* • 


*. .» 


X 







»«««»GI***«***** 

* SUPPRESS LOG 

* ZEROS BY 

* MOVING BLANK 

* INTO HI-ORDER 
*DIGIT OF PG NO. 



HI *. 

.* 2ND *. 

.*HIGH ORDER *. 
.DIGIT OF PAGE. 
*.N0. ZERO .• 



«*«**jl**»*«*«*«» 

* SUPPRESS LOG * 
•ZERO BY MOVING » 
♦BLANK INTO 2ND * 
♦HI ORDER DIGIT ♦ 

* OF PAGE NO. * 



»««»K1******^** 

MOVE JOBNAME 

TO PAGE HDG 

ASSEMBLY AREA 



♦ H2 
SINCE LINE COUNT 
IS SET JUST PRIOR 
TO THIS POINT, IT 
WILL NEVER BE ZERO 
HERE AND NEXT SEQ 

; INST WILL NOT BE 
REACHED FROM THIS 
POINT. IF NO LINE 
COUNT WAS SET BY 
PROGRAMMER AN 
ASSUMED VALUE WHICH 
WAS ASSIGNED AT 
SUPVR GENERATION 
TIME IS USED. 



MOVE X 

«««*«G3^******** 

* MOVE CURRENT 
*ADDR TO OUTPUT 

* AREA NAMED 
*DSKLIN FOR USE 

* AS COUNT INFO 



••««G4********* 
LOAD ADDR OF 
SEEK CCW INTO 
REG 6. STORE 
THIS ADDR IN 
CCB 





**«*»»H4*******»*** 


* MOVE CURRENT • 


SVC 


»ADDR IN FORMAT * 


* SEEK SEARCH * 


* CCHHR INTO * 


ID EQ WRITE 


* FIELD CALLED * 


* CKD RCD. * 


* SRCHBK * 


VERIFY. 



•**»»J3» •«•*•**» 

* INSERT RECORD 
*N0. INTO REG 6 

* FROM SRCHBK+4 

* REDUCE REC 

* NO. BY 1 



♦•••*K3***»**»**' 

* STORE REDUCED 

* ADDR BACK IN 
*SRCHBK, RELOAD 

* REVISED ADDR 
« INTO REG 6 



REDUCE LINE 

COUNT IN 
REG 2 BY 1 



* 3 * 
♦ ••• 
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chart PJ. Prepare and Edit a Line Subroutine $$BDUMPD; 
Refer to Supervisor, Chart 2 9 



REGPNT 



****9^\» ******** 

* BLANK AREA 

• CALLED LINE 

• FOR ASSEMBLY 
» OF I/O OUTPUT 

* INFO 



»«*»*C1*»*«»***»* 
•LOAD ADDR FSTWD» 
•IN REG 6 - WILL* 
» POINT TO LOGS • 
•ON LINE. PUT A» 
• 4 IN REG • 



* MOVE 4 BYTES 
•FROM SAVE AREA 

• TO WORK AREA 



REGPNT5 



♦««»*A3*^»»^»^»*» 
•CMP REG 3 INDEX* 
•BY REG 4 TO REG* 
•5 LIMIT TO SEE • 
•IF ALL WRDS FOR* 
•1 RCD UNPACKED • 



B3 *. 

.» NEXT •. 

.•WORD STILL 

•. IN PRESENT 

♦. LIMIT . 

•. »B4 .• 



•C2»**« 
UNPK 



*N0 



• B4 
ON FIRST TIME THRU LOOP 
FOR 2ND REG LINE WHEN 
REG 8 EDITED BR WILL 
OCCUR IMMEDIATELY SINCE 
NO NEW LIMIT YET SET 
FOR REG 5. 



RETURN 

TO ADDR IN 

LINK REG 



• MOVE BLANK 

• PRINT CHARS 
♦TO LABEL FSTWD 
•IN OUTPUT AREA 



BLANK OUT 

FIRST 2 WORDS 

OF OUTPUT 

AREA 



UNPKl 

* DECR REG BY 
» 1 UNPK I WORD 

* PUT IN OUTPUT 

* AREA SEPARATE 
•WDS WITH BLANK 



«*E3**»»»*^ 
• TRANSLATE 

• ASSEMBLED 
OUTPUT TO 

♦ PRINTABLE 
•CHARACTERS 



#E4»»»*« 
PRNTL 



SET SWITCH 

AT ALTER TO 

NOP 



.* BR ». BR 
. FOR LABEL ••... 
». SWITCH .• 



LOAD ADDRESS 

OF CCB INTO 

REG 1 



» 




FOR 


.*. . 






.PDUMP SW 
*. . • 

'•NOP 






• « 


»♦ . 
















♦ 


6 


• • • . 




* 


* 


















\-<\ 












HI 


















• • 


REG 


« 


NO 


» 




EQUAL 




• • • 



» B3« 
PRINT 



» INCREMENT 

• REG 6 BY 2. 

• RESET CTR IN 

• REG TO 4. 



«»«*«K1*»******^« 
•INCREMENT REG 6« 
•BY 9 - POINT TO* 
•NEXT LOC ALONG • 
•LINE FOR UNPKD • 
» OUTPUT WORD * 



•♦•♦H4**« •*»•»* 

BLANK OUT 

LAST WORD IN 

OUTPUT AREA 

DURING COMREG 

DUMP 



J4 •. 

SWITCH 



NOP 
..♦ 7 



«»**G5**«*»*«« 

MOVE 4 BYTES 

PRINTABLE 

BLANK CHARS 

TO FSTWD + 4 



SET SWITCH 
AT ALTER3 
TO NOP 
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Chart PK. Line Test Subroutines $$BDUMPD; Refer to 
Supervisor^ Chart 29 



»A1»*»«» 
PRNTtN 



PRNTLN 

»TSTCOR PK* 

*TEST~IF*ADDR~IN« 
•LIMITS OF PRES-» 
• ENT DUMP AREA » 



LSTLN 

•••♦•CI********* 

* SET AND 
» TRANSLATE 

* LOCATION CTR 

* REG 7 AS LINE 
•IDENTIFICATION 



••••«D1*********» 

• IF LAST LINE * 
•COND, REG 7 IS * 
*INDEXED 48 BYTS* 

* TO POINT TO • 
*LAST LINE ADDR * 



*EDIT AND WRITE 
♦LINE OR RECORD 
• OF MAIN STG 



♦A3***** 
TSTCCR 



* PT REG 3 TO * 
•START OF 48 BYT* 
*STG AREA.PT REG* 
*b TO END . WILL* 
♦BE 1 PRINT LINE* 



•••C2******* 

MODIFY * 

TSTLSTl AND 

TSTPRT SWS 

TO NOP 



•SKIP TO I WRITE* 
*PAGE HEADER OR * 
• RECORD » 



CMPCOR 

••♦♦♦E3********** 

* COMPARE REG 5 • 

* END OF LINE • 

• PNTR TO REG 8 * 

• LIMIT OF PRES * 
*PORTION OF DUMP* 



OUTl 
BR . 



04 *. 

PDUMP SW 



♦♦••E4* ********* 

MOVE X'10« TO ♦ 
CANCEL CODE ♦ 
BYTE IN PIB ♦ 



GET NEXT LINE * 
ADDR END * 

TEST IF IT IS * 
LAST LINE * 

♦•»«••♦♦••♦♦••*» 



NEXT 
LINE LAST 
. LINE 



••♦»D5 ******* 
PREPARE FOR* 

LAST LINE 
BY INDEXING 
ENDLIN INSTS 
BY X«30' * 



NOP IF 2 
. LINES 
•.SAME .* 



F3 ♦. 

.•LINE TO*. 
BE PRINTED 

STILL IN 
. LIMIT . 



•♦♦•*F4^********* 

♦ LOAD ADDRESS • 

♦ INTO REG 1 * 

♦ OF NAME ♦ 

♦ $$BEOJ * 



SW 
NOP IF 2 
. LINES 
♦.SAME .♦ 



BTSTCR 

♦••••Gl********** 
•TSTCOR PK* 
•-•-•—•—»-•-•—♦—♦ 
•TEST IF ADDR IN^ 
•LIMITS OF PRES-^ 
• ENT DUMP AREA • 



* 5 • 

♦ « 
• •♦♦ 



♦•♦♦♦G3^********* 
♦LD REG 8 LIMIT * 

* INTO LINE END * 

♦ REG 5 SETS * 
♦EXACT DUMP END * 
♦CLEAR LINE AREA* 



•G4***** 

SVC 2 

$SBEOJ 



CLEAR PRINT 

AREA. SET UP 

— SAME— 



♦♦♦♦HI******** 

CMP CHARS 

TO SEE IF 

NEXT LINE 

SAME AS ONE 

JUST WRITTEN 



RETURN TO 

ADDR IN LINK 

REGISTER 



•♦H3*«*«**« 
MODIFY 
LAST LINE 
SW FROM 
NOP TO 
UNC BR 



PJ« 



♦♦♦♦♦H5***** 
*PRNTL 

♦-♦-♦-AREA*-*-*-* 
♦WRITE LINE WITH^ 
* STG LOCATION * 
» AND —SAME— * 



INCREMENT 

REG 7 BY 48 

BYTES POINT 

TO NEXT LINE 



WRITE 
LAST LINE 
. SWITCH . 



•**J5******* 
MODIFY SWS * 

AT TSTPRT 
AND TSTLSTl 

TO UNC BR 



* 6 

♦ ♦♦♦ 



•♦♦•K4* •***•••• 

* SVC 11 
♦RETURN CTRL TO 

* PROB PROG 



♦♦♦♦♦K5^*^ ♦♦***** 
*LD ADDR OF LAST* 
*LINE FROM REG 7* 

* INDEXED BY 48 ♦ 

• BYTES ON LAST * 
*LINE CONDITION * 
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Chart PL. Parameter Storage Dump Monitor $$BPDUMP; Refer to 
Supervisor, Chart 30 



•*A1****** 
$$BPOUMP 



START 

•ADD LTK TO REG 
•10 TO DISPLACE 
•INTO PIB TABLE 

• TO PARTICULAR 

• PROG INVOLVED 



•••••Cl*»*^*^*^^* 
•INCREMENT REG 9* 
•TO POINT TO LGL^ 
•TRANS BUCKET - • 
•GET ADDR OF LGL« 
•TRANS SAVE AREA* 



»»«*»DL»^^ ••••♦•» 
•LOAD LUB TABLE » 
•ADDR INTO REG 4^ 
•LOAD REG WITH* 
•ADDR FROM REG 0^ 
• IN SAVE AREA • 



♦»•»♦ EI* •*•***•♦« 
♦STORE LOW ORDER* 

* CHAR FROM RO » 

* IN FLO CALLED * 

* SAVE. TEST * 
•WITH X»03' MASK* 



***A2* *****•• 
ZERO REG 7 
SHIFT REG 6 
4 POSITIONS 
TEST RESULT 
IN REG 7 



B2 ». 

REG 7 

' *N0 



* •♦••C2» »♦••»*•• 

* SHIFT REG 7 

* 30 POSITIONS 

* MPY BY 9 
*LOAD RESULT IN 

* REG 2 



•♦•♦•02*** •*•*♦«* 
*SUB 2 IN REG 2-* 
•GETS NO. BLANKS* 
•NEEDED TO START* 
* DUMP PRINT » 
*AT PROPER POINT* 



DISKRT X 

'•'••**A4**^^*****^ 
•LOAD ADDR INTO * 

* REG I OF NAME • 

• $$BOUMPD LD • 
•A 1 INTO REG 3 • 
♦TO IDENT PDUMP • 



TEST SENSE 

DATA FOR FILE 

PROTECTION 



.• *. 
.* IS *. NO 

*. SYSLST 

•.ASSIGNED -• 

**. .** X 

•YES **** 

. • • 
* 7 • 

• ••• 

••••*C3^^*^^^*^^^ 

• REG 4 PNTR TO ♦ 

• LUB TABLE IS • 

:'§?ii!i? l°^Ar : 

• * 


• SVC 2 ♦ 

* $$BDUMPD * 
CHART PB * 


• •»* 

» 4 *... 

• • « 

• *«* . 
JOB X 

•*INSERT*No!*OF*» 
•1ST PROG LUB IN^ 
•REG 13. ADD TO^ 
•REG 4 TWICE. PT^ 

• TO SYSOGO LUB • 



B5 •. 

.• IS •. 
YES .• SYSOOO • 

FILE PROTECT 

•.ON .• 



7 • 

• ••• 



Fl •. 
.• REG ♦. 

POINTING 

TO A WORD 

.BOUNDARY . 



♦•♦•»G1^^»^»^*^»^ 
* PUT STARTING * 
*DUMP ADDR FROM * 
*REG IN REG 5 * 
*ZERO REG 2. LD* 
♦REG 5 INTO REG6* 



«'«***E2********** 
♦ PT REG 6 TO • 
•NEXT LOWER ADDR* 
*DIVISIBLE BY 16* 
*L0 TO REG 7 FOR* 
*DUMP START ADDR* 
«•«•«»•**«••*••*» 



MAIN2 X 

*«»*«F2^** ******* 

* LD REG 8 WITH * 
•ADDR IN REG 5+4* 
« COMP REG 8 TO ♦ 
» HIGH STG ADDR * 

* FROM COMREG * 



••«*• 03* ********* 

♦ SYSLST ENTRY * 
•ADDR IN PUBTAB • 
•CALC BY 8 TIMES* 

• LUB PTR ADDED • 

* TO PUB ADDR • 



•««^*E3»^^^^^^^* 
•DEVICE TYPE OF 

• SYSLST FROM 

• PUB TABLE PUT 
•IN FIELD NAMED 

• ZONE FOR CMP 



**05*^^*^^*^* 



••«*«H1^^*^^^«*** 
•AND INTO REG 6 • 

• A WD ALIGNING • 
•FLO TO PUT REG • 
•6 ON AT LEAST A^ 

• WORD BOUNDARY • 



ADDR 
ITHIN STG 
LIMITS . 



•*«*«H2^ ••••••*• 

• LOAD LIMIT TO 
•REG 8 TO FORCE 

• VALID UPPER 
•LIMIT FOR DUMP 



♦••••Jl********* 

• COMPARE REG 6 

♦ WITH HIGH STG 
*ADDR CONTAINED 

* IN COMREG FOR 

♦ INVALID ADDR 



.* VALID *. NO 
•.DUMP STARTING.*... 
•. ADDR .• 




IS 
SYSLST A 
. DISK 
•.DRIVE. 



G3 •. 
.• IS •. 

SYSLST • 
TAPE DRIVE 



••••«H3^*^*^^^^*» 

♦ LOAD A 1 INTO • 
♦TAPE INDICATOR • 
•REG 14 TO TELL • 

♦ $$BPDUM1 THAT ♦ 
♦SYSLST IS TAPE ♦ 



• ••* 
5 • 



•. SYSOOO .• 


.... 




• 


PRINT • 


•.ASSIGNED .* 


. 




• 


• 


**» ,♦** 


X 




" 




♦ YES 


• •• 
• 
♦ 7 


• 
• 
* 






X 




PRINT 




♦•♦•♦E4*^^^^^^»^^ 






♦« 


••♦E5^^^ ••••••• 


♦GET DEVICE TYPE^ 










♦FOR SYSOOO FROM^ 








LOA ) ADDR ♦ 


♦PUB AS DESCRIB-* 








OF C:B INTO ♦ 


♦ ED FOR SYSLST • 








RIG 1 ♦ 


♦MVE TO ZONE FLD^ 










X 


















X 


F4 •. 






• •* 




.• ♦. 








SVC 


.♦ IS ♦. YES 




• 


* 


♦. SYSOOO ...... 




EXECUTE CHANNEL 


».A PRINTER.* 


, 






PROGRAM • 


• . .♦ 












X 








♦NO 


• •• 
• 
» 5 

• 


• 
• 
« 
• 




'. 




• ••• 






X 








X 


.♦• 








.•. 


G4 ♦. 








G5 ♦. 


.♦ IS •. 








• • *• 


.• SYSOOO •. 




YES . 


OPERATION '.• 


•. A TAPE .• 






• •• 


•. DRIVE .• 




> 




•.COMPLETE .♦ 



••**«H4* ••*••••*• 
•LD 1 IN REG 14 • 
•TO IND TAPE OR • 

• LOAD ADDR • 
•FOR SENSE BYTE • 

• DATA IN CCW • 



•••«H5^^^**«* 

♦ SVC 7 

♦ PROB PROG 

♦ WAIT 



SUBTRACT 1 

FROM DUMP 

END ADDR NOW 

IN REG 8 



•LOAD ADDR INTO 

• REG 1 OF NAME 

• $$BPDUM1 



••••J 4** •••••*• 
LOAD ADDR OF 
SENSE CCW IN 
REG 3. STORE 
THIS ADDR IN 
CCB 



• ••* 
• 7 ♦ 



• •••J 5«»* ••«••• 



«*«*«K2^ *•••••••* 

*LOAD PUB TABLE • 
*ADDR INTO REG 6* 

* ZERO REGS • 

• 13 AND 14 ♦ 



••••K3****** 

• SVC 2 

• $$BPDUM1 

• CHART PM 



• K5 
IF REG 7 IS AT 
THIS POINT, IT 
INDICATES REG 6 
ADDR IS A MULTIPLE 
OF 16. 



• 1 • 
»••• 



•••• 
• • 
» 6 • 
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Chart PM. Initialize Parameter Dump or Printer or Tape 
$$BPDUM1? Refer to Supervisor, Chart 30 



$$BPDUM1 



Bl *. 

.« DOES ». 

.♦LINE COUNT 

. REGISTER 2 

*. CONTAIN . 

♦BLANKS. » 

*«N0 



•♦»««C1*«*«»»«»» 
•STORE THE DATA 
»INTO THE FIRST 
« WORD OF THE 

• BLANK OUT 

• ROUTINE 



*»»»»D1* 

* SET BLANK » 

* SWITCH BY • 
«ORING AN UNCON-* 
•DITIONAL BRANCH 

* INTO ALTER » 



LTK=X'10' 

BACKGROUND 
. PROGRAM . 



»«»«F1«»*»»»* 
SET SWITCH « 
IN FGNAME FOR» 
MOVING FGNAME 
DATA TO HEAD • 
LINE OUT AREA 



#»»»»GI»**«»»« 

♦ SET SWITCHES* 

♦ IN EOVFG TO • 
•UNCONDITIONALLY* 
•BRANCH TO END-» 

♦ EOV ROUTINE* 



»»»»«H1*»«»«**»*» 

• MOVE LOGICAL • 
«• UNIT NUMBER » 

• FOR SYSOOO » 
•INTO THE OUTPUT* 

• COMMAND BLOCK * 



.* DOES ». 
.» LINK REG ». YES 
.CONTAIN TAPE .*.... 
♦. SYSTEM .* 



» BLANK OUT 
•INITIALIZATION 
* ROUTINE AREA 



««««C2**«****** 

LOAD ADDRESS 

OF FIRST BYTE 

FOR PRINTER 

OUTPUT AREA 

INTO REG 1 



«»»««D2^^**»»*»« 

• RELOCATE 

» ADDRESS IN 

* SPACING 
•COMMAND BLOCKS 



«*»»«E2**»«»*«* 

♦ LOAD ADDRESS 

* OF SKIPPING 

* TO CHANNEL 1 

• CCW INTO REG 1 



••♦»F2»»***««** 

STORE THE 

CCW ADDRESS 

IN THE OUTPUT 

COMMAND BLOCK 



LOAD THE 
ADDRESS OF 
THE SECOND 

CCW INTO 
REG 1 



««»»E3«*»*»«*** 

LOAD ADDRESS 

OF FIRST BYTE 

OF AREA FOR 

TAPE OUTPUT 

INTO REG 1 



»#*«F3*****»** 

RELOCATE THE 

ADDRESS IN 

THE CCW FOR 

WRITING ON 

TAPE 



•«»«»G3«««»*»*»» 

• STORE THE 
•ADDRESS OF THE 

• CCW INTO THE 

• OUTPUT CCB TO 
»PRINT A HEADER 



«»«»H2»**««*»»« 
STORE ADDRESS 
OF THE SECOND 
CCW INTO THE 
OUTPUT CCB TO 
PRINT A LINE 



«««««J2***»*«**«* 
•INITIALIZE PAGE* 
» AND LINE ♦ 

* COUNT IN REG • 

* 12 AND REG 2 • 

* RESPECTIVELY • 



PRINT THE 

HEADER 

LINE 



LOAD ENDING 

ADDRESS OF 

THE REGISTERS 

0-7 INTO 

REG 5 



LOAD THE 

BEGINNING 

ADDRESS OF 

REGISTERS 0- 

INTO REG 3 



* MOVE ADDRESS 
•OF HEADING FOR 

• REGISTERS 0-7 

♦ INTO LINE 

* OUTPUT AREA 



» MOVE CONTROL • 

• FOR SKIPPING • 

• 2 LINES AND « 

• PRINTING INTO • 
•TAPE OUTPUT CCW^ 



«««H4**»^«* 



* EDIT AND * 
•PRINT REGISTERS* 

• 0-7 * 



*POINT REG 5 TO 

• END OF REG 8 

♦ INFO IN REG 

* SAVE AREA 



«««*B5«**«««^«^ 

MOVE HEADINGS 

FOR REGISTERS 

8-15 INTO 

OUTPUT AREA 



****-»C5 ********** 

* MOVE CONTROL » 

* BYTE TO SKIP • 

* ONE LINE AND » 
•PRINT INTO TAPE* 
» OUTPUT BYTE * 



••••D5»«^«*»»»* 
OR INTO THE 
PRINT INST 
A BRANCH ON 
LINK REGISTER 
14 COMMAND 



RESET THE 

LST NO-OP 

INSTRUCTION 

TO BRANCH 



• LOAD ADDR OF 

• REG 9 DATA IN 
•SAVE AREA INTO 

• REG3 



***H5******** 

LOAD END 

ADDRESS OF 

REGISTER 15 

INTO REG 5 



EDIT AND 

WRITE REGS 

8-15 
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Chart PN, Parameter Storage Dump on Printer or Tape 
$$BPDUM1; Refer to Supervisor, Chart 30 



***** 

»PM ♦ 
♦ J5* 



.FLOATING*. 
NO .♦ POINT ♦. 
...♦FEATURE PRESENT* 



* MOVE X'EF« ♦ 
♦INTO THE FIRST ♦ 

* WORD ADDRESS ♦ 

* OF THE LINE ♦ 

* * 
***************** 



*****() I ********** 

♦ USE EXECUTE ♦ 

♦ INSTRUCTION ♦ 
♦TO EXTEND X«EF«* 
♦THROUGH THE 32 * 
♦BYTES OF FSTWO * 
***************** 



*****F1****^***** 
♦STORE FLOATING * 

♦ POINT REGS * 

♦ 0,2,4,6 INTO ♦ 

♦ SAVE AREA * 

♦ * 
***************** 



*****G1 ********** 

♦ LOAD ADDRESS ♦ 

♦ OF SAVE AREA ♦ 
♦INTO REG 3 FOR ♦ 
♦FOREGROUND PROG* 

♦ REGISTER DUMP ♦ 
***************** 



*****HL********** 

♦ LOAD ADDRESS ♦ 

♦ OF END OF * 

♦ SAVE AREA * 

♦ REGISTER DUMP * 

♦ INTO REG 5 * 
***************** 



♦EDIT AND PRINT ♦ 
•FLOATING POINT ♦ 
• REGISTERS ♦ 
***************** 



**** 
PRNTLN X 

*****B2*^*^^^^^^^ 

♦ MOVE A X*70« ♦ 
♦INTO THE ALTER ♦ 

♦ INSTRUCTION ♦ 

♦ FOR PRINTING ♦ 

♦ SUPPRESSION ♦ 
***************** 



PRNTLNl 

i^^*m*C2********** 
♦TSTCOR ??♦ 
*-*-*-*-*-*-♦-*-* 

♦ TEST CORE FOR ♦ 

♦ ENOUGH SPACE ♦ 

♦ TO OUTPUT ♦ 
***************** 



♦♦♦♦ 

* ♦ 

♦ 6 ♦ 

• ♦ 
♦♦♦» 



♦ EDIT AND ♦ 

♦ PRINT A LINE ♦ 

♦ OF CURE ♦ 
***************** 



*****C3********** 

* MOVE CARRIAGE ♦ 

* CONTRCL INTO * 

* FIRST bYTE OF * 

* TAPE OUTPUT * 

* AREA * 
***************** 



***** 
*PP ♦ 
* HI* 



TSTLST X 

*****B4********** 

♦ LOAD ADDRESS * 

♦ OF NEXT LINE * 

♦ TO BE PRINTEU » 

♦ INTO TESTR ♦ 

♦ REGISTER ♦ 
***************** 



IS 

THIS THE 

.LAST LINE. 



****B5********* 

• SVC II RETURN * 
•TO TASK SELECT * 

♦ IN SUPVR * 
*************** 



****C5***«***** 

* * 

* RETURN ♦ 

* * 

*************** 



**** 



* 2 



**** 



PP 



*♦** 
LSTLN X 

*****02*******^^^ 

♦ STURt THE ♦ 

♦ BEGINNING OF ♦ 

♦ PROGRAM ADDR ♦ 

♦ INTO THE LINE ♦ 

♦ OUTPUT AREA * 
***************** 



D3 ♦. 








*****04********** 


,♦ 








♦ MOVE MASK ♦ 


.♦ LAST 




*. YES 


♦ FOR GETTING ♦ 


♦. TIME 




,♦ 




♦LAST LINE INTO ♦ 


♦. THROUGH 


* 




♦REG 7 AS ENDLIN^ 


♦ . 


♦ 






♦ AND ENDLINl ♦ 


♦ . .♦ 






X 


***************** 


♦ NO 






*♦** 




**♦♦ 






* * 




♦ ♦ . 






* 4 ♦ 




♦ 3 ♦... 






* * 




♦ ♦ . 






**** 




***» 








X 


BTSTCR . X 






TSTLSTl .*. 


*****E3****** 


► *♦* 




E4 ♦. 


♦TSTCOR 




PP* 




.♦ S ♦. 


*_*_*_*_*_*- 


* 


-*-* 




.♦ TSTLSTl ♦. f 


♦ TEST CORE 


FOR * 




♦. SW TCH .♦ 



ENOUGH SPACE 
• TO OUTPUT • 

***************** 



*****F2*****^^ 

♦ UNPACK THE 

♦ FIRST WORD 

♦ OF THE 

♦ PROGRAM 



*****Q2 *****♦♦**• 

♦ MOVE BLANK ♦ 

♦ CHAkACTER ♦ 

♦ INTO LINE ♦ 

♦ OUTPUT AREA ♦ 

♦ * 
***************** 



*****H2 *«♦♦♦♦♦**♦ 

♦ TRANSLATE THE ♦ 

♦ DATA IN LINE ♦ 

♦ AREA TO ♦ 
♦PRINTABLE DATA ♦ 

♦ * 
***************** 



.♦. 


TSTPRT .♦. 


3 *. 


F4 * 


IS ♦. 


.♦ IS 


NEXT ♦. NO 


.♦ TSTPRT 


LINE ...... 


....X^. SklTCH 


SAME .♦ 


♦ . ON 


♦ H4 .♦ 


♦ . 



CLRLIN X 

»****E5***»****** 

♦ CLEAR LINE ♦ 

♦ OUTPUT AREA ♦ 

♦ AND HOVE THE ♦ 

♦ WORD— SAME— ♦ 

♦ TO PRINT AREA ♦ 
***************** 



*****f:5********** 
♦REGPNT PQ* 
*-*-*_*.*-*.*-*.* 

* PRINT ♦ 

* —SAME— ♦ 

* * 
***************** 



♦ I ♦ 

* * 
**** 



*****^3*«***** 

* SET TSTPRT * 

* SWITCH TU 

* SKIP AROUND 

* PRINTING A 

* LINE ♦ 
************** 



*****H3**«**** 

* SET TSTLSTl* 

* SWITCH TO * 

* SKIP AROUND 

* LAST LINE * 

* PRINTING * 
************** 



7 * 

* 
**** 



♦ H4 
BEFORE THE 
CONDITION CODE 
IS CHECKED, THE 
ADDRESS OF THE 
NEXT LINE IS 
LOADED INTO REG 



*****G5******* 

* TURN OFF * 

* SKIP SWITCHES* 

* IN TSTPRT * 

* AND TSTLSTl * 

* * 
************** 



ENDLINl X 

***«*H5********** 

* LOAD ADDRESS * 

* OF BEGINNING * 

* OF PROGRAM * 

* INTO f 

* REG 7 ♦ 
***************** 



X 

♦**SET HEADING*** 

* FOR FLOATING • 

* POINT ♦ 

♦...{sisttisi...: 


ENDLIN X 

*****J2********** 

* MOVE ADDRESS ♦ 

♦ OF BEGINNING ♦ 

♦ OF PROGRAM ♦ 
♦INTO REG 7 FOR ♦ 

* PRINTING * 


.i„ 


X 
**** 
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Chart PP. Line Test Subroutines $$BPDUM1; Refer to 
Supervisor, Chart 30 



»A1*«**» 
TSTCOR 



««««/\3»»«««« 



TSTCOR 

♦ LOAD ADDRESS ♦ 

* OF BEGINNING * 
♦OF PROGRAM INTO* 

♦ BEGINNING OF « 

* FIRST LINE • 



X 




PAGHED X 


»«B2*»*«»»** 


• « 


«««««B3******'* 


EXECUTE 




» MOVE CONTROL 


CLRLIN TO 


« 


« BYTE TO SKIP 


CLEAR PRINT 




» AND PRINT 


AREA 




• INTO TAPE 




♦ 


» OUTPUT AREA 



» LOAD ADDRESS 
• OF ENDING OF 
» PROGRAM LINE 
» INTO END OF 
•FIRST LINE REG 



»»»C2»*««*«« 
SET SWITCH » 
FOR UNCOND 

BRANCHING TO 
EXIT IN NOP 
BTSTCR-3 * 



«»«C3»**««**« 

EXECUTE 

CLRLIN TO 

CLEAR PRINT 

AREA 



LOAD AND TEST 
LINE COUNT 
REGISTER 

FOR ANY PAGE 
SPACE LEFT 



INCREMENT 
PAGE COUNT 
IN REGISTER 



MOVE 
JOB NAME 

TO 
HEADLINE 



ANY 
SPACE 
LEFT 



PRINT 

PAGE 

HEADER 



»»»»G1»»»»»»»« 

MOVE CONTROL 

BYTE TO SKIP 

2 LINES INTO 

TAPE OUTPUT 

AREA 



.♦ IS *. 

.» NEXT » 
♦.LINE IN CORE 



X 

CONVERT TO * 

DECIMAL AND ♦ 

UNPACK THE ♦ 

DIGIT PAGE ♦ 

NUMBER ♦ 


DATE X 

• MOVE ♦ 
» JOB DATE AND ♦ 

• PAGE NUMBER ♦ 

• TO HEADLINE ♦ 






X 

PAGE ♦. NO 
NUMBER ZERO ...... 


*»*»»F4^»» »♦♦*»♦» 

♦ LOAD ADDRESS » 

♦ OF OUTPUT » 

♦ COMMAND BLOCK » 

♦ INTO ♦ 

♦ REG 1 » 



»«»»G3* ♦«»♦»♦♦ 

SUPPRESS 

THE LEADING 

ZEROS IN THE 

PAGE 

NUMBER 



»*»»G 4* *♦♦•«♦* 

INSERT LINE 

COUNT FROM 

SYSLST LINE 

COUNT REGION 

IN COMREG 



♦E5»»«* 
UNPK 



»»**F5«^««»^»*^ 

MOVE 4 BYTE 

WORD FROM 

WORK AREA IN 

REG 3 TO AREA 

FOR EXPANDING 



UNPKl X 

**«««G5*«»«*»«««« 

• DECREMENT ♦ 

• REG CTR ♦ 
» AND UNPACK ♦ 
♦ONE 4 BYTE WORD* 

• INTO LINE ♦ 



♦ LOAD END OF 

♦ PROGRAM ADDR 
♦INTO REG 5 FOR 

♦ ENDING 

♦ LIMIT 



♦ K2 
THIS BRANCH WILL 
NEVER BE TAKEN 
BECAUSE THE LINE 
COUNT WAST JUST 
PICKED UP IN THE 
PREVIOUS INSTRUCTION 



♦*«««H3^^^*^*^^ 




H4 ♦. 






♦ ♦ 


♦♦•H5*^**^«**** 








-» IS ♦. 








MOVE 1 BYTE ♦ 


♦ CLEAR 






YES .♦ COUNT ♦ 


. NO 




DELIMITING ♦ 


♦ SAVE 






...♦. ZERO 


.♦. 






CHARACTER ♦ 


♦ AREA 






». ♦K2 .♦ 








TO WORK ♦ 








. ♦• .♦ 
X *. .♦ 

»♦♦» ♦ 




X 




AREA ♦ 


. 








• 


, 








♦ ♦ ♦ 




♦ PQ* 












♦ K2 ♦ 




♦ D5 












♦ ♦ 




« « 












»*»» 










X 














X 


FGNAME .♦. 






FGHED 






ALTER 


.♦. 


J3 ♦. 














J5 ♦. 


.♦ IS ♦ 






♦ MOVE 








.♦ IS ♦. 


.♦ FGNAME 




. YES 


♦ FOREGROUND 






NO . 


♦ ALTER ♦. 


♦. SWITCH ON 




.♦ . • . 


X^ NAME INTO 






• • • *• 


SWITCH ON .» 




« 




♦ HEAD LINE 






. 


















♦ . •♦ 














X 


♦ . . ♦ 


♦ NO 






• 




♦ 
♦ 


PQ « 
J2* 


♦ YES 


X 






X 








X 








♦ *•♦ 






♦ 


♦ ♦*♦♦ 








« ♦ 








♦ PQ ♦ 


♦ 2 ♦ 






• 3 ♦ 








♦ C2^ 


» ♦ 






* » 








« « 


**** 






**•* 








SPECIAL 
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Chart PQ. Prepare and Edit a Line Subroutine $$BPDUM1; 
Refer to Supervisor, Chart 30 



REGPNT X 

♦ MOVE A X'EF" 
*INTO THE FIRST 

♦ WORD AREA OF 

♦ LINE OUTPUT 

♦ AREA (LINE+8) 



REGPNT6 X 

«*««*C1*»******* 

• PROPOGATE 
» THE X'EF* 

• DATA WORD 
»T0 BYTE 119 OF 

• LINE +8 AREA 



ALTER 

• PP • 
« J5« 



COMPARE 
REGISTER 

WITH A 
CONSTANT 1 



B3 *. 

* FG ♦ 
END OF 
VOLUME 
SWITCH 

». ON .* 

'•YES 



«««««C3«*«**«*** 
» SET UP CLASS 
» AND UNIT 

• NUMBER FOR 

• SYSGOO AND 
•STORE IN REG 



LOAD ADDRESS 

OF FIRST WORD 

AREA TO 

REGISTER 6 



REGPNTl X 

»»«»»EI»***«»»*»* 
» LOAD A 4 • 

* INTO REGISTER • 
•0 TO INITIALIZE* 

* COUNTER • 



IS 

CONTROL 

SWITCH 

». ON .» 



• DOES • 

REG EQUAL 
». I .• 



«»««F2**« »♦♦•*» 

MOVE A 

ONE BYTE 

DELIMITING 

CHARACTER TO 

THE WORK AREA 



BLANK 

OUT 
WORK 
AREA 



««*««H2* ••••*'• 

» CLEAR SKIP 
• SWITCH BY 
•ANDING A X«OF« 
» INTO ALTER * 



*»**B4* ••••••• 

LOAD ADDRESS 

OF SYSLST 

INTO EOV 

ROUTINE 

REGISTER 



•*««C4* ••*••* 
SET PDUMP » 
END OF VOLUME* 
SWITCH IN 
PDUMP3 * 
DESIGNATOR ♦ 



»*• -u- » D 4 **•-)>'•"<>'*•' * 

• LOAD ADDRESS 

• OF END-OF- 
•VOLUME ROUTINE 

• $$BCMT07 



•*E4***«** 

SVC 2 

$$BCMT07 



♦»»B5«»***»* 

TRANSLATE 

DATA INTO 

PRINTABLE 

CHARACTERS 



PRNTL 

•*««.C5««««««««* 

• LOAD ADDRESS 

• OF SECOND 

• OUTPUT CCB 
•INTO REG I FOR 

• SVC CALL 



♦D5»»»«»» 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



WAIT 

AND COUNT 

LINES 

PRINTED 

SVC 7 



•••♦F3»*»»**»»* 

MOVE X'EF' 

FROM CONSTANT 

AREA TO A 

9 BYTE AREA 

IN LINE 



INCREMENT 

LOCATION 

COUNTER 



RESET 

LINE COUNTER 

TO 4 



G5 *. 

*SYSLST 
PRINTER 

'•NO 



• END 

OF FILE ON 
». TAPE 



. *. 


ALTER2 X 


J2 ♦. 


•••♦•J3»*»*^»« 




» LOAD ADDRESS 


IS ♦. NO 


* OF THE NEXT 


COUNTER .*.... 


....X* WORD AREA 


ZERO .* 


• INTO REG 6 



* THE NEXT * 

WORD WITHIN 

•. DUMP .* 

♦.LIMIT.* 



•♦•♦K5******* 
RETURN TO 
CALLER 



Appendix H, Detailed Flowcharts 573 



Chart PS, Set Up a Write on SYSRES Operation $$BYSYSWR 



****B3********* 
• $$BSYSWR ♦ 



••«***C3*********** 

LOAD ADDRESS 

• OF C0MRE6 • 

INTO REG 1 

♦ AS * 

BASE 



.♦. 

D3 
♦ IS 
CALL I 



**«**E3********** 

• LOAD STARTING • 

• ADDRESS OF * 

• PIS TABLE ♦ 

• INTO ♦ 

• WORK REGISTER ♦ 



♦ INCREMENT » 

♦ WORK REGISTER • 

♦ TO POINT TO ♦ 



*«*»*««««*••««*«» 



4i****G3******* 

* SET X«80» • 

* IN FLAGMASK 

* POSITION OF 

* BG PIB 

* • 



••4>*H3********* 
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Chart QA. Initialization, Part 2 $LNKEDT; Refer to Linkage 
Editor, Chart 31 



LOGPRT X 

• TURN ON ♦ 

• SYSLOG * 
•EQUALS PRINTER 
» SWITCH IN ♦ 

• LSTPSW • 



» SET UP BASE * 
* REGISTER FOR * 
•ROOT-CONSTANTS • 
•ADD SUBROUTINES* 
•PART OF PHASE 1» 



ERR09IB 

♦ INITIALIZE 

• ERROR MESSAGE 
» WITH 91 



•«D2***«*^ 

ABTERR 

CHART GM 



•SYSOOl 
A TAPE 
DEVICE 



•••C 4** •••••• 

SET UP 

OVERFLOW 

FACTORS FOR 

SYSOOl 



SVC 

WRITE DTF 
TABLE AS 



X 

♦C5«»»«^ 
SVC 7 
WAIT 



03 •. 




»*»»»D4^»»»»*» 


SYSOOl ♦. 




* SET UP LOCS 


A DISK *. 


YES 


•STSOGl.NDSOOl 


DEVICE 




♦ AND ONSOOl 






• FROM THE DTF 


.* 


• 


• TABLE «J4 



««E1*«««»* 

OPEN 

SYSLST 

WITH THE 

OPEN 

MACRO 



X 
•»»»F1*»»»*«» 
TURN ON ♦ 
SYSLST « 
ASSIGNED BIT 
SWITCH IN LOC* 
LST PSW » 



Gl ». 

.•SYSLOG=*. 
.♦ PRINTER •. NEITHER 
.SYSLOG=SYSLST.*.... 



TURN ON • 
SYSOOl EQUALS* 
TAPE SWITCH • 
IN LSTPSW » 



.♦SYSOOl 
A TAPE 
DEVICE 



»**»E4*«****«* 

SET UP DISK 

SEEK ADDRESS 

IN LOCATION 

ADDRESS 



SET UP CCH 

AND CCB TO 

WRITE DTF 

TABLE 



»«*D5*»**^** 

SET UP CCW 

OP CODE TO 

WRITE A 

TAPE MARK 



SVC 

WRITE A 

TAPEMARK 

AFTER 

RCDl 



«*F5»*»««» 

SVC 7 

WAIT •HS 



•EITHER 
-OR 
• BOTH 



HI ♦. ♦HZ 

.•SYSLOG=^. LOADS AND EXECUTES 

.• PRINTER ». EITHER SSBOPEN TRANSIENT. 
.SYSLOG=SYSLST.^.... 



TURN ON * 
SYSLOG « 
EQUALS SYSLST « 
SWITCH IN LOC* 
LST PSW » 



**G3******» 

♦ OPEN 
SYSLNK AND 
SYSOOl WITH 
OPEN MACRO 

♦ •HZ 



♦INITIALIZE LOCS^ 

♦ STSOOO AND • 

♦ ONSOOO WITH • 
♦LOWER LIMIT OF ♦ 

♦ EXTENT-CCHHR ♦ 



BUILD A CCW 

TO WRITE THE 

DTF TABLE 





< '. 


*»««G4**^*^««*»^ • 


DISKIO QM^ 




WRITE DTF ♦ 


\*?b^of"sfi5S-: 






X I 



*H5 

WHEN I/O HAS BEEN 
COMPLETED, THE TAPE 
SYSOOl HAS A SINGLE 
RECORD FILE CONTAINING 
THE DTF TABLE. IN 
ORDER TO CLOSE SYSOOl 
AND SYSLNK, TERMINAL 
PROCESSING MUST 
RETRIEVE THE DTF 
TABLE. 



•J4 

STSOOl AND ONSOOl 
ARE INITIALIZED WITH 
THE DISK ADDRESS OF 
THE COUNT I.D. FIELD 
AS SPECIFIED IN THE 
DTF TABLE. NDSOOl IS 
INITIALIZED WITH THE 
UPPER LIMIT OF THE 
EXTENT OF SYSOOl. 



«»«K3^»^^^**« 

SET UP 

OVERFLOW 

FACTORS FOR 

SYSLNK 
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Chart QB. Initialization, Part 1 (Part 1 of 2) $LNKEDT; 
Refer to Linkage Editor , Chart 31 



***** 

•QA * 



**** 

* * 

* I ♦ 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



INTPTl X 

♦•♦♦♦Al*********' 

* ALLQM A 

♦ HRWE ON 

♦ SYSI^S 

* OPER/friON 



**t***k2*********** 

* SVC 4 ♦ 

LOAD 

* $LNKE0T4 * 



A3 ♦. 

.* LINES *. 
♦ PER PG IN ♦. NO 

COMH REGION .*... 
♦. LT 10 .* 



*****l^it********** 
♦INITIALIZE LOG ♦ 

* OVERFLOW AND * 
' HDNGSP WITH ♦ 
' LINES/PG IN ♦ 

* COHH RGN * 



.X* 



♦ INITIALIZE ♦ 

♦ DATE AND JOB * 

♦ DATE AND NAME ♦ 

♦ FROM THE COMM ♦ 

♦ REGION * 



CI ♦. 

.♦14K OR ♦. 

MORE «. NO 
AVAILABLE .*... 
. CORE .* 



♦ RESTORE REG * 

♦ TO ITS VALUE ♦ 

♦ BEFORE THE * 

♦ LAST SVC ♦ 

♦ * 
^ini*************** 



^^*l,*C2********** 

* * 

* CALC THE ♦ 

* LOAD ADOR * 
♦OF $LNKE0T6 IN ♦ 

* REG ♦ 



^**^nfQ3********** 

♦ SET UP START ♦ 

♦ ADDR OF CTRL ♦ 

♦ DICT AND INIT ♦ 
♦FIRST CTRL DICT^ 

♦ ADDR ♦C^ ♦ 
m**m***m********* 



**00*Q2********** 

♦ FIND THE ♦ 
♦HIGHEST LNKEDT ♦ 

♦ PHASE ADDR ♦ 
♦USING A SERIES ♦ 
♦OF COMPARES *EA* 



CTLDAD IS INITIALIZED 
WITH THE HIGHEST PROBLEM 
PROGRAM ADDRESS. 
CDENTl IS INITIALIZED 
TO THE FIRST ADDRESS 
AVAILABLE FOR A CONTROL 
DICTIONARY ENTRY. 
CTLDAD-I6 EQ CDENTl 



♦♦♦♦♦Dl ♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE THE ♦ 
♦ADDRESS OF THE ♦ 

♦ COMM REGION ♦ 
♦AND SET SWITCH ♦ 

♦ INLEXT TO NOP ♦ 



♦ MODIFY LOC ♦ 

♦ CTLMTX TO ♦ 

♦ THE LOAD ADOR 

♦ OF $LNKE0T6 ♦ 

♦ * 

******* **4>*4>** 



*****03****4i***** 

♦ SAVE I/O AREA ♦ 
♦ADDRESS IN LOC ♦ 

♦ AWKARE ♦ INIT ♦ 

♦ CCW I/O FIELD ♦ 

♦ * 
***************** 



*****E1 ********** 

♦ SET UP ENDING ♦ 

♦ ADDRESS OF ♦ 

♦ $LNKEDTO IN ♦ 

♦ REGISTER ONE ♦ 

♦ * 
***************** 



******££♦♦♦♦♦♦♦♦♦♦♦ 

♦ SVC 4 ♦ 

LOAD 

♦ $LNKEDT6 ♦ 

*4>4<4i4'*****4>** 



*****£3********** 
♦ADD BLOCK SIZE ♦ 

♦ TO I/O AREA ♦ 

♦ ADDRESS WITH ♦ 
♦RESULT OF CALC ♦ 

♦ IN REG 2 ♦ 
***************** 



♦E4 
WHEN LOADING LINKAGE 
EDITOR PHASES INDIVIDUALLY 
THE I/O AREA, AWKARE, IS 
ORIGINEO AT THE END OF 
THE LONGEST LINKAGE 
EDITOR PHASE. 



*****Fl****4i** 

♦ MODIFY LOC ♦ 

♦ OTHMTX TO 

♦ LOAD ADDR OF 

♦ $LNKEDT2 

♦ * 
************** 



******G1 *********** 

♦ SVC 4 ♦ 

LOAD 

♦ $LNKEDT2 ♦ 

************* 



*****F2^^^^^^^^^^ 

♦ RESTORE REG ♦ 

♦ TO ITS VALUE ♦ 

♦ BEFORE THE ♦ 

♦ LAST SVC ♦ 

♦ * 
***************** 



*****G2*********4i 

♦ CALC ENDING ♦ 

♦ ADDRESS FOR ♦ 

♦ $LNKEDT6 AND ♦ 

♦ SAVE IN LOC ♦ 

♦ VCTLND ♦ 
***************** 



.♦ CALC ♦. 
♦ ABOVE GT ♦ 

END ADDR OF 
♦.$LNKEDT8 .♦ 



*****G3********** 

♦ SET UP REG 2 ♦ 

♦ WITH END ♦ 

♦ ADDRESS ♦ 

♦ SLNKEDTS ♦ 

♦ * 
***************** 



♦CALC THE HIGHER* 
♦of: end OF LbL ♦ 
♦AREA ADDR. AND * 
♦END OF STORftOE ♦ 
♦ PROTECT ADLR ♦ 
***************** 



*^***QS********** 

♦ ADJUST HIGHER ♦ 

♦ ADDRESS TO ♦ 

♦ DOUBLE WOkO ♦ 

♦ BOUNDARY ♦ 

***************** 



*****Hl********** 

♦ CALC LOAD ♦ 

♦ ADDRESS OF ♦ 

♦ $LNKEDT4 IN ♦ 

♦ REGISTER ♦ 

♦ * 
***************** 



*****H2^^^^^^^^*^ 

♦ SET UP CCW ♦ 

♦ ADDRESS FOR ♦ 
♦PROPER LOCATION^ 

♦ IN $LNKEDT2 ♦ 

♦ * 
**«*****4>«****4i** 



*****H3****«***** 
♦SET UP START 0F+ 

♦ LINKAGE TABLE ♦ 

♦ USING ADOR IN ♦ 
♦REG 2-INITIAL- ♦ 

♦ IZES LNKTAD ♦ 
***************** 



*****H5^^^^^^^^^* 
♦SAVE END OF LBL* 
♦ADDR AS END OF ♦ 
♦SUPERVISOR AND ♦ 

♦ FIRST PHASE ♦ 

♦ ORIGIN ADDR ♦ 
***************** 



*****Jl****4i** 

♦ MODIFY LOC * 

♦ IPTMTX TO ♦ 

♦ THE LOAD ADDR 

♦ OF $LNKEDT4 ♦ 

♦ * 
************** 



*****J2******* 

♦ SET LOAD SW^ 

♦ TO BRANCH ♦ 

♦ CANCELING 

♦ INDIVIDUAL ♦ 

♦ PHASE LOADS^ 
******4i*4'**4t** 



**** 

* ♦ 

* 3 ♦ 

* * 
♦♦♦* 



***** 
♦QC ♦ 
♦ Bl^ 



**** 

* * 

* I ♦ 

* * 
**** 
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Chart QC. Initialization, Part 1 (Part 2 of 2) $LNKEDT; 
Refer to Linkage bditor. Chart 31 





HOGMSW 


.». 






A5 ♦. 


SET UP « 






CHARACTERS » 


NOP .» 


CLEAR 


CLEAR- IN MAP »X.. 




REQUEST 


PRINT AREA * 


«. 


SWITCH 



» LSTPSW «. YES 
SHOW SYSLST ...... 

•.ASSIGNED -» 



TURN ON 

MAPSW 

ASSUMING THE 

MAP OPTION 



.♦ FIRST *. 
«BYTE OF CD ». NO 
IMAGE BLANK 



SET UP 

CHARACTERS 

-NOAUTO- IN 

MAP PRINT 

AREA 



NOP .» NOAUTO 
...... REQUEST 

♦. SWITCH 



»»«««C1 *«'«'«•««*«<( 
• SET UP SEEK » 
•ADDR FOR SYSTEM* 
» DIRECTORY AND » 
•INITIALIZE THE « 
» CCB, OSKCCB » 



•READ THE FIRST 

• SYSTEM 

» DIRECTORY RCD 



» INIT. LNKEDT 
» LOCATIONS FOR 
* PHDAt THPHDAt 
» CYLIST, AND 
•CILAST FROM SD 



POINT TO 

NEXT CARD 

COLUMN 



ERROR MSG 
•2112It 21351 
21361 



BR .• CANCEL 
...». REQUEST 

•. SWITCH 



••*D5»*«» 

SET UP 

CHARACTERS 

-CANCEL- I 

MAP PRINT 

AREA 



IN 



PRINT ACTION 

INFORMATION 

ON MAP 



CI •. YES 
LIBRARY ...... 

FULL .• 



•*»»G1*»**«»** 

SET UP SEEK 
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Chart QD. Read SYSLNK Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 



* • 

* ROSOOO » 



♦♦-TRK/CYL OVERFLOW FACTOR 



.* A *. BR 
*. OUHMY CARD .*... 
♦. PHASE .♦ 
♦ . .♦ 



♦ RET TO ADOR ♦ 
.X* IN LINK REG * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



v«*«*C2********** 

♦ ADO RECORD * 

• LNG TO RCD TO * 
♦CALCULATE NEXT • 

* RCD ADDRESS * 

* * 
***************** 



*****C4********** 
♦DISKIO QM* 

* READ DISK TO * 

* GET THE NEXT ♦ 

* BLOCK ♦ 
4i4i4<******4>***4<*** 



*****Q2********** 

♦ SUBTRACT 1 * 

♦ FROM THE ♦ 

* RECORD COUNT * 

* * 
*4i*4i****4i*******4i 



.♦ 
*. •* 

*YES 



*****[)5******4<*** 

♦ PUT ADDRESS ♦ 

♦ OF NEXT RCD ♦ 
.X* IN FIRST BYTE ♦ 

♦ OF CYLFCT ♦ 

♦ * 
*****4>4i***4c*****« 



E2 *. 




.♦ *. 


****E3********* 


♦ BLOCK *. NO 


♦ RET TO ADDR 


FINISHED .* 


...X* IN LINK REG 







*****P2********** 

♦ SET UP THE ♦ 

♦ CCH AT LOC ♦ 

♦ DSKMHT TO ♦ 

♦ READ SYSLNK ♦ 

♦ * 
***************** 



****4[*4i4>**4i4i*4i* 



* * 

* INSOOO-4 ♦ 

* * 
*************** 



*****G2********** 
♦PUT THE ADDRESS^ 

♦ OF THE NEXT ♦ 
♦BLOCK ON SYSLNK^ 

♦ INTO A • 

♦ REGISTER ♦ 
***************** 



.X.X. 



****G3********* 

* * 

* INSOOO ♦ 

* * 
*************** 



INSOOO X 

*****H2********** 

♦ SET UP CYLFCT ♦ 

♦ FOR * 

♦ PROCESSING * 

♦ SYSLNK * 

♦ ♦A* ♦ 
***************** 



X 

.♦. 

J2 ♦. 

•♦ ON ♦. 
.♦ THE ♦. YES 
♦. RELOCATABLE ...... 

*• LIBRARY .♦ 
♦ . •♦ 



*****J3********** 

* SET UP ♦ 

* CYLFCT FOR ♦ 
•X^THE RELOCATABLE^ 

* LIBRARY ♦ 

* ♦ 
***************** 



*****E5^*^^^^^t^* 
♦ADIDSK QK* 
*.*-*-*.*-*-*-*-* 
♦ UPDATE DISK * 



***************** 



*****F4********** 
*AD1DSK QK* 
*.*-*-*-*-*-*-*-* 

♦ UPDATE ♦ 

♦ DISK ♦ 

♦ * 
***************** 



*****64********** 

♦ PUT NEXT RCa * 

♦ ADDRESS IN ♦ 

♦ LOCATION ♦ 

♦ ONSOOO ♦ 

♦ * 
***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



***************** 



****«j^********** 

♦ PUT FIRST ♦ 

♦ RECORD ♦ 

♦ ADDRESS ♦ 

♦ IN REG A ♦ 

***************** 



*****K2*******^** 
♦STORE THE ADOR ♦ 

* OF THE NEXT ♦ 

* ROD IN LOC ♦ 

* ADDRESS AND * 

* SET UP CCB • 
**••*•******•**** 



****K4********* 
♦RETURN TO ADOR ♦ 

♦ IN LINK REG ♦ 

* * 
*************** 



***• 

* * 

* I ♦ 

* • 



578 DOS System Control 



Chart QE- Control Dictionary Search Subroutine $LNKEDT; 
Refer to Linkage Editor, Chart 31 
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Chart QF, Label Search Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 
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Chart QH. Convert to Binary Subroutine $LNKEDT; Refer to 
Linkage Editor, Chart 31 
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Chart QJ. Print/Carriage Control Subroutine $LNKEDT; Refer 
to Linkage Editor, Chart 31 
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Chart QK. Update Disk Address Subroutine $LNKEDT; Refer to 
Linkage Editor, Chart 31 
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Chart QL. Extract Phase Number Subroutine $LNKEDr; Refer to 
Linkage Editor, Chart 31 
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Chart QM. Read/Write Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 
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Chart QN. Overflow Test Subroutine $LNKEDT; Refer to 
Linkage Editor, Chart 31 
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Chart QP. Read Input Stream $LNKEDT; Refer to Linkage 
Editor, Chart 31 
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Chart QQ. Autolink Processing Subroutine $LNKEDT; Refer to 
Linkage Editor, Chart 31 
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Chart QR. Non- Abort Error Subroutine $LNKEDT; Refer to 
Linkage Editor, Chart 31 



TURN ON • 
ERROR CODE • 
IN MAP SWITCH 
MAPSW » 



NOTCTL X 

« SET UP THE 

» NON VARIABLE 

• FIELD OF THE 

• CARD IMAGE IN 

• THE PR AREA 



• CONVERT 
» ERROR CODE 
« TO DECIMAL 



«»»««C2»»««»«»*«» 

• SET UP REGS • 
•WITH - ADDR OF • 

• VAR FLD, PR » 
♦AREA ADDR, AND • 
•CNT OF ESD/LINE* 



MOVE ERROR 

CODE TO 
PRINT AREA 



12-2-9 
TYPE 
CARD 



MOVE CARD 

IMAGE TO 

PRINT AREA 



X 
* 1 



»*»«E2*«*»**«« 

RESET NUMBER 

OF WORDS 

TG CONVERT 

COUNT TO 



NTESLP 

*»int«P 2* ********* 

♦ CONVERT WORD « 

♦ TO HEX AND • 
♦UPDATE REGISTER* 

♦ POINTERS » 



«»»E3««»***»* 
CONVERT ESD 
VAR FLD TO 

HEX AND 

UPDATE REG 

POINTERS 



* ESD/LINE ♦ 

COUNT EQUAL 
*. .♦ 



*_PRINT QJ_* 

* |p'RrNT*ERROR* * 

* CODE AND * 

* iCARD IMAGE * 



•♦Kl**»»*» 

RDNEXT 

CHART QP 
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Chart QS. Overlay Subroutine $LNKEDT; Refer to Linkage 
Editor, Chart 31 



♦ ♦ 

♦ OVRLAY * 

♦ ♦ 



* ♦ 

* I ♦ 

* 4< 
♦ **♦ 



OVRLAY+4 

♦ SET UP START ♦ 
*ANO END PLUS 1 * 

♦ ADDRESSES OF ♦ 
*MAP I/O AREA IN* 
♦A PAIR OF REGS * 



♦ PUT AODR OF » 

♦ THIS INST * 

♦ RELATIVE TO » 
♦START OF PRINT * 

♦ RTN IN A REG * 



♦DECREASE VALUE * 

♦ IN REGISTER ♦ 

♦ POINTING TO ♦ 
♦END OF HAP I/O ♦ 

♦ AREA ♦ 



♦♦♦♦B3*^*^^**^* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 



CLEAR THE 

I/O AREA 

WITH BLANKS 



* EXIT TO THE ♦ 

* ADDR IN THE * 

* LINK REG ♦ 



NOTE 
THIS ROUTINE PUTS OUT ERRLR MESSAGES 
ON SYSLOG WHEN THE NOMAP OPTION 
IS SELECTED. THE FIRST INSTRUCTION 
IS A BRANCH TO THE LINK REGISTER AODRESSt 
SUPPLYING AN EXIT WHEN THE MODIFIED PRINT 
ROUTINE IS ENTERED AT LOCATION 
UVFLGW. 

THE OVERLAY SUBROUTINE IS ENTERED 
BY BRANCHING TO LOCATION PRTLOG 
WITHIN THE MODIFIED PRINT ROUTINE, 
THUS BYPASSING THE UNCONDITIONAL 
BRANCH TO THE LINKAGE REGISTER 
ADDRESS. 

THE OVERLAY SUBROUTINE DOES NOT 
PRINT A 121 CHARACTER LENGTH MESSAGE 
AS DID THE PRINT ROUTINE. IT 
SEARCHES FOR THE MESSAGE (A 
NONBLANK) CALCULATES ITS LENGTH, 
AND PRINTS THE MESSAGE ON SYSLOG. 



4i]»«4<*Gl ♦♦♦♦♦♦♦♦♦♦ 

♦ CALCULATE ♦ 

♦ LENGTH OF ♦ 

♦ MESSAGE IN ♦ 

♦ MAP I/O AREA ♦ 

♦ ♦ 



4<***4<H1 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP COUNT ♦ 

♦ FIELD OF CCW ♦ 

♦ WITH RESULT ♦ 
♦OF CALCULATION ♦ 

♦ ♦ 



SVC 

♦ TYPE MESSAGE ♦ 

SYSLOG 



*********ilL*** 
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Chart QT. Core Image Block Building Subroutine $LNKEDT; 
Refer to Linkage Editor, Chart 31 



♦ ♦ 

♦ DERDAD ♦ 

♦ ♦ 



*A2 
PREPHS IS THE CONTROL 
DICTIONARY NUMBER 
OF THE LAST PHASE 
PROCESSED IN THE CORE 
IMAGE LIBRARY. PHSNO 
IS THE CONTROL DICTION- 
ARY NUMBER OF THE CURRENT 
PHASE IN PROGRESS. WHEN 
THESE NUMBERS DO NUT 
MATCH THIS IS A 
NEW PHASE. 



* * 

♦ 5 ♦ 



.♦ THIS A 

♦. NEW PHASE 

*. ♦AZ 



♦♦♦**C1****»** 

♦ MODIFY SW ♦ 

♦ DERSWl IN 

♦ THIS RTN TO 

♦ BRANCH TO 

♦ FORCE INIT ♦ 
************** 



.♦ TXT ♦. 

LOAD ADDR 
GT OR EQ 
. NEXT CI . 
♦. BLK .♦ 

♦ . .» 

*N0 



C3 *. 

.* TXT ♦. 
.♦ LOAD ADOR *. NO 
*LT LOAD ADDR OF*.. 
». CURR CI .» 
*. BLK .♦ 



X* WRITE THIS 

* CORE IMAGE 

♦ BLOCK 

*********0^^,0^ 



DERDOK X 

*****Dl********** 

* COMPARE LOAD ♦ 

* ADDR OF TEXT ♦ 

* WITH ADDR OF * 

* PHASE ORIGIN ♦ 

* ♦ 
***************** 



*****£l********** 

* INIT ERROR ♦ 

* MSG WITH 50 ♦ 

* TO SHOW LOAD ♦ 

* ADDR OUTSIDE ♦ 

* PHASE LIMIT ♦ 
****************^ 



,* LOAD ADOR * 
.LT PHASE ORG 
♦. +02 .♦ 



*****Ql********** 

♦ ADD LNG TO ♦ 

♦ LOAD ADDR AND ♦ 

♦ CMP SUM TO ♦ 

♦ ADDR OF NEXT ♦ 

♦ PHASE ORIGIN ♦ 
***************** 



LOAD ADDRESS IS TOO LOW, 
AND FALLS OUTSIDE THE 
PHASE BOUNDARIES. 



DERDSW 


HI ♦. 






♦ SUM ♦ 




,♦ 


OF CALC 


* 


♦ .Gl 


NEXT PHASE 


*• 


ORIGIN 
♦. ♦HZ .♦ 

♦ . .♦ 

♦NO 
. NOP 


* 



ERR050 X 

******f2*********** 

ERROR OR 

♦-*-♦-♦-♦-♦-♦-*-♦ 

SECOND ERROR 

♦ MESSAGE * 

21501 

************* 



****Q2********* 

♦ RDNEXT * 

♦ CHART QP ♦ 

♦ * 
*************** 



*H2 
LOAD ADDRESS IS TOO HIGH* 
AND FALLS OUTSIDE THE 
PHASE BOUNDARIES. 



*YES 



♦ **• , 
DERITE X 

*****02********** 
♦WRITE QM^ 

*-*-*-*-*-*-*-*-* 

♦ WRITE THIS ♦ 

♦ CORE IMAGE ♦ 

♦ BLOCK ♦ 
***************** 



*****£2********** 

♦ RESET DERSWl ♦ 

♦ AND MOVE ♦ 

♦ CONTENTS OF ♦ 

♦ ORPHDA INTO ♦ 
♦THPHDA *J2* 
***************** 



**** 
DERCAL X 

*****f^******* 



************ 



♦ 6 ♦... 

♦ ♦ . 
*♦♦♦ 

OERLOP X 

*****Q-^********** 

♦ STORE DISK ♦ 
♦ADDR OF CURRENT^ 

♦ CORE IMAGE ♦ 

♦ BLOCK IN LOC ♦ 

♦ THPHDA ♦ 
***************** 



*****H^********** 
» ADD 1728 TO ♦ 

♦ CURRENT CORE ♦ 

♦ IMAGE BLK TO * 

♦ GET NEW VALUE ♦ 

♦ FOR HICORE ♦ 
***************** 



*****QS********** 

♦ CMP DISK ♦ 

♦ ADDR OF CURR ♦ 
♦CORE IMAGE BLK ♦ 
♦WITH UPPER LMT ♦ 

♦ OF CI LIB ♦ 
***************** 

**** l 

♦ ♦ . 
♦SE ♦... 

♦ El^ 

♦♦♦♦ 
ERR093 X 

^^'♦♦♦C5^^^^*^**^* 

♦ ♦ 

♦ INITIALIZE ♦ 

♦ ERROR MESSAGE » 

♦ WITH 93 ♦ 

♦ * 
***************** 



****^i^********* 

* FETCH ABORT ♦ 
♦RTN VIA ABTERR ♦X. 

♦ CHART QM ♦ 
*************** 



.♦ CALC ♦ 
ADDR GT 
LIMIT OF 
. CI LIB 



*****f^*i********* 

♦ UPDATE LOC ♦ 

♦ LOCORE AND » 

♦ HICORE WITH ♦ 

♦ NEW ADDRESSES ♦ 

♦ ♦ 
***************** 



*****Q^********** 
♦READ QM^ 

♦-♦-♦-♦-♦-»-♦-♦-♦ 

♦ READ THE ♦ 

♦ CORE IMAGE ♦ 

♦ BLK ♦ 
***************** 



*****ii^********** 

♦ PUT THE PHASE ♦ 

♦ NUMBER OF ♦ 

♦ CI BLOCK READ ♦ 

♦ INTO LOC ♦ 

♦ PREPHS ♦ 
***************** 



*****jl********** 

♦ * 

♦ RESTORE ♦ 

♦ LOAD ♦ 

♦ ADDRESS ♦ 

♦ ♦ 
***************** 



♦J2 
ORPHDA CONTAINS DISK 
ADDRESS OF THE FIRST 
BLOCK OF THIS PHASE. 
THPHDA CONTAINS DISK 
ADDRESS OF CURRENT 
CORE IMAGE BLOCK. 



DERSWl 


• ♦• 
Kl ♦, 






.♦ NEED ♦. 


NOP 


.♦TO INIT FOR^. 


NO 


♦ , 


NEW PHASE . 


♦ .... 


* 


• ♦ 






♦ . .♦ 






♦ . .♦ 


X 




♦YES 


♦ *♦♦ 




. BR 


* 






♦ 2 




X 


* 




*♦** 


♦•♦♦ 




♦ ♦ 






♦ 3 ♦ 






♦ ♦ 






••♦♦ 





J3 ♦. 




.♦ DOES ♦. 




.♦ THIS TXT ♦. YES 


♦. GO IN THIS .♦ 




♦. BLOCK .,♦ 




♦ . .♦ 




♦ . .♦ 


X 


♦NO 


**** 




♦ 




♦ 5 




♦ 


. 


♦♦♦♦ 


X 




*****\^2********** 




♦ADlDSK-4 QK^ 




*-♦-♦-♦-♦-♦-♦-♦-» 




♦ INCREMENT ♦ 




♦ DISK AD€R TO ♦ 




♦ NEXT BLOCK ♦ 




***************** 




X 




♦♦♦» 




♦ * 




♦ 6 ♦ 




♦ ♦ 




**♦* 





****J^********* 

♦ RET TO LINK ♦ 

♦ REG ADDR ♦ 

♦ ♦ 
*************** 
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Chart QU. Action Processor $LNKEDT; Refer to Linkage 
Editor, Chart 31 



♦♦*♦*!♦♦♦♦*♦♦♦♦ 

♦ * 

♦ ACTNPR ♦ 

♦ ♦Aa ♦ 

♦♦*♦♦♦•******•* 



ACTNPR X 

♦ POINT REG 6 ♦ 

♦ TO ADDRESS OF ♦ 

♦ INPUT AREA ♦ 

♦ PAST OP FLD ♦ 

♦ * 



♦A2 

REG 5 CONTAINS 
AODR OF COL 72. 
REG 6 CONTAINS 
INPUT AREA 
ADDRESS. 



♦B2 
THIS LOOP 
SEARCHES FOR 
THE OPERAND. 



* * 

♦ I ♦ 



'♦YES 



♦ 5 ♦ 

* * 



MP .♦. 


ACTNTO .♦. 


83 ♦. 


64 *. 




.♦ ♦. 


.♦ OPERAND ♦. NO 


.♦ OPERAND 


. EQ NOMAP ...... 


....X^. EQUAL NOAUTO 



♦ SET SW HDGCAN ♦ 

♦ EQU NOP IN ♦ 

♦ INIT RTN AND ♦ 
♦TURN ON CANCEL ♦ 

♦ OPTION SWITCH ♦ 
♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦* 



FNDOP X 

*«**4>c !♦♦♦♦♦♦♦♦♦♦ 

♦ ADD I TO ♦ 

♦ REG 6 SO THAT ♦ 

♦ IT POINTS TO ♦ 
♦NEXT CHARACTERS^ 

♦ * 



♦ CMP CONTENTS ♦ 

♦ OF REG 6 TO ♦ 

♦ CONTENT OF ♦ 

♦ REG 5 ♦ 

♦ ♦AZ ♦ 



ERR112 X 

*«**4iE !♦♦♦♦♦♦♦♦♦♦ 

♦ INITIALIZE ♦ 

♦ ERROR MESSAGE ♦ 

♦ WITH 12 ♦ 

♦ ♦ 

♦ ♦ 



ERR035 X 

♦ INITIALIZE ♦ 

♦ ERROR MESSAGE ♦ 

♦ WITH 35 ♦ 

♦ ♦ 



♦ 2 ♦... 

♦ ♦ . 
♦*♦* 

ERRACT X 

♦ MODIFY ♦ 

♦ SWITCH ACTERA^ 

♦ IN INIT RTN ♦ 

♦ TO LOAD ADDR ♦ 

♦ ♦ 



♦ TURN OFF 

♦ SWITCH 

♦ MAPSW 

* 



♦ SET SW H0GSW2 ♦ 

♦ EQ NOP IN ♦ 

♦ INIT RTN AND ♦ 

♦ MOVE FF TO * 

♦ ALNKSW ♦ 
***************** 



****cs********* 

♦ EXIT TO ♦ 
♦ACTRET CHART QC^ 

* ♦ 
*************** 



****03********* 
♦EXIT TO ACTRET ♦ 

♦ CHART QC ♦ 

* * 
*************** 



ACTCLR 
NO 



Fl ♦. 

.♦ CARD ♦, 

IMAGE IN 

INPUT AREA 

.TOO LONG . 

♦ . .♦ 

♦ . .♦ 

♦NO 


♦ . 

♦ ' 


X 

* * 

* 2 ♦ 

* « 
**** 


,* 
♦. 

* 


F2 ♦. 

.♦14K OR ♦. 
MORE CORE 
AVAILABLE 

'♦. .♦' 
♦ . .♦ 

♦YES 

*x.... 


♦ 
* 


NO 
♦ 


*****f2******* 

♦ SET SWITCH 

♦ ACTR16 IN 
...X^ INIT ROUTINE 

♦ TO BRANCH 
♦ 


X 
.♦. 


***** 
♦QC * 
♦ G3^ 









Gl 
.♦ IS ♦. 

YES .♦CONTENT OF 
...♦.INPUT AREA A 
♦. BLANK . 
♦. ^82 .♦ 
♦ . .♦ 
♦NO 



.* OPERAND ♦. NO 
*. EQUAL MAP .♦... 
♦. .♦ 



**** 

* * 

* 3 * 

* * 
**** 



CLRLOP X 

*****£^********** 

♦WRITE CM* 
♦-»-*-*-♦-♦-*-♦-* 

♦ KKITE A CORE ♦ 

♦ IMAGE RECORD ♦ 

♦ * 
***************** 



*****f^^********** 
*ADlDSK-4 QK* 
♦-*-♦-»-*-*-♦-*-♦ 

♦ INCREMENT ♦ 

♦ TO NEXT ♦ 

♦ RECORD ♦ 
***************** 



*****Qit********** 

♦ UPDATE ♦ 

♦ STARTING ♦ 
♦ADDRESS OF CORE^ 

♦ IMAGE ♦ 

♦ LIBRARY ♦ 
***************** 



.♦ ♦. 

NO .♦ END 

. ..♦. OF LIBRARY 



*****£^********** 

♦ SET SW HDGMSW ♦ 
♦IN INIT RTN TO * 

♦ NOP- INIT ♦ 

♦ POINTER Rfct ♦ 

♦ AND CTR REG * 
***************** 



.X 

ACTLOP X 

*****f^********** 

♦ MOVE A BYTE ♦ 

♦ OF ZEROS TO ♦ 

♦ WORK AREA AMD ♦ 

♦ INCREMENT ♦ 

♦ POINTER REG ♦ 
***************** 



.* CHAR/RCD 
EQUAL 
♦ . 



♦ MOVE DISK ♦ 

♦ OVERFLOW ♦ 

♦ FACTORS TO ♦ 

♦ LOC CYLFCT ♦ 

♦ * 
***************** 



**•* 

* * 

♦ I * 

• * 
**•* 



Jl 



♦. 



,* 

ASSIGNED ;♦; 

**. .♦' 
♦ . .♦ 

♦NO 



*****J2********** 

♦ SET MAP ♦ 

♦ SWITCH.MAPSH, ♦ 
.X^ TO SHOW MAP ♦ 

♦ OPTION CHOSEN ♦ 

♦ * 
***************** 



♦ADDRESS OF CORE^ 

♦ IMAGE ♦ 

♦ LIBRARY ♦ 
***************** 



•****j5********** 



***************** 



ERROR 

* MESSAGE WITH • 

* 36 ♦ 

* • 
***************** 



****K2********* 
• EXIT TO ♦ 
•ACTRET CHART QC^ 

*************** 



•**'* 

* • 

* 2 • 

* • 
**•* 
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Chart RA.- Initialize ESD Processor $LNKEDTO; Refer to 
Linkage Editor, Chart 32 



• A2 
LOC COMNRF 
IS NOT MCDIFIED 
IN THE READ 
INPUT STREAM 
RTN. KEEP ADDR 
OF CARD LAST 
READ. 



*A3 
A DUMMY PHASE 
CARD IS BUILT 
FOR THE FIRST 
PHASE ONLY IF 
NO OTHER PHASE 
CARD IS FOUND. 
THE INSTRUCTION 
AT THIS LOC IS 
ESSENTIALLY A 
FIRST TIME 
SWITCH. 



AN OBJECT 
MODULE IS 
THE OUTPUT 
OF A LANGUAGE 
TRANSLATOR. THIS 
IS A TEST FOR 
FIRST ESD/SYM 
RCD IN A MODULE. 



• A5 
REG 2 CONTAINS 
THE ADDR OF 
THE NEXT RCD 

CAUTION 

THIS ADDR CAN' 

BE ON THE 

NEXT TRACK. 

REFER TO -PERIDA- 

AT START OF 

LINKAGE EDITOR 

LABEL LIST. 

(L/E COMMON LABELS) 



BI «. 
.* ANY ♦ 

« PHASE 

CARDS PRO- 
». CESSED 
«. »A3 .» 

**«N0 



•»«C1*»»»*«»« 

EFFECTIVELY 

NOP SWITCH 

DMPHSW 



MODIFY SWITCH 
RDSOOO TO ♦ 

BR IN THE RD 
INPUT RTN • 



BUILD A 
DUMMY PHASE 
CARD IMAGE 



»»*»»F1*»*»*»»»* 

* PUT ADDR AND 
« PHASE IDENTI- 
» FIER FOR CTRL 
•CD SCAN RTN IN 

• A REGISTER 



ESDIST .«. 

B2 ♦. 
.•OBJECT *. 
.» MODULE IN *. 
...X». PROCESS 

». "A^ .♦ 



* SET MODSTS 
•SWITCH ON -XOl- 

• RESET DMPHSW 



» MOVE ADDRESS • 

• OF FIRST ESD » 
•RECORD INTO LOC» 

• ESDNOO • 



E2 •. 

*RECORD 

ON 

SYSLNK 

'•YES 



•MOVE ADDRESS 0F» 

• FIRST ESD » 

• RECORD TO LOC » 
» ESDOGO » 



NO .• AN •. 

X •.ESD RCD AFTER. 

•. END RCD .* 



»»«««D3»*^»»»*»*^ 

• MOVE ADDRESS • 
» OF NEXT ESD • 
•INTO LOC PERIDA* 
•(SEE LBL LIST) • 

• »A5 • 



• WAS 

THIS A 
•.SYM CARD 



••••F3^»^^*^*«* 

LOAD REG 6 

WITH STARTING 

ADDR OF 

CARD IMAGE 



♦ RDNEXT 

* CHART QP 



EXLOAD 

CHART QP 

• HI 



• HI 

PROCESS DUMMY 
AS IF IT WERE 
A LEGITIAMTE 
PHASE CARD. 



••*G3**«***** 

PUT ESID 

NUMBER 

IN REGISTER 
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Chart RB. ESD Processor, Card Image Cheeky (Part 1 of 2) 
$LNKEDTO; Refer to Linkage Editor, Chart 32 






ooooo 



06000 



• X. 



ESOnET X 

oooooBieeoooooooo 
* SET UP TEST «■ 
« TO DETERMINE « 
e IF THE CARD « 
o IMAGE HAS o 
ODEEri PROCESSED « 
oooooeooooooooooo 



002 
SUDI 

TIPLE EXIT^, 

CIFIEO IN 

TERMS OF LNK REG AODR 



UBRTM LTESID HAS 

ULTIPLE 

EXITS --- 



PLUS DISPLACEMENT. 



.© END «. 

.<» OF *. VES 

«. CARD ...... 

«. IMAGE .«> 



01 N THE CO THAT » 



©LTESID QE* 
0-0-0-0-0-0-0-0-* 
« CONVERT ESID * 
« NUMBER TO » 
« CTRL DICT NO. « 
o««o»o««o*««>o»«*« 



.*. 

C3 «. 

.• ESID ♦. 

.« NUMBER ». YES 

.NOT PROCESSED.*.... 

*. OB2 .♦ 



•RD * 
• Bl* 



OOOO02<'««O«O«»O 

o RDNEXT « 

« CHART QP * 

o o 

oooooooooooeooo 



03 *. 

.* ESID ». 

.« NUMBER TO «. 

. BE BYPASSED . 

». »B2 .« 



««<■««£! oooooooooo 
OPOINT REG 6 TO « 
« THE NEXT o 
» ENTRY OF VAR * 
« FIELD OF CARD * 
o IMAGE O 
9««00O0«O00«>«O0«» 



00000F1»0«0C'0«0C>« 
OFORCE THE TYPE * 
» FIELD OF CARD « 
o IMAGE TO BE o 
« BINARY o 
O o 

«:0O««O««O»0«O(>0«» 



«oo«>«E3««>«****«** 
» ASSIGN THE * 
« LD BY ANDING * 

* A HEX OF INTO * 
OTHE TYPE FIELD ♦ 

* ♦ 



«STORE CTRL DICT* 

* NO. IN VAR * 
» FIELD OF CO * 

* IMAGE AS AN * 
« ESID POINTER * 
90»«t»0«««i««4i«*«*« 



.« TYPE *. 
.* CODE IN 0. NO 
*. RANGE 0-2» A .o..... 


ERR040 

o<i»«eG2***o****oo 

•••X^ MESSAGE TO * 


*. .«■ 
»YES 


40 


ooooooooooooooooo 


X 
Hl-^-o. 

«. .<> X 


oooooOH2«e«*e»«»««o 

o-o-o-o-o-o-o-o-o 

meIIage 

oooooooooooo* 



♦ 3 ♦ 

• * 



00000 J 1 0000000000 

^ OR A HEX PO ^ 

TYPE FLD ' 



OOOOOKIOOOOOOOOOO 

« INIV REG e 

« riUMBER FOR » 
o THIS LO o 

o o 

00000000000000000 



0000 
O 

o 3 ».. 



OOO0J2«*O*O000» 
O RDNEXT o 
o CHART QP o 
o © 

oooooooooooooo* 



VAR 
D TYPE 
EQ ER 



X 
.«. 

K3 «. 



*• 



.:'oJVI8!i'^» •: 

0. THIS .« 



«.phaIe.« 

o. .» X 
«N0 OOOOO 
»RC • 
• CNCALK o Ci«PftSOPC 

00000 
ORC • 
O §10 



ERR0'fr2 

OOO0OH4*********' 
* INITIALIZE 
« ERROR 
...X* MESSAGE OF 

t *=^ 

00*0**0*0**0***0i 



•000*0 J4********00« 

ERROR QR 

o-o-*-»-*>o-o-*-o 

ISSUE 

• ERROR MSG * 

21421 

0*0*0000*0*** 



00**K4********* 

* 
oo*o***o****o*o 



H*' 
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Chart RC ESD Processor, Card Image Check, (Part 2 of 2) 
$LNKEDTO; Refer to Linkage Editor, Chart 32 



HEX FF IS USED TO PREVENT 
AN AUTOLINK ATTEMPT ON 
THIS ER. 



♦b5 
USED TO CALCULATE NEXT 
PHASE ORIGIN. 



***** 
*RB * 
* K3* 



♦ 3 ♦.X. 

♦ * . 

**** 
CNCALK X 

***4i4'Bl********** 

♦ MOVE A HEX FF » 

♦ INTO THE ♦ 

♦ TENTH BYTE OF * 

♦ THE VARIABLE ♦ 
♦FIELD *A2* 

**** * 

♦ ♦ . 
♦RB *... 

♦ K3* 

♦ *♦♦ X 
PRSDPC .♦. 

CI ♦. 
.* VAR ♦, 
.* FLO TYPE *. NO 
*. EO SD OR .*... 
♦. PC .♦ 



*B2 
LOCATION NMELST IS SET TO 
BLANKS IN THE END CARD 
PROCESSOR. IF NMELST IS 
NOT BLANK, PROCESSING IS 
FOR A SUBMODULAR STATUS. 



Dl *. 

.*ASMBLD ♦. 

.* ORG ON 

. DOUBLEWORD 

♦.BOUNDARY . 

*. .♦ 



***** 
*RD ♦ 
* Bl* 



ESLBCD 

ERR045 

**4i**Q2 *****♦♦*♦♦ 

* * 

NO ♦ INITIALIZE * 
X* ERROR MESSAGE ♦ 

* WITH A5 ♦ 

* * 
4i4i«4i*4i***4'******* 



* MOVE PHASE * 

* NUMBER INTO * 

* VAR FIELD OF * 

* CARD IMAGE * 

* * 



ERROR CR 
*-*-*-*-♦-♦-*-*-* 

SEND 
♦ ERROR MSG » 

21451 



**** 

* * 

* 1 * 

* * 
*«** 



«4>;»*4cB3********** 

♦ SET SWITCH * 

♦ EUPDSW SO * 

* THAT IT FLAGS ♦ 

* THIS ITEM AS » 
♦NOW PROCESS SD * 



♦ MOVE ER CODE ♦ 

♦ INTO TYPE FLD ♦ 

♦ OF THIS SD ♦ 

♦ FORCI^^b IT TO ♦ 

♦ BE AN ER ♦ 



**** 

* * 

* 3 ♦ 

* * 
**** 



RELOCATION FACTOR EQUALS 
NEXT POSSIBLE PHASE ORIGIN 
MINUS ASSEMBLED ORIGIN OF 
THIS SO OR PC. 



**** 

* * 

* 2 ♦ 

* ♦ 
**** 



EISDPC X 

4i*^4i*B<^********^^ 

♦ MOVE LNG FLD ♦ 

♦ FROM VAR FLD * 

♦ OF CARD IMAGE ♦ 

♦ INTO LOC ♦ 
♦CSLNTh *B5* 



Fl ♦. 


X 


LOC ♦. 


ilf*^f*f2********* 


NMELST ♦. YES 


* RDNEXT 


BLANK ...... 


* CHART QP 


♦ B2 .♦ 


* 



4<**4<**4'**4<***** 



* INIT CTR REG * 

* AND POINTER ♦ 

* REG FOR SCAN ♦ 

* OF SUBHOD TBL ♦ 

* * 
***************** 



*G3 
THE VARIABLE FIELD OF THE 
CARD IMAGE IS USED AS A 
BUILLi AREA FOR CONTROL 
DICTIONARY ENTRIES. 



**** 

♦ ♦ 

♦ 2 * 

♦ * 
**** 



*«4>«*J14>********* 

♦ * 

♦ INCREASE ♦ 

♦ POINTER VALME ♦ 

♦ BY 8 ♦ 

♦ * 
***************** 



COUNT 
EQUAL 
ZERO 



*****C4********** 

♦ HOVE ♦ 

♦ ASSEMBLED ♦ 

♦ ADDKESS OF ♦ 

♦ THIS SO OR PC ♦ 

♦ TO WORK AREA ♦ 

4<*4t«4c************ 



* PUT THE ADDR * 

* OF THE NEXT * 
*POSSIBLE PHASE * 

♦ ORIGIN INTO ♦ 

♦ SUB RTN REG ♦ 

«4<:^*#4<*********** 



*****E4*++^****** 

* * 

* PUT PHASE ORG ♦ 

* ON DOUBLEWORD ♦ 

* BOUNDARY ♦ 

* * 
41**4'************* 



4i**4<#P4*4t**4t*4t*4i4i 

* STORE ♦ 
♦ALIGNED ADDRESS^ 

♦ IN LOCATION ♦ 

♦ NXPHRG ♦ 

* * 
4t*4>*4c*****4c****** 



♦ CALCULATE 

♦ RELOCATION 

♦ FACTOR FOR 

♦ THIS CSECT 

♦ ♦EB 

4[4i**4c***4i4i******: 



RESULT 
OF CALC 
. MINUS 



***4i*J/^*********« 

♦ FORCE RESULT ♦ 
♦TO BE POSITIVE ♦ 

♦ BUT SET SIGN ♦ 

♦ BIT IN TYPE ♦ 

♦ FLD TO NEG ♦ 
***************** 



.* 
'♦YES 



*****K4*****^^^^* 

♦ MOVE * 

♦ RELOCATION * 

♦ FACTOR TO * 

♦ VAR FIELD * 

♦ *G3 ♦ 
***#*«*««*******« 



***** 

♦ RD ♦ 

♦ B1+ 

* * 
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Chart RD. ESD Processor, Process ESD Items Against Control 
Dictionary $LNKEDTO; Refer to Linkage Editor, 
Chart 32 



* * 

♦ 2 ♦ 



♦ • 

♦ 1 ♦ 

♦ * 



ESLBCD X 

4i***«Bl ********** 
♦SRCHCD QF* 
*-♦-♦-♦-*-♦-♦-♦-♦ 

* SEARCH FOR ♦ 
♦HATCHING LABEL * 

* IN CTRL OICT ♦ 



*RE ♦ 

* C2* 

♦ ♦♦♦ 



♦SRPCOD OF* 
♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ CONTINUE CTRL ♦ 

♦ OICT SEARCH * 

♦ * 



.* MATCHING *. 
. LABEL IN 
*.CTRL OICT.* 



.* 



.♦. 

B3 ♦. 

VAR ». 

FLO TYPE ♦. 

EQ COMMON .* 



C3 *. 

.♦ CTRL *. 
.♦ OICT TYPE ♦. NO 
♦. EQ PC OR .♦... 
♦. CM .♦ 



♦ CTRL 

DICT ENTRY 
♦. AN ER , 



*RH ♦ 

♦ Bl* 

* * 



.♦. 



01 

.♦ MATCH ♦. 
♦ WAS FOUND *. YES 

ON A PHASE .*.... 
*. NAME .* 
*. .* 

♦ . .♦ X 

*N0 ♦♦ 



ELBPC .♦. 

El ♦. 

.* VAR ♦. 
.♦ FLO TYPE ♦. NO 
*. EQ PC OR .♦... 

♦. CM .♦ 



♦02 
THE CONTROL 
DICTIONARY 
ENTRY MUST 
BE A COMMON. 



♦ E2 
GET THE LONGEST 
LENGTH IN 
THE CONTROL 
DICTIONARY. 



VAR FLO ♦. 

TYPE EQ 
COMMON .♦ 



.♦ NAME ♦. NO ♦ INITIALIZE ♦ 

♦ . FIELD OF PC .♦ X^ ERROR MESSAGE ♦ 

♦. BLANK .♦ ♦ TO 40 * 

♦. .♦ * ♦ 



•*♦** . 

♦RH ♦ 

« Bl* X 

* * 4i4.«*«*H2*^***^^^^** 

♦ ERROR QR 

ELBNCD »-»_♦,♦_♦-♦-♦-♦-♦ 

SEND 
♦ERROR MESSAGE^ 
2I40I 



D3 ♦. 
.♦ CTRL ♦. 
.♦ DICT TYPE 
♦. EQ PC 



♦ CMP LNG OF ♦ 

♦ CTRL SECT ♦ 

♦ CARD IMAGE ♦ 

♦ VS CTRL DICT ♦ 

♦ ENTRY ♦ 



♦ CTRL. DICT ' 

ENTRY LNG 
♦.FLO HIGH . 



**4i«*G3 ♦♦♦♦♦♦♦♦♦* 

♦ MOVE LENGTH ♦ 

♦ FROM CARD ♦ 

♦ IMAGE TO ♦ 

♦ CTRL DICT ♦ 

♦ ♦E2 ♦ 



♦ ♦♦* 

♦ ♦ , 
♦RF ♦... 

♦ Bl^ 

♦♦♦♦ . I 

ERR046 X 

♦ ♦ 

♦ INITIALIZE ♦ 

♦ ERROR MESSAGE ♦ 

♦ WITH 46 * 

♦ ♦ 



ERROR CR 

♦-♦-♦-♦-♦-♦-♦-»-♦ 

SEND ERROR 

♦ MESSAGE * 

21461 



V RDNEXT ♦ 
* CHART QP ♦ 

\ * 



♦ ♦♦»* 

♦ RH ♦ 

♦ El^ 



***** 
♦RH ♦ 
♦ Fl^ 



♦♦♦♦J2^*^***«*^ 

* RDNEXT ♦ 

* CHART QP ♦ 

* * 
*************** 
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Chart RE. ESD Processor, Process ER $LNKEDTO; Refer to 
Linkage Editor,^ Chart 32 



***** 

♦RD ♦ 
♦ B3* 



**** 

* * 

* I ♦ 

* * 
**** 



VAR ♦, 


NO 






.♦ CTRL ♦. YES 


FLD TYPE 


♦ • •• • 






♦. DICT TYPE ...... 


. EQ ER .♦ 








♦. EQ SO .♦ 


♦. .♦ 








♦ • .♦ . 


♦. .* 


X 






♦ . .♦ 


♦YES 


***** 






♦NO 




♦RF ♦ 










♦ Bl^ 










♦ ♦ 










* 








X 


ELBSD 








.♦. 








X '. 


CI *. 




**4<4<*C2 ♦♦♦*♦♦♦♦♦♦ 




.♦ ENTRY ♦. 




♦SRPCOD 


QF* 


* FORCE CTRL ♦ I 


IN CTRL ♦. 


YES 


♦-*-*-♦-♦- 


♦-«_*_♦ 


♦ DICT TYPE FLD ♦ 


DICT UN- . 


♦«..•••• 


.X^ CONTINUE 


CTRL ♦ 


♦ TO EQ LR ♦ 


.ASSIGNED .* 




♦ • DICTIONARY ♦ 


♦ ♦ • 


*. .* 




l^ll^S*"********^* 


♦ F3 + 


♦ ♦ 


*. .♦ 








♦ NO 




. 




. 


I 




• 




Ix ! 



♦ ♦♦♦♦ 

♦RD ♦ 

♦ Cl^ 



♦ RH ♦ 

♦ Fl^ 



CTRL 
DICT TYPE 
. EQ ER . 



CTRL 
DICT TYPE 
.EQ COMMON. 



***** 
♦RH ♦ 
♦ Fl^ 



.♦ VAR ♦. 

FLD NAME ♦. NO 
FLD HAS IJ .♦... 
. PREFIX .♦ 



Gl ♦. 

.♦ DOES ♦. 
.♦ VAR FLD ♦ 

.IND AUTOLINK 
♦. REQ .♦ 



**«*4>H1 ♦♦♦♦♦♦♦♦♦♦ 
♦XTPHNO QL^ 
♦-*-♦-♦-♦-♦-♦-♦-♦ 

♦ GET PHASE ♦ 

♦ NUMBER FROM ♦ 

♦ CTRL DICT ♦ 

nfiHf*m*:f ********** 



♦ F3 
KEEP SEARCHING 
FOrt A MATCHING 
CTRL DICTIONARY 
ENTRY UNTIL ALL 
ENTRIES HAVE 
BEEN INSPECTED 



.♦ CTRL ♦. 
.♦DICT PHASE 
. NUMBER EQ 
♦.LOC PHSNO. 



.♦ PHASE ♦. 
.♦NUMBER FROM^. YESX 
.CTRL DICT IND.^, 
♦. ROOT .♦ 



♦ RH ♦ 

♦ Bl^ 
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Chart RF. ESD Processor, Process SD $LNKEDTO; Refer to 
Linkage Editor, Chairt 32 



♦RE ♦ 
♦ Bl* 



*.EQ COHHON.» 



* INITIALIZE • 
<:> ERROR MESSAGE * 
*> HITH 43 ♦ 



♦RD » 



.* VAR 
♦. FLO TYPE 
*. EQ SO . 
♦ . .♦ 



CTRL 
ICT TYPE 
EQ ER . 



♦RG « 
* Bl* 



ERROR OR 

SEND HSG 
« 21431 ♦ 



««««02«<'******* 

* RONEXT ♦ 

* CHART QP ♦ 

«: * 



.♦ CTRL ♦. YES 
♦. DICT TYPE .*,... 
*. EQ SO .* 



ELBDSO 

♦XTPHNO QL* 

•..X* GET PHASE ♦ 

* NUMBER * 



«4<4i4i4>**4(*4i4t*4i**** 



Fl ♦. 
.* LD OR ♦. 
.*LR IN CTRL ♦. YES 
♦. OICT UN- .♦... 
*.ASSIGNEO .* 
*. .♦ 
♦ . .♦ 
^NO 



.* ESID *. N 
*. NUMBERS .«. 
♦. MATCH .♦ 



ASMBLO 

ORIGINS 

MATCH 



*RH ♦ 
♦ El* 



G3 *. 
.♦ IS ♦. 

* THE SO ♦ 
IN THE ROOT 



***** 
*RH * 
* Bl* 

* * 



O 1 o 



ELBNCO 
ELBGSO X *H4 
«****H3********** 

* MAKE REG 8 * . _ 

* EQ TO A ♦ CONTROL DICTIONARY 

* NEGATIVE CTRL ♦ NUMBER AFTER 

* OICT NUMBER * EXECUTION OF 

* *H4 * THE SUBROUTINE 
——— STARTING AT LOCATION 

LTESIOf CHART QE. 



***4i***«*4i4i«***4i* 



***** 
*RH • 
* Fl* 

* * 
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Chart RG. ESD Processor, Process LD/LR $LNKEDTO; Refer to 
Linkage Editor, Chart 32 



♦♦♦♦♦ 

»RF ♦ 
* CI* 

* * 



♦ FORCE LD ♦ 

♦ IN VARIABLE ♦ 

♦ FIELD TO BE ♦ 

♦ AN LR ♦ 





♦ **♦ 

* * 

♦ 2 * 
» ♦ 

**** 




ELBLDR X 

*****B3********** 

♦ GET EblD • 

♦ NUMBER OF ♦ 

♦ THE SD THE • 

♦ CTRL DICT LO ♦ 

♦ BELONbS TO * 



♦ AA 
THE LAST 2 BYTES OF THE LD ENTRY 
IN THE CONTROL DICTIONARY HAVE 
THE ESID NUMBER OF THE SO. 
THE EXIT TO THE SUBROUTINE 
ALLOWS THE CONTROL DICTIONARY 
ADDRESS OF THE SD TO BE EXTRACTED 
USING THE ESID NUMBER AS A KEY. 



CTRL 
DICT TYPE 
. EQ ER . 



Dl ♦. 

.* CTRL ♦. 

.» DICT AS- * 

.SIGNED AS SD, 

♦.LD, OR LR.* 

*. .* 

*. .* 



*****£ I********** 

* TURN ON * 

* POSSIBLE * 

* DUPLICATE * 

* ENTRY SWITCH ♦ 

* * 
********* **4i*4<*4i* 



*****F1 ********** 

* * 

* MAKE VAR TYPE * 

* FLD EQUAL TO * 
*LR IF NECESSARY* 

* » 
***************** 



***** 
*RH * 
* El* 



ELBNLR 

*****D2 ********** 
*RESET VARIABLE * 

* FIELD TYPE * 
...X* FROM LR TO * 

* LD ♦ 

* * 
***************** 



ASMBLD 

ORIGINS 

EQUAL 



F2 *. 
.* CARD *. 

.* IMAGE LD * 
.NOT ASSIGNED 



CTRL 
DICT TYPE 

. EQ SD . 



H2 *. 
.* CTRL ♦. 

.*D1CT NUMBER*. 
. IN LD EQ SD . 
*. NUMBER .* 



* INITIALIZE * 

* ERROR MESSAGE * 

* WITH 43 * 

* * 
***************** 



.*. 

C3 *. 

.» ESID *. 

.♦ OF CTRL * 

.DICT MATCHES 

*ESID GF CD.* 

*. IMAGE.* 

*. .* 

♦ NO 



*****03********** 

* SET UP LNK * 

* REG WITH » 
» SUBROUTINE * 
» RET ADDRESS » 

* * 
***************** 



* GET CTRL DICT * 

* ADDR OF SD * 

* POINTED TO *^'t* 
***************** 



*****P3********** 

* PUT CTRL ♦ 

* DICT ADDR OF * 

* SD ITEM IN * 
*A WORK REGISTER* 

* * 
***************** 



*****G3********** 
*PUT THE ESID OF* 

* THE SD THE * 

* CARD IMAGE LD * 

♦ BELONGS TO IN ♦ 

♦ REG FOR S/RTN ♦ 
***************** 



*****H3*** ******* 

♦ SET UP REG ♦ 

♦ INPUT AND LNK * 

♦ REG RET FOR * 

♦ SUBROUTINE * 

♦ * 
***************** 



*****J3********** 
*LTCDAD QE* 
*-*-»-*-*-*-*-*-* 

♦ GET CTRL DICT * 

* ADDRESS OF SD * 
*POINTED TO *C4* 
***************** 



*C4 
THIS EXIT TO THE SUBROUTINE 
PROVIDES THE CONTROL DICTIONARY 
ADDRESS OF THE SD POINTED TO 
BY THE ESID NUMBER IN THE 
CARD IMAGE LD ITEM. SEE ♦A4. 



**** 

* 

* 5 
♦ 
**«* 



*****EV********** 

* PUT ADDR OF * 

* ORIGINAL CTRL * 
*D1CT ENTRY. LD * 

* - INTO REG 9 ♦ 

* * 
***************** 



ELBNAS X 

*****P4********** 
♦XTPHNO QL^ 
*-*-*-*-*-»-*-*-* 

♦ GET PHASE ♦ 
♦NUMBER OF CTRL ♦ 

* DICT EMTRY * 
***************** 



.* CTRL DICT ♦. 

♦ENTRY IN CURR.. 

♦. PHASE .♦ 



*****H4*^^^^^^^^* 

* TURN ON * 

♦ POSSIBLE * 

* DUPLICATE * 

♦ ENTRY SWITCH, * 

• DPNFSW * 
***************** 



***** 
*RB » 
* Bl* 



****K1********* 

* RDNEXT * 

* CHART QP * 

* * 
*************** 



******)(2 *********** 

ERROR QR 

♦-*_*-*_*-*_*-*_* 

SEND 

* ERROR MSG * 

21431 

************* 



**** 

* * 

* I * 

* * 
**** 



* 


. SD 
LABELS 


*. 


.:^!. 




* 


*. .* 
*N0 


.* 


X 

**** 

* 
* 4 


* 
* 




X 




* 


♦ 




**** 




***> 






* * 










* 3 * 










* * 










♦ **♦ 
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Chart RH. ESD Processor, Update Linkage Table and Control 
Dictionary (Part 1 of 2) $LNKEDTO; Refer to 
Linkage Editor, Chart 32 



RE-Ki' 
RF-G3 
RG-G4 



* * 

* 1 ♦ 

* * 
♦ ♦♦♦ 



• 4i4i4i*Bl **<■***••** 



4>*«******4>4i**4<*** 



.♦. 

B3 *. 
.♦ ESID ♦. 

.* NUMBER 
*. PROCESSED 



* INITIALIZE * 
.X* ERROR MESSAGE ♦ 

* WITH 41 * 

* * 



♦C2 
A NON-PROCESS SD IS AN 
ESO-SO ITEM WITH NO 



X 


matching' 


LABEL 


IN 


THE 


EUPDOK X 


X 


**«*«Cl*4i«*4i**««4i 


LABEL LIST. THIS 


IS 


*«4>4>4>C3^^^^^^*^^^ 


******C4^^^^^^^^^^* 


* ADO 16 TO THE * 
4<LAST CTRL DICT * 


NOW 


AN EXTERNAL REFERENCE. 


♦MOVE TYPE FROM ♦ 


ERROR OR 












♦ VAR FLO OF » 


♦-♦-♦-♦-♦-*-♦-*-* 


* AODR IN LOC * 












♦ CARD IMAGE ♦ 


SEND ERROR 


♦ CTLDAD ♦ 












♦ TO LINK TABLE ♦ 


♦ MESSAGE ♦ 


* * 












* ♦ 


21411 


, 












, 




] 


♦02 










\ 


\ 




{^E 


OVERLAP HAS 


OCCURREDf 








SUBROUTINE 


DOES NOT 


X 




ELBNCD X 


RETURN CONTROL 


TO 


THIS 


EUPDSW .♦. 




«*«*«[)14'**<>****** 
♦CDSIZE QN* 


ROUTINE. 








03 ♦. 


X 












.♦ IS ♦. 


****[)'********** 


♦_»_»_»_♦_♦-♦_»-♦ 












NO .♦ THIS A ♦. 


♦ RDNEXT ♦ 


♦CHECK FOR CTRL * 












...♦. NON-PROCESS .♦ 


♦ CHART QP ♦ 


♦OICT - LNK TBL » 












♦. SO .♦ 


♦ ♦ 


♦OVERLAP *DZ* 












♦. ♦CZ .♦ 




*«*****«**4>*«*4>** 












♦ . .♦ 

♦YES 




**•* I 
















♦ ♦ . 


♦E2 














♦♦ ♦... 


MULTIPLE 


ENTRIES 








♦ E2^ 


RO- 


C4 


RF- 


HI 








**♦* 


RE- 


01 


RG- 


Fl 








ELBINT X 












X 




*****E !♦*♦♦♦♦♦♦♦♦ 












**4>*4iE3^^^^^^^^^^ 




♦ MOVE THE ♦ 












♦ MAKE THE TYPE ♦ 




♦ VARIABLE FLO ♦ 












♦ FIELD OF LNK ♦ 




: ^KigTisSA^*^^ : 












♦TABLE EQUAL TO ♦ 














♦ SO ♦ 




4> * 












♦ ♦ 




















***♦ I 












• 




♦ ♦ . 


♦F2 














♦♦ ♦... 


MULTIPLE 


ENTRJ 


ES 








♦ f2* 




G3 


-H3 








♦♦♦♦ X 


RE- 


EltCB 












EUPDLT .♦. 












X 




Fl ♦. 












**«*«F3****4i*4.4i4<« 




.♦ CARD ♦. 












♦ MAKE CTRL ♦ 




NO .♦IMAGE EQ TO^. 












♦ DICT NUMBER ♦ 




...... LD OR CM .♦ 












♦ NEGATIVE AND ♦ 




. ♦. .♦ 












♦ RESET SWITCH ♦ 




♦ . .♦ 












♦ EUPDSW ♦ 




♦. .♦ 
















♦YES 












i '" 
















', x! 




X 
















.♦• 












EUPDCN X 




Gl ♦. 












**4<**G3^^^^^^^^^^ 




.♦ ♦. 












♦ STORE CTRL ♦ 




.♦ CARD ♦. NO 












♦ DICT NUMBER ♦ 




♦. IMAGE EQ TO ...... 










♦ IN LINK TABLE ♦ 




♦. CM .♦ 












♦ AND ADO 1 TO ♦ 




♦ . .♦ 












♦ ESID NUMBER ♦ 




♦ . .♦ 
















♦YES 












• 




I I 








' 




..xl 














X 




I..........xl 












***** 
♦RJ ♦ 








EUPTRY X 












♦ Bl^ 




**«**H1^^^^^^^*^^ 












* * 




♦ SAVE CTRL ♦ 

♦ OICT NUMBER ♦ 

♦ REG WITH ESID ♦ 












EUPOXT 


















♦ NUMBER ♦ 

































*«***J1*******4>** 

♦LTESID QE^ 
*-*-*-•-*<•♦-*-*>• 

♦ GET CTRL DICT ♦ 

♦ INFO ♦ 

♦ ♦ 
*****n,*********** 



***♦ 

• ♦ 

• 1 ♦ 

• ♦ 
♦♦♦♦ 
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Chart RJ. ESD Processor, Update Linkage Table and Control 
Dictionary (Part 2 of 2) $LNKEDTO; Refer to 
Linkage Editor, Chart 32 



***** 




*RH * 




* G3* 




* * 
* 






♦82 




IF OVERLAP 




HAS OCCURRED. 


EUPDXT X 


THE SUBROUTINE 


*****Bl********** 


DOES NOT RETURN 


*COSIZE QN* 


CONTROL TO THIS 


*-*-•*-*-*-*-*-*-* 


ROUTINE. 


* CHECK FOR LNK * 




* TABLE - CTRL * 




♦DICT 0VERLAP*B2* 









.* *. 




*C2 


.* A ♦, 


YES 


THIS BLOCK IS A TEST 


•.?i8-gS°f!^S- 


♦ .... 


OF PROGRAM SWITCH 




DEROSW FOUND IN THE 


*. .* 




SUBROUTINE THAT SETS 


*. .* 


X 


UP THE CORE IMAGE 


*N0 


**** 


BLOCK IN MAIN 




* * 


STORAGE. CHART QT. 
IF THE SWITCH IS 




* I * 




* * 


SET TO BRANCH HIGH, 




**** 


NO LENGTH 


X 




INFORMATION HAS 


.». 




BEEN RECEIVED ON 


DL *. 




THE ITEM. 


.* *. 






.* A *. 


NO 




.PROCESS TYPE . 


*.... 




*.SD OR PC .* 






*. .♦ 






*. .♦ 


X 




♦YES 


***** 

*RB ♦ 

* Bl* 

* * 






* 




X 
El**'*. 


ESDRET 








.* ANY *. 






.* LNG RCVO ♦. 






.FROM SD ITEM . 


* 




♦. ♦ca .♦ 






♦. .♦ 






♦. .♦ 






♦NO 







**** 

* * 

* 1 * 

* * 
**** 



ESCNCD X 

*«*^*B4*****^ 

♦ GET CTRL ♦ 

♦ DICT NUMBER ♦ 

♦ AND ADDR IN ♦ 

♦ A PAIR OF ♦ 

♦ REGISTERS ♦ 



c* *. 
.♦ IS ♦. 

♦ CTRL DICT *. 

ENTRY UNAS- . 

♦.SIGNED lD.^ 

♦.OR LR.^ 



♦♦♦♦♦F I ♦♦♦♦*♦♦*** 

* SET PROGRAM * 

* SW DPNTSW ♦ 

* TO IND ZERO ♦ 

* LNG CTRL SECT * 

* PROCESSED ♦ 

4i«*4>*^^****^***** 



*N0 



EPHSCN 

♦ POINT AT NEXT ♦ 
♦CTKL DICT ENTRY^ 

♦ AND DECREASE ♦ 

♦ CTRL DICT ♦ 

♦ NUMBER BY ONE ♦ 



E4 ♦. 

♦ CTRL ♦ 

OICT 

NUMBER 

GT ROOT 

♦. NO. .♦ 



*♦♦♦* 
♦RB ♦ 
♦ Bl* 



4i«**«Gl ♦♦♦♦♦♦♦*** 

♦ SET SWITCH * 

♦ OERDSW TO * 

♦ SHOW ZERO LNG * 

♦ CTRL SECT ♦ 

♦ ASSUMED - NOP ♦ 



CTRL SECT 
LNG EQ 
. ZERO 



****4[Jl*:»:ti*««**4i* 



***************** 



««**:»KL**^^^^**** 

» CALCULATE NEW * 

* AVAILABLE * 

* LOAD ADDRESS ♦ 

* *J2 * 

* * 
***************** 



.X.. 

X 

**** 

* * 

* 1 * 

* * 
**** 



NEW LOAD ADDRESS 
EQUALS LOAD 
ADDRESS PLUS 
LENGTH. 



EPHULO 

***4i*C5********** 

* GET ESID * 

* NUMBER OF ♦ 
...X* CTRL DICT ♦ 

* ENTRY IN REG * 
♦USED IH SUBM»< » 



ESID 
NUMBER 
A MIi^US 



♦LTESID QE* 
♦-♦-♦-♦-♦-♦-♦-•-» 

♦ DETERMINE » 

♦ STATUS OF * 

♦ ESID NUMBER » 
♦*♦♦*♦*♦♦*♦♦*♦•** 



.♦ ESID" 
TO BE 
♦.BYPASSED 



♦ FLAG CTRL ♦ 

♦ OICT ENTRY - ♦ 

♦ LO UR LR AS * 

♦ ASSIGNED ♦ 

♦ * 



VALUE IN ♦ 

CTRL DICT ♦ 

ENTRY * 

**************** 
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Chart RK. Initialize for $LNKEDT2; Refer to Linkage Editor, 
Chart 33 



♦«*»A4*»»«» 
« IJBOTH 



IS 

IT AN 
.END CARD 



RESET FIRST 
NON-CONTROL 
CARD SWITCH 



X 

»«»B4*»»«»*«» 

SET UP 

REGISTERS 

FOR CONTROL 

CARD SCAN 



OTHTYP X 

»»»»#C1*«*»»«*»»* 
» MODIFY BRANCH * 
♦INSTRUCTION AT * 
•LOCATION OTHTFR* 
•WITH THE BRANCH* 
♦ ADDRESS ♦ 



.» CARD ». 
•TYPE MATCH 

TABLE 
♦. ENTRY . 



POINT TO THE 

NEXT TABLE 

ENTRY 



»«C2#««**» 

RDNEXT 

CHART QP 



. • HAS ♦. 

A PHASE 

CARD BEEN 

.PROCESSED. 



OBJECT 

MODULE IN 

. PROCESS . 



COUNT 
EQUAL 
ZERO 



INITIALIZE 
ERROR MESSAGE 

FOR 

INVALID CARD 

TYPEt 00 



• PUT THE ADDR • 
» OF THE ESD • 
•TYPE TABLE INTO* 

• A REGISTER • 



**E3*»*«^^ 

EXLOAD 

CHART QP 



»»»»»E 4* »»*♦*»♦» 
♦SAVE THE START- 
» ING DISK ADDR 

• OF THE MODULE 

• IN LOCATION 

• ESDNOO 



• B2» 
REPROC 



X 

• RN * 
» Al^ 

RLDPRC 



F4 ». 

ON 
SYSLNK 



«*«**G 4 *•**•••** 
•SAVE THE START- 

• ING DISK ADDR 

• OF MODULE 

• IN LOCATION 

• ESDOOO 



* 1 



SEND ERROR 

MESSAGE 

21001 



•♦Jl***»»* 

RDNEXT 

CHART QP 



ENDPRC 

THE EXIT FROM BLOCK D2, 
ON THE YES LEG, DEPENDS 
ON THE CARD TYPE FOUND. 
THE BRANCH ADDRESS EXIT 
IS ESTABLISHED AT 
LOCATION OTHTYP. 
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Chart RL. TXT Processor $LNKEDT2 ; Refer to LinKage Editor, 
Chart 33 



•MULTIPLE ENTRIES 
RK-E2 
RM-H4 



MULTIPLE EXITS FROM SUB 
ROUTINE DEPENDING ON 
CONDITIONS FOUND THERE. 



* PUT ESID NUM- « 
«BER IN REGISTER* 

* FOR SUBROUTINE* 

* USE » 



TXTGET 

•DERDAD 



» SET UP CORE • 
•IMAGE BLOCK IN » 
•WKAREA *B4* 



• B4 
THIS SUBROUTINE LOCATES THE 
CORE IMAGE BLOCK THAT THIS 
TEXT BELONGS TO, IF NECESSARY. 
IT READS THE CORRECT BLOCK 
INTO LOCATION WKAREA. 



GET CTRL DICT 

INFO AND 
RELOC FACTOR 



DI *. 




»»«»** 02 •*»*»• 


.» ESID •. 




ERROR 


NUMBER NOT 


». YES 




PROCESSED 




..X SEND ERROR 






• MESSAGE 


». .• 




21701 



««'»*«C3«^«***»»* 
» CALC MAX 

• BYTES OF TXT- 
•LGAD ADDR PLUS 

• NUMBER OF 

• BYTES ON CD - 



CALCULATE 
LOAD ADDRESS 
IN LOC WKAREA 



• C4 
THE LOAD ADDRESS IN LOCATION 
WKAREA IS EQUAL TO THE 
STARTING ADDRESS OF WKAREA 
PLUS THE LOAD ADDRESS OF 
THIS TEXT MINUS THE LOAD 
ADDRESS OF THIS CORE IMAGE 
BLOCK. THIS EFFECTIVELY 
COMPUTES A DISPLACEMENT FROM 
THE STARTING ADDRESS OF 
WKAREA. LOAD ADDRESS OF 
THIS CORE IMAGE BLOCK 
IS EQUAL TO PHASE ORIGIN 
LOAD ADDRESS PLUS 
SOME MULTIPLE OF 1728. 
THERE ARE 1728 BYTES PER 
CORE IMAGE BLOCK. 



El ». 

.« ESID *. 

• NUMBER TO * 

BE BYPASSED 



*»»«*F1»»**»»»»* 
•CALC LOAD ADDR 
• - ASSEMBLED 
» ORIGIN PLUS 
•RELOC FACTOR - 



*»»G1»^**»»*» 

GET NUMBER 

OF BYTES OF 

TXT ON THIS 

CARD IN A 

REGISTER 



.•NUMBER •. 

OF BYTES 

OF TXT EQ 





LOAD THE ADDR 
OF THE FIRST 
BYTE OF TEXT 
IN A REGISTER 



•««»*E3^»^^*«» 

• CALCULATE 

• NUMBER 
» OF BYTES 

• MINUS 1 - 
•LENGTH MINUS 



• SUBTRACT ♦ 

• LOAD ADDR OF * 

• NEXT C.I. ♦ 

• BLK FROM MAX ♦ 
•LOAD ADDR *F4* 



• ALL TXT 

FIT IN THE 
*- BLK 



«»««H3*««^*»»* 

CALCULATE 

NUMBER OF 

BYTES THAT 

CAN BE MOVED 



LOAD ADDRESS OF NEXT CORE IMAGE BLOCK IS HICORE. 
MAXIMUM LOAD ADDRESS IS THE LOAD ADDRESS OF THt 
LAST BYTE IN THIS TEXT RECORD. 



»»J2»«»»»» 
RDNEXT 
CHART QP 



»»«««j 3*«»» 



»«»»K3»*»*»»** 

UPDATE TXT 

POINTER, TXT 

LOAD ADDRESS, 

AND BYTE 

COUNT 
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Chart RM. REP Processor $LNKEDT2; Refer to Linkage Editor, 
Chart 33 



***** 

*RK * 
* F2* 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 ♦ 

* * 
**** 



REPROC X 

«**««B2********** 
♦PRTLST QJ* 
*-*-»-*-*-*-*-♦-* 

* PRINT REP * 

* CARD IMAGE * 

* * 



♦ SET UP CNT * 

♦ AND AODR INFO * 

♦ FOR CONVERT * 

♦ SUBROUTINE * 

♦ * 
«*4<************** 



*4i4i4i«D2********** 
♦CNVHEX QH* 
♦-♦-♦-*-*-»-♦-♦-* 

♦ CONVERT NON- ♦ 
» TEXT INFO TO * 

* BINARY * 



****«E2 ********** 
*STORE CONVERTED* 

* INFO IN TEXT * 

* CARD FORMAT * 

* IN CARD IMAGE * 

* * 



*****F2********** 
*GET ADDRESS OF * 

* TEXT MINUS I * 

* FROM REP ♦ 

* CARD IMAGE * 

* * 



4i**«4iG2********** 

* INITIALIZE * 

* NUMBER OF * 
♦BYTES CONVERTED* 

* CTR TO ZERO * 

* * 
***************** 



«**»*H2********** 

* INITIALIZE ♦ 

* CNT INFO * 

* FOR CONVERT ♦ 

* SUBROUTINE * 

* * 
***************** 



4i***B4********** 
KEEP A » 
RUNNING * 
COUNT OF * 
CONVERTED * 
BYTES * 



* CHAR • 

IN CD IMAGE 
*.EQ COMMA .* 



*♦♦* 

* * 

* 2 ♦ 

* * 
**»* 



4i4i*4i*OA********** 

♦ TEST FOR * 

♦ END OF TXT ♦ 

• ON REP CARD * 

* IMAGE * 

* * 



* INITIALIZE ♦ 

* MESSAGE * 

* WITH 51 ♦ 

* ♦ 



♦ CHAR ♦. 

IN CO IMAGE . 

*.EQ BLANK .* 



* STORE * 

* NUMBER OF * 
*COMVERTED BYTES* 

* IN CARD IMAGE * 

* * 



.*CORRECT*. 
* NUMBER OF *. NO 

BYTES ON .*... 
♦. REP CD .* 



REPTXT X 

•**«*J2********** 
♦CNVHEX QH* 
«-*-*-*-*-*>*-*-* 
» CONVERT TXT * 

♦ TO BINARY * 

* * 
***************** 



•****K2*********> 

* STORE CQN> 

♦ VERtIo TXT 



*******•********! 



***** 

*RL * 
* Bl* 



ERROR QR 

*-*-♦-*-♦-*-*-»-» 

SEMD ERROR 

♦ MESSAGE * 

215LI 

♦»*»♦♦*♦ 



****G5********* 

* RDNEXT * 

* CHART QP * 

* » 
4t**»4i4[4t******** 



* INITIALIZE * 
.X* ERROR MESSAGE * 

* WITH 113 * 

* * 



****** J5*4[:^**4i4i**4c«, 

ERROR QR 

*-*-*-*-*-*-*-♦-♦ 

SEND ERROR 

* MESSAGE * 

21131 

************* 



****K5********* 

* RDNEXT * 

* CHART QP * 

* * 
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Chart RN. RLD Pass 1 Processing (Part 1 of 2) $LNKEDT2; 
Refer to Linkage Editor, Chart 33 



ZERO BYTE- 
PROCESSED CTR 
AND NOP RLSkil 



TURN ON 

RLD ON SYSOOl 

SWITCH 



.» END «. 

• OF RLD 

VAR FLD ON 
».CD IMAGE . 



»»»*«D1*«»»*«»«»» 
» UPDATE ADDR • 
•POINTER »D2» 
• ADD 4 TO » 
•BYTE PROCESSED • 
» COUNTER » 



• B2 
WHEN SWITCH RLSWl IS NOP, 
R AND P POINTER PROCESSING 
IS FORCED. WHEN THE SWITCH 
IS BRANCH, THE REMAINING 
RLD INFORMATION IS 
PROCESSED. 



• TEST CTRL • 

• DICT ENTRY TO » 

• DETERMINE IF • 
» P POINTER • 
•POINTS TO SD/PC* 



INITIALIZE 

ERROR MESSAGE 

WITH 55 



»B4 
FLAG BYTE WAS A BI T 
SWITCH THAT SIGNALS 
THIS CONDITION. 



B5 ». 

.• NEXT •. 
RLD ITEM 
HAVE SAME 

.POINTERS . 
•. ♦B4 .» 



»»*C5«»»«»*» 
SET SWITCH » 

RLSWl TO 
NOP. FORCE 

R AND P 
PROCESSING • 



♦ D2 
THE ADDRESS POINTER IS A 
REGISTER THAT CONTAINS THE 
CARD IMAGE ADDRESS OF THE 
BYTE OF THE RLD ITEM TO 
BE PROCESSED NEXT. 



POINTER •. NO 
POINTS TO .*.., 
. SD/PC .• 



SEND ERROR 

MESSAGE 

21551 



RLSWl .*. 

El ». 

.* NEED ♦. 

.*T0 PROCESS 
*. POINTERS 
». »B2 



•STORE CTRL DICT* 
• NUMBER OF P » 
» POINTER IN P » 
•POINTER FLD OF • 
•RLD CARD IMAGE • 



»»E4«»»*»^ 

RDNEXT 

CHART QP 



»F2 
SKIP THE ADCON IF A M 
CONTROL DICTIONARY 
NUMBER WAS DETECTED. 



GET CTRL DICT 

NUMBER OF R 

POINTER 



GET CTRL DICT 

NUMBER OF P 

POINTER 



POINTER 
TO BE BY- 
. PASSED 
«. «F2 .» 



SEND 

ERROR MSG 

21701 



SET SWITCH » 


••♦•K2*»^«»«^»» 


RLWRIT TO NOP* 


♦ RDNEXT 


GETTING OUTPUT * 


• CHART QP 


FOR PASS 2 ♦ 





♦^•»«H3»»**«»*»^ 

• SAVE CTRL DICT 

• NUMBER OF R 

• POINTER IN R 
•POINTER FLD OF 
•RLD CARD IMAGE 



THIS FLAGS THE R POINTER 
AS AN ER. WHEN LOAD 
ADDRESSES ARE COMPUTED, 
AN ASSEMBLED ORIGIN WILL 
BE SUPPLIED FOR THE ER. 



•••••K3»*^*^*»^* 
» MOVE HEX 80 
•INTO R POINTER 
* FLD OF CARD 
» IMAGE AS FLAG 
•FOR PASS 2 •si^ 
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Chart RP- RLD Pass 1 Processing (Part 2 of 2) $LNKEDT2; 
Refer to Linkage Editor, Chart 33 



♦RN * 
♦ CI* 

* * 



A2 



ALL ♦. 

.♦ AOCONS ♦. YES 
. BYPASSED IN .*.... 
*.THIS CARD.* 
♦. ♦C3 .* 
♦ . .* 
♦NO 



* RESET ♦ 

* SWITCH 

* RLWRIT TO 

* BKANCH 

* * 



«4i*«4i:»Cl**4>*4<*****4< 

ERROR QR 

♦-♦-*-♦-♦-♦-♦-♦-♦ 

SEND ERROR X. 

♦ MESSAGE ♦ 

21561 



* RDNEXT ♦ 

* CHART QP ♦ 

* ♦ 



, 


♦C3 




IF THE ENTIRE 


X , 


VAR ABLE FIELD 


.*. 


OF THE CARD 


C2 *. 


IMAGE IS TO BE 


.♦ *. 


BYPASSED, THERE 
IS NO NEED TO 


.* INVALID *. 


♦. RLD CARD .* 


WRITE THESE 


♦. FORMAT .» 


ADCONS ON 


♦ . .♦ 


SYSOOl FOR 


♦ . .* 


USE IN PASS 2 RLD 


♦NO 


PROCESSING. IF 




ANY ADCON OF A 




SINGLE CARD IMAGE 




IS TO BE 




iTiUnw' 


X 


.*. 


IMAGE IS 


D2 ♦. 


WRITTEN OUT ON 


.♦ DOES *. 


SYSCO , BUT THE 


.♦ VAR FLO ». 


ADCONS TO BE 


♦. OF CD IMAGE ,* 


SKIPP D ARE 


♦FIT IN I/O.* 


FLA6G D WITH A 


♦.AREA .* 


MINUS CONTROL 


♦ . .♦ 


DICTIONARY 


♦NO 


NUMBER. PASS 2 




RLD PROCESSING 




CAN TEST FOR 




THESE ADCONS 




AND SKIP THEM. 


]ti***^£2********** 




♦WRSOOl RS^ 




*-♦-♦-*-*-♦-♦-♦-♦ 




♦ WRITE OUTPUT ♦ 




♦AREA ON SYSOOl ♦ 





*♦*♦ 

♦ * 

♦ I ♦ 

♦ * 



♦ MOVE CHARS ♦ 

♦ FROM THE RLD ♦ 

♦ CARD IMAGE ♦ 

♦ TO 1/0 AREA ♦ 

♦ RDLOPT ♦ 



♦♦♦♦C4^^^^^^^^^ 

♦ RDNEXT ♦ 

♦ CHART QP ♦ 

♦ ♦ 



*****^t^,t******** 



^i**^iiif2********* 

♦ RESET BYTES 

♦ IN I/O AREA 

♦ COUNTER TO 

♦ ZERO 
* 



RLBYWR X 

*Jt:***Q2********** 

♦ CALCULATE ♦ 
♦ADDRESS WITHIN ♦ 

♦ I/O AREA FOR ♦ 

♦ RLD ITEM ♦ 

♦ ♦ 



4i***4>«4<*4i*4i4.«4t4<4i4i 



♦ STORE BYTE ♦ 

♦ COUNT JUST ♦ 

♦ CALCULATED ♦ 

♦ IN I/O AREA ♦ 

♦ BYTE CNT FLD ♦ 
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Chart RQ, END Processor (Part 1 of 2) $LNKEDT2; Refer to 
Linkage Editor, Chart 33 



ENDPRC X 

* RESET MODULE* 

• STATUS SWITCH* 

♦ MODSTS TO 

* SHOW MODULE ♦ 

♦ ENDED • 



» SET SWITCH « 

• ATRLSW TO » 
•INDICATE BRANCH* 

• TO LOC RDNEXT* 



INPUT 
FROM 
SYSLNK 



TURN OFF 
SWITCH 
SBMDST 



INPUT 
NOW ON 
SYSLNK 



* SET SWITCH » 

» RELBSW IN • 
»THE READ INPUT 

* RTN TO NOP » 



LOCATION 

NDSOOu EQ 

, TO ZERO . 



PERIDA *. NO 
LESS THAN .«... 
. ESDOGO .* 



«»»»B3*»»**»» 

SET RECFOO * 

FOR IMMEDIATE* 

EXIT FROM • 

INSOOO. NOP • 

THE OPCODE * 



* ISSUE I/O TO ♦ 
»CHECK NEED FOR * 
*UPDATE *J3* 



»«*»D3*»*»«»»** 

STORE ADDRESS 

OF NEXT CD TO 

BE PROCESSED 

IN LOCATION 

NDSOOO 



RESET SWITCH* 
RECFOO IN THE* 
READ SYSLNK 
SUBRTN • 



.« ADDR *. 
« IN PERIDA 

GT ADDR IN 
*. ESDOOO . 



.» LABEL «. 

. AVAILABLE . 

FOR TRANSFER* 

*.ADDR .* 



C4 *. 
.* ESID ». 

.* NUMBER » 
.FOUND IN END 
*. CARD .» 
». IMAGE.* 



*YES 



* GET CTRL DICT 

* NUMBER OF 
*TRANSFER POINT 



. TRANSFER 
*. LABEL 


»****" 


*% 


• YES 




X ! 

•»«»C5»»»*««**»* 
PRINT QJ* 

LIST CARD WITH * '. 

TRANSFER * 
ADDRESS *H5* 


«««« 






5 *.. 


X... 





ENOXFR 

««»»«D5**«««»««* 
« PUT STARTING 

* ADDR OF CTRL 

* DICT IN A REG 

* FOR DICT SCAN 



NO .* WAS THIS » 
,..*. MODULE 

*AUTO LINKED* 



»«»»H1****»»« 
SET SWITCH ♦ 
ATRLSW TO 
INDICATE BR, 
TO CONTINUE 
AUTOLINK * 



D5» 



MOVPER X 

«««««G2*****» 
» MOVE DISK 
•ADDRESS OF N 

* CARD TO BE 
*PROCESSED IN 

* LOC ONSOGO 



• F5* 
ENDRTN 



«•»«« J !♦»»» 



CLEAR 

NAME LIST 

NMELST 



*H3 E 

THIS LOADS PERIDA 
WITH THE ADDRESS 
OF THE STATEMENT 
AFTER THE INCLUDE STATEMENT 
JUST FINISHED PROCESSING. 
SEE LABEL LIST 
ENTRY FOR PERIDA. 



»J3 
THIS ENSURES THAT 
THE CORRECT ADDRESS 
FOR THE NEXT CARD 
TO BE PROCESSED 
WILL BE SAVED IN 
LOCATION NDSOOO. 



ESID * 
TO BE 
.BY PASSED.* 



*MOVE CTRL DICT 
* NUMBER TO THE 
» ESID FIELD OF 
*THE CARD IMAGE 



»««««H4*** ******* 
*MOVE ASSEMBLED * 

* ORIGIN, CTRL * 

* DICT NO. AND * 
•TRANSFER LBL TO* 

* SAVE AREA • 



TURN ON * 
SWITCH TRFRSW* 
FOR $LNKEDT6 

PHASE * 



SEND ERROR 

MESSAGE 

2I70I 



THE CARD IS LISTED 
IN CASE AN INVALID 
TRANSFER LABEL 
IS FOUND 



»J5 

DETERMINES THE 
ROUTINE THAT GETS 
CONTROL AFTER 
AUTOLINKING- HAS 
TAKEN PLACE. 
ANOTHER ER CAN BE 
AUTOLINKED AT 
THIS TIME. 



♦ EFFECTIVELY 
*SHIFT LOCATION 

♦ PERIDA LEFT 

♦ BY FIVE BYTES 



TRANSFER 

ADDRESS 

.ACCEPTED 
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Chart RR. END Processor (Part 2 of 2) $LNKEDT2; Refer to 
Linkage Editor, Chart 33 



ENDSCD 


.». 






, 






Bl «. 






B2 


♦ . 


.» CTRL ». 






.# CTa «. 


.»DICT ENTRY ». 


YES 




.♦ 01 CT 


NUM- 


».AN 


UNASSIGNED. 


«...•• 


..X» 


. BER A 


MINUS 


« . 


LD/LR .« 











B3 ♦. 

.» ZERO *. 

LNG SD 

PROCESSED 



SWITCH DERDSW IN CORE 
IMAGE BLOCK ROUTINE SIGNALS 
THIS CONDITION. 
CHART QT. 



POINT TO 
NEXT CTRL 
DICT ENTRY 



**»«C2* ********** 


*****C3* ******* 


ERROR CR 


* TEST FOR 




» VALID CONTROL 


SEND ERROR 


» SECTION 


* MESSAGE ♦ 


• LENGTH 


21471 





Dl «. 

.« SCAN • 

OF DICT 

FINISHED 



X 

»*D2*****« 

RDNEXT 

CHART QP 



INITIALIZE 

ERROR MESSAGE 

WITH 58 



.• PERIDA ♦ 
-GREATER THAN 
*. NDSOOO .♦ 



SET NEXT 
AVAILABLE LNK 

TBL ADDR EQ 

TO BEGINNING 

OF TABLE 



*E2 
CAUTION- 
CONTROL DICTIONARY 
IS BUILT FROM HIGH 
TO LOW MAIN STORAGE. 
THE SCAN OF 
THE DICTIONARY 
IS FROM LOW TO HIGH 
MAIN STORAGE. 



VALID 

LENGTH 

CSECT 



.X SEND ERROR 
* MESSAGE 
21581 



♦MOVE DISK ADDR 
« FROM NDSOOO 
* TO ONSOOO 



*»»»»F1»»»»**«** 

♦ SET UP 

♦ VALUES FOR 
♦TABLE CLEARING 

♦ LOOP 



EISCSL 

♦ CALCULATE NEW 

♦ NEXT POSSIBLE 

♦ PHASE ORIGIN 



RDNEXT 
CHART QP 



« LNK ♦ 

TBL CLEARED 
«. ♦H2 .♦ 



♦♦♦H !♦♦♦♦♦*♦♦♦♦ 

MOVE ZEROS • 

INTO LNK ♦ 

TABLE ♦ 



RESET ♦ 
SWITCH USED 
TO SHOW ZERO 
LNG CSECT 
♦ B5 ♦ 



♦ H2 
LINKAGE 
TABLE CLEARED 
AFTER EACH 
MODULE HAS 
BEEN PROCESSED. 



.* MORE *. 
YES .♦TBL ENTRIES^. 
...♦.TO BE CLEARED. 
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Chart RS. Write SYSOOl Subroutine $LNKEDT2; Refer to 
Linkage Editor^ Chart 33 



♦ ♦ 

* HRSOOl ♦ 



WRSOOl 

* LOAD THE ♦ 

* NEXT ADDRESS ♦ 

* ON SYSOOl * 

* IN A REGISTER ♦ 

* * 



ERR091A .♦. 

CI ♦. 

.♦ UPPER *. 

.♦LMT OF XTNT*. 

♦. FOR SYSOOl . 

♦.EXCEEDED .♦ 



* * 

* 3 ♦ 

* * 



♦ •♦♦ 
* * 
» 2 ♦ 



WRSTOl X 

* ADD I TO ♦ 

* BLOCK COUNT ♦ 

* AND SET UP ♦ 

* CCB » 

* * 



* SVC * 

WRITE 

» TAPE * 



♦ DECREASE THE ♦ 

♦ DISK ADDR ♦ 

♦ ON SYSOOl ♦ 

♦ AND STORE IN ♦ 

♦ LOC ADDRESS * 
***************** 



*****£l********** 

* PUT DISK ADDR ♦ 

* ON SYSOOl * 

* INTO CHHR OF * 

* COUNT FIELD * 

* RLOOUT ♦ 
***************** 



*****f I********** 
♦ADIDSK QK* 
♦_♦_♦_♦_♦_♦_♦_♦_♦ 

* POINT TO * 

* NEXT RECORD * 

* * 
***************** 



*****Ql********** 

♦ STORE DISK ♦ 

♦ ADDRESS OF ♦ 

♦ NEXT RCD IN * 

♦ ONSOOI * 

♦ * 
***************** 



HI ». 
.♦ IS ♦ 

SYSOOl 
ASSIGNED 

TO 
♦.TAPE .♦ 
♦ . .♦ 
♦ NO 



*****Jl*********. 

♦ SET UP THE 

♦ CCW AND 

♦ CCB TO WRITE 

♦ ON DISK 
* 
**************** 



4>*4c4t«Kl ♦♦♦♦♦♦♦♦♦♦ 
♦DISKIO QM^ 
♦-♦-♦-*-♦-♦-♦-♦-♦ 

♦ WRITE ♦ 

♦ DISK ♦ 

♦ ♦ 
***************4'n'' 



* INITIALIZE ♦ 

♦ ERROR MESSAGE ♦ 

♦ WITH 91 ♦ 

* * 

***************** 



****E2********* 

* ABTERR ♦ 

* CHART QM ♦ 

* * 
*************** 



****^2********* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ STOP TIMER ♦ 

*************** 



END 

OF 

FILE 



♦ 1 ♦... 

* ♦ . 
♦ ♦♦♦ 

CLREXT X 

*****Qi********** 

♦ ZERO THE * 

* NUMBER OF ♦ 

♦ BYTES SUB ♦ 

* FIELD IN THE ♦ 
»RLD OUTPUT AKEA^ 

****************** 



****^^2********* 
♦RETURN TO LINK ♦ 
» REGISTER ♦ 
* ADDRESS ♦ 

*************** 



♦ 
2 ♦ 
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Chart RT, Initialize Control Card Processor $LNKEDT4; Refer 
to Linkage Editor, Chart 3 4 
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PHASE CARD. 
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• ANOTHER WITH 

• A ONE •82 
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♦ SET SWITCH 
•RECFOO TO A BR 
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B4 
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• . LIST .* - 
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DISK I/O 
UPDATE PERIDA 
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RECFOO TO 

NOP 



♦♦««♦♦«♦ 
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21101 



G3 ♦. 




.♦ OP ♦. 




.♦ FIELD ♦. 


fES 


EQUALS .♦ 




♦. PHASE .♦ 










X 


♦ NO 


♦ ♦♦♦♦ 




*RW • 




♦ 81* 




« ♦ 






, 


PHCRD 


X 
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PRTLST QJ» 








LOG CARD • 




IMAGE 





•♦♦♦G4»*^ ♦•♦*♦* 
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CHART QP ♦ 



GETVRB .♦. 






G5 «. 
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YES . 


• A DUMMY • 






PHASE CARD 






«. BUILT .» 






♦. •82 .♦ 






«. .« 
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« • 
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♦ (•♦•H5***«^«*«»* 
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• OP 
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EQUALS 
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X 
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RDNEXT 
CHART QP 



PUT OPERATION 
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PHVERB 



K5 *. 
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*• •• 

• • •• 



««♦♦ 

• • 

• 2 » 
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Chart RU, Include Card Processor $LNKEDT4; Refer to Linkage 
Editor, Chart 34 



***** 

*RJ * 
♦ C5* 



INCCRO X 

*****Bl********** 
*1NIT A REGISTER* 

♦ WITH THE ♦ 

♦ ADDRESS OF » 

♦ $LNKEDT AND * 

♦ FETCH INSTS ♦ 

****i»4[4i*4i**4[*4i4i4i* 



*****C1******* 

* TURN OFF * 

* NAMED * 

* SUBHODULAR * 
♦SWITCH, NMSBSW* 

* * 
4i4i4i4'4<*4i**4i4>*** 



««*4i4iOL******* 

* SET SWITCH * 

* PHCSW TO 

* ALLOW A 

* BLANK 

* OPERATION * 
4i**4[«*4i4>****** 



«*4i4i4<El********** 
♦EXTRCT RZ* 
*-*-♦-*-♦-♦-«-*-* 

* PUT OPERAND * 

* INTO LOC * 

* PHNAME * 
***4i***4c********* 



♦ E2 
THE NESTING LIMIT 
IS FIVE. IF A 
DELIMITER HAS NUT 
BEEN FOUND AFTER 
ALL MODULE NAMES 
HAVE BEEN MOVED 
AN ERROR EXISTS. 



X. 

LABST X 

* MAKE LOC 
» NMELST THE 

* WORK AREA 
♦FOR THE tXTKCT 
♦SUBROUTINE ♦B^ 



♦EXTRCT RZ^ 

♦-♦-♦-♦-♦-*-*-♦-* 

♦ PUT MODULE ♦ 

♦ NAME INTO ♦ 
NAME LIST 



*B^ 
BY SPECIFYING THE 
LOCATION NMELST AS 
THt WORK AREA, THE 
EXTRCT SUBROUTINE 
IS USED TO BUILD A 
NAME LIST FOR THIS 
INCLUDE. 



**** 



***i|i***«*4<*« 



**** 

* * 

* 4 ♦ 

* * 
**** 



BAC< UP 

THE INPUT 

POINTER ONE 

CHARACTE-t 



♦ LAST ♦ 

CHAR EQ 
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PAREN 
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NMSBSW 

ANJD SBMDST 



♦ DELIMITER 


♦ 




NO 




EQ COMMA 




I* 






♦ . 


,» 








♦. .♦ 










♦. .♦ 






X 




♦ YES 






**♦* 




















**** 




X 










D .♦. 










Gl ♦. 










.♦ NEXT ♦. 










♦ CHAR EQ 


* 


NO 




LEFT PAREN 


♦ ' 


♦ 






*♦. .♦* 




' 




♦• .♦ 






X 




♦YES 






***** 




* 






*RT * 
♦ E2* 

* * 

* 










ERROIO 




X 






*H2 






THE NAME 
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BE BLANK 


EXCEPT 


INITIALIZE 






WHEN A NAMED SUB- 


ERROR MESSAGE 




MODULAR 


IS STILL 


WITH 33 






BEING PROCESSED. 



E3 *. 

.♦ ALL *. 
NO .♦ MODULE ♦ 
,..*. NAMES MOVED 
♦. TO LIST .♦ 
♦. ♦EZ .♦ 
♦ . .♦ 
♦YES 



* 

» INITIALIZE 

* ERROR MESSAGE 

* WITH lA 

* 



4t************ 



***** 
** * 
* F5* 



*F5 

EITHER TG ALf^KGT OH 
ENTALK. EXIT TO 
ALNKGT IF THt CA'^U 
JUST PROCESSEL WAS 
AN INCLUuE CARD. EXIT 
TU ENTALK IF THE CA.*l 
JUST PROCESSED WAS AN 
E'^TRY CARD. 



* F2* 

* * 

ERRNML 



DELIMITER 


♦ . 


YES 


EQ COMMA 


«' 




*. .* 






♦ . .* 




X 


♦ NO 




***** 


* 




♦ RT ♦ 


* 






♦ E2^ 


*.. 






* * 


* 
* 






ERROIO 





* 




**** 






*:^4i*4'******* 




* * 












* 3 ♦ 






• 






* * 
**** 


*»** 
* * 

♦RV ♦.. 












♦ Gl^ 




X 








♦ ♦♦* X 


.*. 




ERR033 


SETMDS X 


FIMDND .*. 


Jl ♦. 




*«4i4i4t4cJ2*********** 


4t«*4'*J3******* 


JA ♦. 


LOC ♦ 




ERROR QR 


* SET SWITCH * 


.♦ *. 


NMELST 


♦ . NO 


*-*-*-*-*-*-*-*-* 


* MODSTS TG * 


.♦ DELIMITER ♦. NO 


BLANK 


•♦• •• • 


....X SEND ERROR 


* INDICATE UN- * 

♦ NAMED SUB- ♦ 


♦. EQ BLANK .♦,... 


♦ H2 


* 


♦ MESSAGE * 


♦ . .♦ . 


.♦ 
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♦ MODULAR ♦ 


*. .♦ 


*. .* 






*4>******:****** 


*. .* X 


*YES 








♦YES ♦♦♦♦ 






I 


r 




♦«I-, 



4i«***Kl*******^^* 

♦ SET ERRNML TO ♦ 

♦ NOP, POINT TO ♦ 

♦ NEXT CHAR, ♦ 

♦ AND INIT CTR * 

♦ WITH NAME CNT * 
*4t**4i************ 



* RDNEXT * 

* CHART QP * 

* * 
^^^i************ 



FIRST 

OPERAND 

BLANK 



**** 

* * 

* 4 ♦ 
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Chart RV. Entry Card Processor $LNKEDT4; Refer to Linkage 
Editor Chart 34 
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RW-Cl 
RY-H5 



• SAVE 
.X* DISK ADDRESS 

• OF THIS 

• ENTRY CARD 



* ALNKPR 

• CHART QQ 



ENTPRT 

««««*D1*****«**** 
•PRTLST QJ* 
»—♦-»—♦—»—»-»—»-» 

• LOG ♦ 

♦ CARD IMAGE ♦ 
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♦EXTRCT _ ^ ^ RZ; 
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) 
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• • •• 






• • .* 








X 




• NO 


••«• 
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• E2 




X 


* • 
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* 
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Chart RW. Phase Card Processor (Part 1 of 3) $LNKEDT4; 
Refer to Linkage Editor, Chart 34 



* * 

♦ I ♦ 

• * 



***** 

♦RT » 
♦ 63* 

* * 



* «i4i**A4********** 

* * 

* PUT HAX LNG * 

* OF HEX FIELD * 

* IN A REGISTER * 

* * 



.* AUTOLINK *. YES 
*. IN PROCESS .*.... 



* INITIALIZE * 
.X* ERROR MESSAGE * 

* WITH 25 * 

* * 



*****B4********** 
*EXTRCT RZ* 
*-*-*-*-*-*-«-*-* 

♦ PUT HEX ♦ 

♦ OPERAND INTO * 

♦ LOG DBLHRD ♦ 
**4i*«****»*4i***«* 



CI ♦. 


****«*C2*********** 


• * *. 


ERROR QR 


.* AUTOLINK *. YES 


*-*-*-*-*-*-*-*-* 


». REQUESTED .*.... 


SEND 


♦ . .* 


* ERROR MSG * 


♦ . .♦ 


21251 


♦- .* X 




*N0 ♦**♦» 




♦RV ♦ 




* B2* 




* * 
: SAVCTL 
*****[)l*«******4<* 


. 


I 


X 


*PRTLST QJ* 


****02********* 


♦-*-*-♦-*-♦-♦-*-♦ 


* RDNEXT * 


* LOG » 


* CHART QP ♦ 


* CARD IMAGE * 


» ♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 



***************** 



***««***4i*i»4i*«4' 



X 

***** 
*RT * 
♦ E2* 



*«*4i*El********** 
*EXTRCT RZ* 
*-*-*-*-*-*-*-*-* 

♦ PUT * 

♦ OPERAND INTO * 
» PHNAME ♦ 
***************** 



♦UPDATE RZ* 
*-*-*-*-*-♦-*-*-* 

♦ POINT TO ♦ 

♦ NEXT INPUT * 

♦ CHARACTER * 
***4i4i*»«i4i4i**«*4i** 



***4t4ip4********4i* 
♦CMDEL RZ* 
4>-*-*-4[-*-»-*.*-* 

* TEST TYPE * 

* OF DELIMITER * 

* * 



*4>***G1********** 



***************** 



NEXT 
OPERAND A 
.PLUS SIGN. 



X * 
***** 
*RY * 
* Al* NTABS 



*' 


* Fl 

*. ACTIVE 
*• .* 
*. .♦ 
*YES 


♦. NO 
,*' '"I 




• 




I' 

**** 


RUNNING^ i*******«*» 

* * 






* 
* 


ATtkli?if0N 


* 
* 







DSPRTN X 

*****H2********** 
♦UPDATE RZ^ 
*-*-*-*-*-*-*-*-* 

* POINT TO NEXT * 

* CHARACTER IN * 

* INPUT ♦ 
***************** 



.* OPERAND *. NO 
. A HEX OIS- .*... 
♦.PLACEMENT.* 



***************** 



***** 
*QM * 
♦ A5^ 



.♦. 

K2 ♦. 
.* NEXT 
♦ CHAR EQ 
APOSTROPH 



♦ . 



». .* 

♦YES 

X 
*•** 

* • 

* 1 ♦ 

* ♦ 
♦•♦* 



***** 
♦RX ♦ 
♦ 82^ 



♦ ♦♦♦ 

♦ * 
♦.2 ♦ 

* * 
♦*** 



OELEXT X 

*****H4******* 

* SET PHCSH * 

* TO SHOW A 

* NON COMMA 

* DELIMITER 

* * 
************** 



*****J4********** 
♦CALCULATE NUM- ♦ 

♦ BER OF HEX ♦ 

♦ BYTES TO BE ♦ 

* CONVERTED * 

* TO BINARY * 
***************** 



*****K4*^^^^^^^^^ 
♦CNVHEX QH^ 
*-*-•>*-*-*-*>*-* 

♦ CONVERT ♦ 

♦ DISPLACEMENT ♦ 

♦ TO BINARY ♦ 
***************** 



X 
*•*♦♦ 
♦RX ♦ 
♦ B5^ 
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Chart RX, Phase Card Processor (Part 2 of 3) $LNKEDr4; 
Refer to Linkage Editor, Chart 34 



***** 

♦RH * 

♦ K4* 

* * 



***** 
♦RW * 
♦ J2* 



DECDSP X 

•****B2********** 
*LOAO A REGISTER* 
♦WITH MAX LENGTH* 

♦ FOR DECIMAL * 

♦ DISPLACEMENT ♦ 

♦ * 
*********4i**4i*«4c4, 



•**«*C2********** 
♦EXTRCT RZ* 
*-*-*-*-*-*-*-*-* 

♦ PUT OPERAND * 

♦ INTO LOCATION * 

♦ CNVBUC * 
*********«***4i4i*4i 



*****D2*********: 
* 

* INIT ERROR 

• MESSAGE 

♦ WITH 02 
* 

• *******4i*«4i4c**4i: 



**** 

* * 

* 2 * 

* * 
**** 



***4i*C3********* 
* 
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* 

*****«****4i*4i4>4.4i: 



****4cC5*********4' 
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♦ * 

*4>**************4c 
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I***************: 
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.* 
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♦ E2* 
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*-*-*-♦-*-*-*-•-* 
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******•*•**•* 
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Chart RY. Phase Card Processor (Part 3 of 3) $LNKE0T4 ; 
Refer to Linkage Editor, Chart 3U 
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♦ . .» 
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TO SHOW A 
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DSPRTN 



YES .» DELIMITER ». 
...*. A COMMA .* 
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X 

»♦» 

3 • 
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X 


•••«• **»N0 
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Chart RZ. Skip Blanks and Extract Field Subroutine 

$LNKEDT4; Refer to Linkage Editor, Chart 34 



* ♦ 

* SKIPB ♦ 

* ♦ 



* ADO ONE TO 

* CARD IMAGE 

* ADDRESS 

• 



A DELIHITER 
IS A CHARACTER 
THAT SIGNALS 
THE END OF AN 
OPERAND. THIS 
CHARACTER IS ALSO 
CALLED A STOP 
CHARACTER. 



.*CARD IMAGE *. NO 
LOC A .*... 
*. BLANK .* 



DI ♦. 
.♦ • *. 

NO .* END OF 

,..*, CARD IMAGE 



El ♦. 

.* *m 

.♦ OP FLO OF ♦ 
*.THIS CARD EQ 
♦. ENTRY .♦ 

*. ,* 



****A3********* 

* * 

♦ EXTRCT ♦ 



EXTRCT X 

* SET MAX CHAR * 

* CNT IN A REG» * 

* AND SET REG * 

* POINTER TO ♦ 

* OPERAND AREA * 
*^f ************** 



j^**mC2********* 

* RET TO LINK ♦ 

* REG ADOR * 

* * 



*D2 
WHEN THE INPUT 
FIELD HAS BEEN TESTEDt 
AND NO DELIHITER 
HAS BEEN FOUNDf 
AN ERROR EXISTS. 
WHEN ALL THE BYTES 
OF THE INPUT FIELD 
HAVE NOT BEEN 
TESTED, THE 
SUBROUTINE LOOPS 
THROUGH THE 
TEST SEQUENCE, 
SEEKING A 
FIELD DELIMITER. 



RESET X 

m****C3*****'***** 
♦LOAD A REGISTER* 
♦WITH THE START-* 

* ING ADDR OF * 

* DELIMITER * 
*TABLE *B2* 
**ti**^****^****** 



* LOAD ANOTHER * 

* REG WITH THE * 

* NUMBER OF * 

* DELIMITERS * 

* * 
*****m^***t****** 



**** 

* * 

* 1 * 

* * 
**** 



B4 ♦. 

.♦ENTIRE ♦. 
.♦INPUT FIELDS. 
TESTED .' 
♦. ♦DZ .♦ 

♦ . .♦ 



***** 

♦ RT ♦ 

♦ fZ* 



****A5********* 



*************** 



♦ * 

♦ POINT TO NEXT ♦ 

♦ CHARACTER IN ♦ 

♦ INPUT STREAM ♦ 

♦ • 
*******^ti******** 



♦LOAD A REGISTER* 

♦ WITH HIGHEST ♦ 

♦ LEGITIMATE ♦ 

♦ INPUT ADDRESS » 

♦ * 



*4i4i*04^^^^*^^** 

* RETURN TO LNK * 

* REGISTER ADOR *X. 

* * 
***it'*********** 



*N0 



***** 
*RY * 
* H5* 



.* 


*. 






t***f2********* 


.* OP FLO OF *. 
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* 


CTLRET 
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X* 

* 
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QP 


*. .* 






*************** 
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IS 
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IN 


AN 


INCLUDE 
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• * *. 
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X 
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**** 










* 


* 












* 
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* 
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**** 
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•***H1********* 












♦RETURN TO LINK ♦ 












♦ REGISTER * 












* ADDRESS * 












•******< 


li**«**** 













*****P3********** 

* * 

* POINT TO NEXT * 

* DELIMITER IN * 

* THE TABLE * 

* * 
***************** 



**** 
ERR012 X 

*****P4********** 

* * 

* INITIALIZE * 

* ERROR MESSAGE * 

* WITH 12 * 

* * 
***************** 



* INITIALIZE * 

* ERROR MESSAGE * 

* WITH 13 ♦ 

* * 
***************** 



***** 

*RT * 

* F2* 

* * 



NO .* LAST *. 


.*LEGITIMATE *. NO 


.,*. DELIMITER .* 


*. SKIPPED .*.... 


*. CHECKED .* 


*. FIELD .* 


*. .* 


*. *G2 .* 


*. .* 


*. .* X 


*YES 


♦YES ***** 




*RT * 


. 


♦ F2* 



*****H3********** 

* THE CHAR IN * 
*THE INPUT AREA ♦ 

* IS A MON- * 
*OELIMITER, MOVE* 
*IT TO WRK AREA * 
***************** 



*****H4******* 

* RESET SWITCH* 
*THAT INDICATED* 

* THIS AS AN * 

* INCLUDE CARD * 

* OPERAND * 
************** 

**** I 



****H5********* 

* * 

* CMOEL * 

* » 
*************** 



* TO WORK AREA * 

* * 
***************** 



*****K3********** 
*UPDATE RZ* 
*-•-*-*-*-*-•-*-* 

* POINT TO * 

* NEXT INPUT ♦ 

* CHARACTER * 
***************** 



**♦♦ X 
CMDEL .*. 

J4 *. 

.* *. 

.* INPUT * 

♦.DELIMITED BY 

*. A COMMA .* 



****K4********* 



**••*•*****•*** 



*****J5********** 
*UPDATE RZ* 

*-*-*-*-*-*-*-*-♦ 



****K5********* 

* RET TO LNK * 

* REG PLUS 4 • 

* * 
**********4i**** 
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Chart SA. Phase Post Processing $LNKEDT6 (Part 1 of 6) ; 
Refer to Linkage Editor, Chart 35 



•••Al*«*^»» 
IJBCTL 



• IS • 

THIS AN 

INCLUDE 

CARD 



•••CI*««*^** 
SET SWITCH 
NMSBSW TO 

REFLECT 

AUTOLINK 

MODE 



OR UN- 

D LD/LR 

ENTRIES DO NOT 
DEFINE A LABEL 
AND THEREFORE 
CANNOT BE USED TO 
DEFINE A TRANSFER 
ADDRESS IN LABEL FORM. 
IF SUCH ENTRIES ARE 
FOUND TO HAVE MATCHING 
LABELS, THEY ARE 
IGNORED AND THE CONTROL 
DICTIONARY SEARCH FOR 
ANOTHER MATCHING 
LABEL IS CONTINUED. 



* GET ASSEMBLED ♦ 
•ORIGIN AND ESID* 

* NUMBER OF TR • 
•ACDR IN A PAIR • 

* OF REGISTERS • 



SET UP 

FOR A CONTROL 

DICTIONARY 

SEARCH 



TRANSFER 

ADDRESS A 

. LABEL . 



• SEARCH CTRL • 
•DICT FOR DEFIN-* 
•ITION OF TR LBL* 



*D4 
INVALID CARD 
MESSAGE TO 
BE DISPLAYED 
ON MAP. 



PHXADD .•. 

B5 •. 
.• THE •. 

.• CTRL DICT • 
♦.ENTRY EQUALS 
• . SD .• 



•GET RELOCATION 

• FACTOR OF SD 

♦ POINTED TO 




•••••D5^ 

• CALC LOAD 
•ORIGIN — EQUALS 

• ASSEMBLED 

• ORIGIN PLUS 

• RELOC FACTOR 



.• MATCHING ♦ 
.LBL FOUND IN 
•CTRL DICT..* 



LABINV 

•••••E4^«^^^^^ 

♦ SET SWITCH ♦ 

• DPNTSW TO * 
...X^ SHOW INVALID 

• LBL ON END OR^ 

♦ ENTRY CARD ♦ 



WRTRFR 

•••••E5^^««^*^ 

♦ STORE 

♦ TRANSFER 

♦ ADDRESS IN 

♦ LOCATION 

♦ TRFRAD 



♦ SD 

♦ G2 

WRTHDR 



THIS 
FIRST 

PHASE 



WRITE CURRENT 

CORE IMAGE 

BLOCK 



♦ IS 
THIS A 
PHASE 
CARD 



INITIALIZE 

ERROR MESSAGE 

WITH 81 



CALCULATE 

LENGTH OF 

CURRENT 

PHASE 



•«»H1*»*«**^^** 
PUT LOAD • 

ADDRESS OF • 
PROCESSED • 

PHASE IN A • 
REGISTER • 



Jl •. 




.♦TRANS- ♦. 




♦ FER ADDR ♦. 


NO 


ACCEPTED FROM. 




♦. AN END .♦ 




♦.CARD .♦ 


« 



.♦Ur tKf LM» •• T 

.OR UNASSIGNED.^. 
♦. LD/LR .♦ 
♦. "AZ .• 



♦ SAVE ♦ 

♦ ASSEMBLED ♦ 

♦ ORIGIN OF ♦ 
♦USABLE TRANSFER^ 

♦ ADDRESS ♦ 



♦GET RELOCATION 

♦ FACTOR OR 

♦ ESID NUMBER 







ERR023 X 




•••••G5*^^^^^^^ 


•SRPCOD 


OF* 






♦ INITIALIZE 


X^ CONTINUE 


• 


♦ ERROR MESSAGE 


♦ DICTIONARY 


• 


♦ TO 23 


♦ SEARCH 


♦ 




X 




• ••• 






« • 




X 


* 2 » 




.*. 


• • 




H5 ♦. 


• ••• 




.♦LENGTH •. 
YES .•OF CURRENT • 
...♦. PHASE EQ 

♦. PLUS .♦ 
♦. VALUE. ♦ 
X ♦. .♦ 
•«••• *N0 
•SE ♦ 
♦ Bl^ 
« * . 

CINOBL X 


•*«*««J4» •«•••« 


«*•» 


J5 ♦. 


ERROR 


QR 








NO .• AN ENTRY • 


SEND ERROR 


X. 


CARD BEING 


♦ MESSAGE 


* 


♦. PROCESSED. ♦ 


21231 




♦ . .♦ 



♦♦Kl^^^^^^^ 

RESET 

TRANSFER 

SWITCH AT 

LOCATION 

TRFRSW 
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Chart SB. Phase Post Processing $LNKEDT6 (Part 2 of 
Refer to Linkage Editor, Chart 35 



6) 



***** 




**** 


*SA * 




* * 


* El* 




* 1 ♦ 


* * 




* * 


* 




**** 


PHSPRC .♦. 




NOTIST X 


Bl *. 


****«B2******* 


**4i**B3*****4i**** 


.♦ $ *. 


* SET SWITCH * 


*SRCHCD QF* 


.* TYPE ♦. YES 


* OPNTSW TO * 


*-*-*-*-♦-*-*-*-* 


». PHASE .* 


...X* SHOW + PHASE * 


♦SEARCH CONTROL ♦ 


*. NAME .* 


* NAME * 


♦ DICT FOR OUP- ♦ 


** .* 


* * 


♦ LICATE NAME ♦ 


*. .* 


*******4i***«*4i 


****4i****4>******* 


♦NO 






• X«*«a *••«*••• 




«,.,.xl 


ERR025 X 




.i. 


*****Cl********** 




C3 ♦. 






.♦ ♦. 


* INITIALIZE * 




.* MATCHING ♦. NO 


* ERROR MESSAGE * 




♦. NAME .♦ 


* WITH 25 * 




♦. FOUND .* 






♦ . -♦ 


«****•*•******•** 




♦ . .♦ x 


• 




!"" :ir: 






♦ Bl* 






. * * 






* 


X 




X NTROOT 


.♦. 




.*. ERR020 


Dl ♦. 


*«4i**4iD2*4'**4'****** 


D3 ♦. ♦♦♦♦♦D4********** 


.* PHASE *. 


ERROR QR 


.♦ *. * * 


.♦CARD FOUND *. YES 


*-*-*-*-*-*-*-*-* 


.♦ DUPLICATE *. YES ♦ INITIALIZE * 


*. DURING .* 


...X SEND ERROR 


*. FOUND ON .♦ X* ERROR MESSAGE ♦ 


*.AUTOLINK .* 


• "imr * 


♦. PHASE .♦ * WITH 20 ♦ 


♦ - .* 


♦.ENTRY.* ♦ ♦ 



♦ INITIALIZE ♦ 

♦ ERROR MESSAGE ♦ 

♦ WITH 21 ♦ 

♦ * 
*****4>*4t«*4c**«*** 



*********4i4>*4t 



♦ RDNEXT ♦ 

♦ CHART QP ♦ 

♦ * 
*************** 



*****£2********** 
♦SRPCOD QF^ 
*-*-*^*^*-*.*-*-* 

♦ CONTINUE * 

♦ SEARCH OF ♦ 

♦ CONTROL DICT ♦ 
***************** 



***************** 



******^t^*********** 

ERROR QR 

♦-♦-♦-♦-♦-*-♦-♦-♦ 

SEND ERROR 

♦ MESSAGE * 

2I20I 

************* 



.♦. 

Fl ♦. 

.♦ NAME ♦. 
.♦WITH LOWER ♦. YES 
♦.COLLATING SEQ.^.... 
♦.THAN i$A .♦ 



****fi^********* 

♦ RDNEXT * 

♦ CHART QP ♦ 

♦ * 
*************** 



.♦ PHASE ♦. YES 
. BEGINS WITH ...... 

♦.ASTERISK .♦ 



*H3 



♦. FIRST PHASE . 

♦ . .* 

♦ . .♦ 



•«****H2*******^^^^ 

ERROR QR 

*-*-*-*-*>*-*-*-* 

SEND ERROR 

* MESSAGE * 

21211 

************* 



THE CONTROL DICTIONAiCY NUMBER OF k ROOT PHASE 

IS ALWAYS A ONE. \ 

THE CONTROL DICTIONARY NUMBER OF THE 

FIRST PHASEt IF IT IS A NON ROOT PHASE t 

IS ZERO. 

SEE ROOTNO IN THE LABEL LIST FOR 

FURTHER EXPLANATION ON ADJUSTMENTS 

REQUIRED BY THE CONTROL DICTIONARY NUMBER 

IF A ROOT PHASE IS SPECIFIED. 



.♦. 
Jl ♦. 

.♦' OPERAND '♦. ^ 

♦.ROOT IN CARD .♦. 

♦. ♦HS .♦ 

♦ . .♦ 

♦. .♦ 

♦YES 



♦ I ♦ 

* * 
**** 



***** 

♦sc ♦ 

♦ Bl^ 



•***J2********* 

♦ RDNEXT ♦ 

♦ CHART QP ♦ 

♦ * 
*************** 



*****K1 ********** 

* MOVE HEX 01 * 
*INTO ROOT NO.t ♦ 
♦ZERO CTRL DICT ♦ 
♦NUMBER AND GET ♦ 

♦ EOS ADDRESS ♦ 
***************** 



. ISROOT 

X 
***** 
*S0 * 
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Chart SC. Phase Post Processing $LNKEDT6 (Part 3 of 6) ; 
Refer to Linkage Editor, Chart 35 



RPCOD QF« 


.« IS ». 




YES .» IT ER, 


CONTINUE SCAN »X.. 


».CMt OR AN UN 


OF CONTROL « 


•.ASSIGNED . 


DICTIONARY * 


•.LD/LR.* 



* IS * 

THERE A 

BASE 
ORIGIN 



«*««*B4* *««*«*»** 
» SAVE CONTROL ♦ 
» DICT NUMBER » 

• AND ADDRESS • 

• IN LOCATION ♦ 
•DBLWRD •CB* 



» GET PHASE * 
» NUMBER OF • 
•CTRL DICT ENTRY» 



CI •. 

.•* FG 

». INDICATOR 



DI *. 
•I* QUALIFIER 



.DISPLACEMENT 



CALCULATE 

AMOUNT OF 

FOREGROUND 

SAVE AREA 



GET NEW 

ORIGIN FOR 

COMMON 



♦•#C2^««*^»»« 
LGAD A REG 
WITh END OF 
SUPERVISOR 



D2 ». 
.•ORIGIN •. 
* AT END OF 
SUPERVISOR 



PUT ADDRESS 

OF NEXT PHASE 

ORIGIN INTO 

REGISTER 



ORIGIN 

AT 

.ASTERISK 



*C3 
AT THIS POINT 
THE MATCHING 
LABEL BELONGS TO 

1. AN ASSIGNED LD/LR 

2. A SD 

3. A PC 



*D3 
AN SD OR PC 
PROVIDES A 
RELOCATION FACTOR. 
AN ASSIGNED LD/LR 
PROVIDES AN ESID 
NUMBER THAT 
POINTS TO SD OR PC. 



••«C4^«*»***« 

SAVE 

ASSEMBLED 

ORIGIN OF 

THE CONTROL 

DICT ENTRY 



YES .• CTRL 
...♦. DICT ENTRY 
». A PHASE . 
♦.CARD .» 



* GET RELOC ♦ 
•FACTOR OR ESID ♦ 
•NUMBER •DB* 



SAVE 
PHASE NUMBER 
IN A REGISTER 



D5 «. 

.♦ CTRL *. 

•DICT ENTRY 

MATCHES 
•.QUALIFIER. 



GET RELOC 
FACTOR OF SD 
POINTED TO 



CTRL DICT 

ENTRY AN 

. LD/LR . 



•CALCULATE LOAD 

* ADDR- RELOC 

* FACTOR PLUS 

* ASSEMBLED 

* ORIGIN 



* 6 

*«» 
CHQUAL 



IS 
THIS 
FIRST 
PHASE 



INITIALIZE 

ERROR MESSAGE 

WITH 22 



SCNSYM 

««»««J2* 
•SRCHCD 



NO QUALIFIER 
IS LEGAL ON 
FIRST PHASE. 



•SEARCH CONTROL 

* DICT FOR 

• QUALIFIER 



QUALIFIER 

FOUND IN 

.CTRL DICT. 



SEND ERROR 

MESSAGE 

21221 



♦ CTRL ». 

DICT ENTRY . 

•. A PHASE .* 

•.CARD .• 



• CONTINUE • 
♦SCAN OF CONTROL* 

* DICTIONARY » 



Appendix H. Detailed Flowcharts 619 



Chart SD. Phase Post Processing $LNKEDT6 (Part 4 of 6); 
Refer to Linkage Editor, Chart 35 



CALCULATE NEW 

PHASE ORIGIN 

DISPLACEMENT 

PLUS BASE 



INITIALIZE 

ERROR MESSAGE 

WITH 24 



MINUS 

PHASE 

ORIGIN 



••E2»«»«»»* 

PUT 

PHASE ORG 



ISROOT 

•«««*F2******** 

• PUT PHASE 

• ORIGIN INTO 
» LOC SYMBOL, 
» LCCORE, AND 

• HICORE 



SEND ERROR 

MESSAGE 

212AI 



RDNEXT 
CHART QP 



•«*«G 2* ******** 

MOVE HEX 07 

TO FIRST BYTE 

OF LOCATION 

SYMBOL 



•SA * 

* Fl« 

WRTHDR 
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Chart SE. Phase Post Processing $LNKEDT6 (Part 5 of 6); 
Refer to Linkage Editor, Chart 35 



* CALC THE 
•NUMBER OF CORE 

* IMAGE BLOCKS 
» REQUIRED BY 

* THIS PHASE 



»»««CI»»»«»»»»« 
SET UP LOC 
NGBLOK AND 
NOBYTE WITH 
28 BYTE HDR 
INFO »B2 



* SAVE BLK CNT, 
» SET UP DISK 

* FACTORS, AND 
*SAVE DISK ADDR 
» OF LAST BLOCK 



»B2 
TWO TYPES OF 
BUILT BY THE 

1. A 28 BYTE 
TAINING I 
A SPECIFI 
WITHIN WO 
SYSRES. T 
OF THIS H 
IN THE PH 
CONTROL D 

2. A 20 BYTE 
AS A CORE 
ENTRY IS 
LINKAGE 
CONTAINS 
OF THE FI 
PHASE PLU 
PHASE/COR 
BLOCK INF 
20 BYTES 
BYTE HEAD 
IS CREATE 
PHASE OF 



HEADERS ARE 
LINKAGE EDITOR. 
HEADER CON- 
NFORMATION ABOUT 
ED PHASE IS BUILT 
RK TRACKS 2-4 OF • 
HE DISK ADDRESS • 
EADER IS SAVED • 
ASE ENTRY OF THE 
ICTIONARY. 
HEADER FOR USE 
IMAGE DIRECTORY 
ALSO BUILT BY 
DITOR. THIS HEADER 
THE DISK ADDRESS 
RST BLOCK OF THE 
S ADDITIONAL 
E IMAGE 
ORMATIGN. THE 
HEADER USES 28 
ER INFO AND 
D IN THE FINAL 
LINKAGE EDITOR. 



ABTERR 
CHART QM 



WRK 
TRK AREA 
.EXCEEDED 



»»»»»C 4* ♦•♦»»«♦ 
» SET UP 
« CCHHRKDD FOR 
•WRITE CNT.KEY, 

• AND DATA 

♦ ♦CS 



••««*D 4*** •*•••• 

* PUT SEARCH 

* ADDR IN LOC 
•ADDRESS IN THE 
•FORM CHHR,R EQ 

* RCD-1 ♦DS 



THIS INITIALIZES THE COUNT 
FIELD OF COUNT, KEY, AND 
DATA. 



THE COMPLETE SEARCH ADDRESS 
IS BBCCHHR. BBC ARE SET TO 
ZERO FOR THESE DISK 
APPLICATIONS 



CIMBLK ,*. 




EI •. 




.♦ PH.SE *. 




.•TOO B G FOR». YES 


♦. CORE MAGE .» 




». LB .• 










X 


• NO 


«*«»» 




• QT • 




• C5» 




* « 




« 




ERR093 


X 




«»««»F1«**«^«^«»* 




•ADIDSK QK* 








» ADD ONE TO » 




* DISK ADDRESS ♦ 




♦ •J2 • 





UPDATE TO 
NEXT RCD TO 
BE WRITTEN 



«*««F4«**»*»***» 
SAVE DISK » 

ADDRESS FOUND * 
IN SUBRTN • 

IN LOC HEDRDA • 



»«»»*GA*** *•»**•* 

• SET UP ♦ 

• CCW AND CCB • 
» TO PERFORM ♦ 

• DISK I/O • 



• STORE THE 
•NEXT AVAILABLE 

• DISK ADDR 

• IN LOC 
» THPHDA 



WRITE 28 

BYTE HDR ON 

WRK TRK 



• MOVE THE 28 » 
•BYTE HDR TO THE* 

• I/O AREA, • 

• INPBLK AND • 
•SPECIFY RCD LNG^ 



• J2 
NEXT AVAILABLE DISK ADDRESS 
IN CORE IMAGE LIBRARY IS 
CALCULATED BY RESERVING 
DISK SPACE FOR THE PROCESSED 
PHASE AS A FUNCTION OF CORE 
IMAGE BLOCK NUMBER. 



INITIALIZE 

ERROR MSG 

WITH 92 
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Chart SF. Phase Post Processing $LNKEDT6 (Part 6 of 6); 
Refer to Linkage Editor^ Chart 35 



***** 

♦SE * 

♦ H4* 



♦ GET PHASE ♦ 

♦ NUMBER- * 

♦ CTRL DICT ♦ 

♦ NUMBER ♦ 

♦ * 



***** 

♦ SA * 

* F2* 



.X. 



NEHPHS X 

♦ MOVE THIS * 

♦ PHASE NAME ♦ 

♦ INTO 28 BYTE * 
» HOR ♦ 

♦ ♦ 
*^ittt**********^*** 



THE AUTOLINK SWITCH, 
ALNKSW, IS INITIALIZED 
WITH ZEROS IN ALL BIT 
POSITIONS SIGNIFYING AN 
AUTOMATIC AUTOLINK 
OPTION FOR ALL PHASES. 
IF AN ACTION CARD WITH A 
NOAUTO OPERAND IS FOUND, 
THE BIT POSITIONS OF 
ALNKSW ARE SET TO ONES. 
THIS INDICATES THE AUTO- 
LINK FEATURE IS 
SURPRESSEO FOR ALL 
PHASES. 

IF AUTOLINK IS SUPPRESSED 
BY PHASE, ONLY THE BIT 
POSITION OF ALNKSW 
CORRESPONDING TO THAT 
PHASE IS SET TO ONE. 
THEREFORE, THE PROPER 
BIT POSITION FOR THIS 
PHASE IS SHIFTED INTO 
THE LOW ORDER BIT POSITION 
OF ALNKSW FOR TESTING BY 
OTHER PARTS OF THE LINKAGE 
EDITOR PROGRAM. 



♦-♦-♦-♦-*-♦-♦-♦-* 

* FIND CTRL ♦ 

* DICT ADOR OF * 

* PHASE ENTRY ♦ 
*^,r^********m***** 



***m*C3********** 

♦ SET UP LOC ♦ 

♦ ORPHDA WITH ♦ 

♦ DISK ADDR OF * 

♦ CURRENT CORE ♦ 

♦ IMAGE BLOCK * 

**7tim************* 



4-MOVE DISK AOOR * 
♦OF 28 BYTE HOR ♦ 

♦ -ON WRK TRK- ♦ 
*INTO CTRL DICT * 

* PHASE ENTRY * 



X 
.♦. 

El ♦. 

.* IS *. 
♦ THIS AN 

ENTRY CARD 
*. IMAGE . 



*YES *♦♦♦ 


. * 


* 


♦ 1 


* 


* 


♦ 


**** 








ERR082 


fT "♦. 


*****P2********** 


* *. 




ENTRY *. YES 


* INITIALIZE * 


CD WITHIN .♦ 


...X* ERROR MSG * 


MODULE .♦ 


* WITH 82 * 


*. .♦ 




♦ . .* 





* SAVE THE ♦ 

* PHASE NAME * 

* AS A POSSIBLE ♦ 

* TR ADDR IN ♦ 

* LOC XIT ♦ 



****Q2********* 

* ABTERR * 

* CHART QM ♦ 

* * 



*****D3*4i***4t* 

♦ POINT TO ♦ 

♦ CORRECT BIT ♦ 
» IN AUTOLINK 

♦ SW FOR THIS * 

♦ PHASE ♦A** 
************** 



*****£^********** 

♦READ QM* 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ READ FIRST ♦ 

* BLK OF NEW ♦ 
♦PHASE ♦E*^ 
***************** 



♦ADO 16 TO LAST 

♦ CTRL DICT » 

♦ ADDR ♦ 
***************** 



*****Q2********** 

♦ SET UP LOC ♦ 

♦ PHSNO WITH ♦ 

♦ THE PHASE ♦ 
♦NUMBER FOR THIS* 
♦PHASE *G^* 
***************** 



♦ E4 
THIS READ INITIALIZES FOR 
THE DEROAD SUBROUTINE 
USED DURING TEXT CARD 
PROCESSING. 



♦GA 
THE SAME PHASE NUMBER lb 
THE SAME VALUE AS THE 
CONTROL DICTIONARY NUMBER. 



******H1^^^^^^^^*** 

♦ SVC 1 ♦ 

FETCH NEXT 

♦ PHASE ♦ 

************* 



****Jl********* 

♦ SLNKEDT8 ♦ 

♦ CHART SH ♦ 

♦ * 
*************** 



*****ii2*********' 

♦ PUT THE 

♦ PHASE NAME 

♦ INTO THE 

♦ CONTROL 

♦ DICTIONARY 
****************! 



****J3********* 

♦ RDNEXT ♦ 

♦ CHART QP ♦ 

♦ ♦ 
*************** 
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Chart SG. Include Post Processing $LNKEDT6; Refer to 
Linkage Editor, Chart 35 



*A4 THE DISK ADDRESS OF THE 
FIRST TEXT RECORD OF THIS 
MODULE IN THE RELOCATABLE 
LIBRARY IS IN THE FORM CHHR. 
SEE THE LABEL LIST ENTRY 
FOR PERIOA FOR FURTHER 
EXPLANATION. 



***** 
*SA ♦ 
* Bl* 



***** 

♦ SA ♦ 

♦ Dl* 



INCLPR X 

m****Bl********** 

* PUT MODULE ♦ 

* NAME INTO A ♦ 

* REG AND MOVE * 

* THE CD IMAGE ♦ 

* TO INCSAV ♦ 
***************** 



ALKFND 
YES .♦ 



.* RELOC 
LIBRARY 
*. ASSIGNED 



**** 

* * 

* 3 ♦ 

* * 
**** 



*4i***01 ********** 

* GET STARTING * 

* AOOR OF RELOC * 

* DIRECTORY AND * 

* SET UP CCW * 

* FOR READ OP * 
***************** 



*****Q2********* 

* POINT ro 

* THE NEXT 

* DIRECTORY 

* ENTRY 



******* 



***** 



INCRED X 

*****^l********** 

* SET UP SEARCH * 

* INFO AND CCB * 

* FOR READ OF * 
*RELOC DIRECTORY* 

* * 
***************** 



*****fl********** 
*OISKIO QM* 
*-*-*-*-*-*~*-*~* 

* READ BLK OF * 

* RELOC * 

* DIRECTORY ♦ 
***************** 



* IS 

CTRL CARD 
*AN INCLUDE. 



*****Q-^********** 

* MOVE AUTOLINK * 

* AND MODULE * 

* NAME TO MAP * 

* PRINT AREA * 

* * 
***************** 



IDENTIFY AS * 

LIS! ITEM AND * 

PRINT IF MAP ♦ 

**************** 



**** 

* * 

* 3 * 

* * 
♦ ♦♦» 



.*IS THE *. 

.*CARD BEING ■■ 
*. PROCESSED 
*AN INCLUDE. 



.♦. 


INCFND .*. 


E2 ♦. 


E3 *. 


.* ALL *. 


.» 


.* DIRECTORY ♦. NO 


.* NEST 


ENTRIES IN BLK.*.... 


*. LIST TOO 


*. TESTED .♦ 


*. LONG 



*****F2********** 
*AD1DSK QK* 
*-♦-♦-»-♦-*-♦-♦-* 

* UPDATE TO * 

* NEXT BLOCK * 
« * 
***************** 



INCLOP X 

*****Ql********** 

*SCAN DIRECTORY * 

* FOR MODULE * 

* NAME THAT * 

* MATCHES CARD * 
*IMAGE NAME FLD * 
♦♦*♦♦♦♦**♦♦**♦♦♦* 



*h2 
THIS CREATES A LAST 
IN-FIRST OUT TYPE OF 
LIST DESIGNED TO KEEP 
TRACK OF INCLUDE 
LEVELS. THIS IS ALbO 
CALLED A PUSH-DOWN 

. LIST. REFER TO PERIDA 

. IN LABEL LIST. 



INCERR X 

*****Q/^********** 

* PUT AODR OF * 

* SAVE AREA * 

* INCSAVf INTO * 

* PAkAMETER * 

* PASSING REG * 
***************** 



****0^********* 

* ALKNPR * 
» CHART QQ * 

♦ ♦ 
*************** 



*****^^********i 

* SKIP TO END 

* OF MODULE 
.X* BY ADJUSTING 

* ONSOOO 
* 
***************i 



*****f ^********** 

* DISPLACE * 

* LIST ENTRIES * 

* BY A FACTOR * 

* UF FIVE * 

* *H2 * 
***************** 



.* FINISHED * 
.PUSHING DOWN 
*. THE .* 
*.LIST .* 



*****^^********** 
» SET UP DISK * 

* ADDR AND TYPE * 

* OF INCLUDE * 
*FLOS OF PERIDA * 
*AND ONSOOO ♦A^ * 
***************** 



.* ERROR ». NO 
*. ON NAMED .*.., 
*SUBMO0ULAR.* 



*****Qi^********** 

* CLEAR THE * 

* NAME LIST, * 

* f^MELST, AND * 

* RESET SBMOST * 

* ♦ 
***************** 



SEND ERROR 

MSG * 
21311 

************* 



INITIALIZE * 

ERROR MSG * 

WITH 31 » 

* 

**************** 



*****j^******* 

* SET SWITCH * 

* RELBSW IN * 

* READ INPUT 

* RTN, TO * 

* BRANCH * 
************** 



****J4********* 

* RDNEXT ♦ 

* CHART QP * 

* * 
*************** 



Kl *. 






*LOGICAL*. 






END OF 


*, 


YES 


DIRECTORY 




*.... 


FOUND . 


* 




*. .* 






♦. .* 




X 


*N0 




**** 

* 






* 3 


X 




* 


♦ ♦♦♦ 




**** 


* * 






* 1 * 






* * 






♦ ♦♦* 







***«K3********* 

* RDNEXT * 

* CHART QP * 

* * 
*************** 
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Chart SH. Print Map $L1SIKEDT8 (Part 1 of 4); Refer to 
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«A4 
THE LENGTH OF THE COMMON 
CONTROL DICTIONARY ENTRY 
IS THE LONGEST LENGTH FOR 
COMMONS OF THE SAME NAME. 



*LOAD REGS WITH 

♦ START ADDR OF 
» CTRL DICT AND 

* ROOT iMO. , GET 
« CURRENT DATE 



•SPACEI QJ* 
•SPACE ONE LINE * 



READ PHASE 
INFORMATION 
INTO PHEADR 



» GET THE ESID * 
•NUMBER OF RELOC* 
» FACTOR * 



•♦♦»C1*»«»**« 

MODIFY PRINT* 

SUBROUTINE 

TO PRINT A 

HEADING LINE 



•««»C2**»«***«*« 




03 •. 


«»»*»C4* 




C5 *. 


PRINT QJ* 


NO 


.♦ FIRST ». 


•LTCDNO 


QE* 




"print COMMON*"* 
LINE • 


-BR- 


* TIME *. 

THROUGH MAP .• 
••PROCESSOR.* 


♦ GET- 

♦ FACTOR 


»-»-*-*-» 


YES .• CTRL •. 


* * * 


OF THE • 


». LD/LR .• 








*SD POINTED TO. * 


*. . * 




X 


*. .» 












• YES 






• NO 




• SJ • 


.-NOP- 










• BI» 












PHADMD 


X 






X. 








MN X 










X 


«#»»D2»»» ♦»•»*»» 




D3 ♦. 






«««*«05*««*^«^*^ 


SET LENGTH OF » 










• CALC LOAD 


CCMMON CTRL » 


NO 


•OVERRIDING *. 






• ORIGIN AND 


DICT ENTRY » 




TRANSFER .* 






*SAVE THE RESULT 


EQUAL TO ZERO • 




•. ADDRESS .* 






* IN LOCATION 




. 


*. •E4 .• 






* TRFRAD 



El •. 

.♦END OF *. 
* CONTROL 
DICTIONARY 



COMCHK 

*»**«F1********^^ 
« POINT TO THE • 
•NEXT CTRL DICT • 
•ENTRY AND ADD !• 
» TO THE CTRL • 
• DICT NUMBER • 



THIS OVERRIDING 
TRANSFER ADDRESS 
IF FOUND, IS FROM 
AN ENTRY CARD. 



• SEARCH CTRL * 
♦DICT FOR LBL OF* 
« TRANSFER ADDR * 



.* CONTROL 
.DICT ENTRY 
♦. COMMON 



««*»*H1*»***«**»^ 

• CALC THE END • 

• OF COMMON * 
*ADDRESS FOR THE* 

• CTRL DICT • 

• COMMON •A4 • 



•PUT ADDRESS ON 
• A DOUBLEWORD 
» BOUNDARY 



♦CONVERT LABEL, 

♦ LNG, AND LOAD 

♦ ADDR TO HEX 



**«««P 2* *••****** 
*CALC TOTAL LNG * 

♦ OF COMMON AND ♦ 

♦ SAVE IN * 
♦LOCATION COMNRF* 

♦ ♦JS ♦ 



*»***G2^*^ •*»••* 
» SET UP FOR A 
• CTRL DICT 
•SCAN TO SEARCH 
» FOR PHASE 



***H2**»**»* 
SET SW 
MPLDSW TO 
ENABLING 
LD/LR MAP 
PROCESSING 



♦♦••J2^^«^^«**» 

SAVE THE CTRL 

DICT ADDR AND 

CTRL DICT 

NUMBER OF 

THIS PHASE 



«»»*K2******«* 

SET UP TO 

READ 28 BYTE 

PHASE HDRS 

FROM SYSTEM 

WORK AREA 



NOTRFR 

**«»*E5***^«**** 

* MOVE THE 

* RELOCATED 

* TRANSFER ADDR 

* TO LOCATION 
» OVRXFR 



♦ F5* 



♦ TURN ON SW 
X^ -DPNTSW- 

♦ HEX 80 



SET SWITCH 

ADMDSW TO 

SHOW TR 

ADDRESS 

ACCEPTED 



.♦ LBL ♦. 

.*EQ ER, CM, ♦. YES 

♦PH, UNASSIGNED 

♦, LD/LR .♦ 



LABEL 
IN FIRST 
. PHASE 



«• «««K 3* • ♦♦•♦♦♦♦' 
•SAVE ASSEMBLED 
» ORIGIN OF THE 

* LEGITIMATE 

* CTRL DICT 

* ENTRY 



YFS 


.* 


MAP 


. ..« 


•*. 


OPTION 
*. . 






«. .* 






*N0 








Bl* 




. 






X 






*SK ♦ 

* B5^ 

« « 

FCHRLD 



THE LENGTH AT THIS POINT 
IS THE CUMULATIVE LENGTH 
OF THE INDIVIDUALLY NAMED 
COMMONS. LJNKAGE EDITOR 
CAN EFFECTIVELY STACK 
MANY COMMONS IF THEY 
HAVE UNIQUE NAMES. 



♦•♦♦«K4* ♦***♦***♦ 
♦SRPCOD QF^ 

♦"continue THE ♦ 

♦ SCAN OF THE ♦ 

♦ CTRL DICT ♦ 
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♦A3 
THE FOLLOWING FIELDS ARE CONVERTED TO HEXADECIMAL 

1. TRANSFER ADDRESS-UPDATED BY THE LNG OF COMMONS. 

2. PHASE ORIGIN LOAD ADDRESS-MAPPED AS LOCORE. 

3. END OF PHASE LOAD ADDRESS-MAPPED AS HICORE. 

4. CORE IMAGE LIBRARY DISK ADDRESS IN THE 
FORM CHR. C IS CONVERTED BY ENTERING THE 
CNVBIN SUBROUTINE AT LLCATION CNVLOP. 

H AND R ARE CONVERTED BY ADDING A 
CONVERSION FACTOR TO THE BINARY VALUE. 



PHADMO X 

♦ DISPLACE LOAD ♦ 

* ADDR OF THIS » 
♦PHASE AND NEXT * 

♦ PHASE BY LNG ♦ 

* OF COMMONS * 



I ♦ 



CI *. 
.♦ DOES ♦. 
NO .*THIS PHASE 
...♦.OVERLAP ROOT 
♦. PHASE 
♦- .♦ 
♦ . .♦ 
♦YES 



.♦ 



♦ PUT OVEROOT ♦ 

♦ MESSAGE INTO ♦ 

♦ MAP PRINT ♦ 

♦ AREA ♦ 

♦ * 



♦ SET SW, ♦ 

♦ OVRLSH, TO 

♦ PRINT ROOT 

♦ OVERLAID 

♦ * 



♦CNVBIN SL^ 
♦-*-*-♦-♦-♦-♦-»-♦ 

♦ CONVERT MAP ♦ 

♦ INFO TO HEX ♦ 

♦ *A3 * 



♦ PUT CONVERTED ♦ 

♦ FIELDS ♦ 

♦ INTO ♦ 

♦ MAP PRINT ♦ 

♦ AREA ♦ 



MAPCST X 

**4i:tc«E2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP TO ♦ 

♦ SCAN CTRL ♦ 

♦ DICTIONARY ♦ 

♦ FOR AN SD ♦ 

♦ OR PC ♦ 

I ♦♦♦♦ 

♦ ♦ 
.X.^ 3 » 
X. ♦ * 

X ♦♦♦♦ 



♦ D3 
THE CONTROL DICTIONARY 
NUMBERS OF THE CSECT 
BEING PROCESSED AND 
THE CSECT POINTED TO BY 
THE LD/LR ARE COMPARED. 
IF AN EQUAL CONDITION IS 
FOUNDi THE LD/LR BELONGS 



ruuNUt inc lu/lk 
TO THE CSECT BEI 
PROCESSED, 



NG 



**«**G1 ♦♦♦♦♦♦♦♦♦♦ 

* * 

♦ PUT ROOT ♦ 

♦ MESSAGE INTO ♦ 
♦MAP PRINT AREA ♦ 

* * 



♦ PUT THE PHASE ♦ 
♦LIMITS FOR THIS^ 

♦ PHASE INTO ♦ 

♦ LOC LOROOT ♦ 

♦ AND HIROOT ♦ 



♦ PUT PHASE ♦ 

♦ NAME INTO ♦ 
♦MAP PRINT AREA ♦ 

♦ * 



♦ ADO LNG OF ♦ 

♦ TOTAL COMMONS ♦ 

♦ TO TRANSFER ♦ 

♦ ADDRESS ♦ 
« * 



.♦ END ♦. 

OF ♦. YES 
CTRL DICT ...... 



♦ POINT TO ♦ 

♦ NEXT CTRL ♦ 

♦ DICTIONARY ♦ 

♦ ENTRY ♦ 



MAPHAS X 

♦ GET CTRL ♦ 

♦ DICT NUMBER ♦ 

♦ AND CTRL DICT ♦ 

♦ ADDR OF THIS ♦ 

♦ PHASE ♦ 



4<4c4<*4iC4*^^^^^^^^^ 

♦SAVE CTRL DICT ♦ 
♦SCAN INFO, AND ♦ 

♦ ADD LNG OF ♦ 

♦ COMMONS TO ♦ 

♦ RELOC FACTOR ♦ 



♦ CONVERT CSECT ♦ 
♦INFO TO HEX AND^ 
♦MOVE TO MAP LOC^ 



♦SPACEl CJ^ 

4'-»-4>-4'-4'-*-*-4<-* 

♦ SPACE ONE ♦ 

♦ LINE ♦ 

♦ ♦ 
41 4<*4< 41*441**41 4< 41 41 4>*4> 



*-*-♦-*-♦-♦-♦-*-* 

♦ PRINT PHASE ♦ 

♦ AND CSECT ♦ 

♦ INFORMATION ♦ 

******:|c********** 



MAPLDR X 

*****Q^********* 

♦ SET UP CTRL 

♦ DICT END ADDR 



********* 



LDRGO X 

*****C5********** 
PRINT TO * 
NEXT CTRL » 
DICTIONARY ♦ 
ENTRY * 

<*********** ***:f 



D5 ♦. 
.♦ CTRL ♦. 

.♦DICT ENTRY *. 
. EQ LD/LR 



LDRT 
NO 



**** 

* 
5 ♦ 



SD .♦. 

E5 ♦. 

.♦ LD/LR ». 

♦ BELONG TQ ♦. 

CSECT BEING .* 
♦. PROCESSED. ♦ 
♦. ♦OS .* 
♦ . .♦ 
♦ YES 



*****P5********** 

♦ MOVE CHARS ♦ 

♦ -ENTRY- AND * 

♦ THE LBL FLD ♦ 

♦ TO PRINJT AREA ♦ 

♦ » 
***************** 



*****G5** ******** 
♦CNVBIN bL^ 
*-*-*-*-♦-*-♦-*-* 

♦ CONVERT LOAD ♦ 

♦ ADDR TO HEX, ♦ 

♦ MOVE TO PRI.'JT ♦ 
***************** 



**»* 

♦ ♦ . 

♦ 5 ♦... 



*****J2**4e***4i*** 
♦XTPHNO QL^ 
*-*-*-*-*-*-*-*-* 

♦ GET PHASE NO ♦ 

♦ OF CTRL DICT ♦ 

♦ CSECT ♦ 
***************** 



.♦ THIS ♦. 
PHASE EQ 
CTRL DICT 

. PHASE . 



♦ END ♦ 






OF 


*, 


YES 


CTRL DICT 


♦ ' 


♦ .... 


♦. .♦ 






♦ . .♦ 




X 


♦NO 




*♦♦♦♦ 

♦ SK ♦ 

♦ Bl^ 
* * 



.♦ END ♦. 

OF 
CTRL DICT 



**** 

* * 

* 4 ♦ 

* * 
*♦♦♦ 



*****j3********** 

♦ POINT TO NEXT ♦ 

♦ CTRL DICT ♦ 

♦ ENTRY AND ♦ 

♦ ADD 1 TO CTRL ♦ 

♦ DICT NUMBER ♦ 
*♦♦***♦♦♦*♦*♦**** 



*****J4********** 

♦ ♦ 

♦ RESTORE CTRL ♦ 

♦ OICT SCAN ♦ 

♦ INFORMATION ♦ 

♦ ♦ 
***************** 



*****J5********** 

♦ MOVE AN ♦ 
♦ASTERISK TO THE^ 

♦ MAP PRINT FLD ♦ 
♦TO SHOW UNREF- ♦ 
♦ERENCED SYMBOL » 
***************** 



K3 ♦. 


* 




K4 ♦. 


.♦ CTRL ♦. 






♦ ♦. 


DICT ♦. 


YES . 


*' 


PROCESS ♦. 


ENTRY EQUAL .♦ 


...♦. 




LD/LR 


, PHASE .♦ 




♦ . 


.♦ 


♦ . .♦ 






♦ . .♦ 


♦. .♦ 


X 




♦ . .♦ 


♦YES 


**** 
♦ ♦ 




♦NO 


'. PHSTOR 


♦ 3 ♦ 




I SCNCMN 


X 


* ♦ 




X 


***** 


**** 




♦*♦♦♦ 


♦ SH ♦ 






♦SH ♦ 


♦ J2* 






♦ £!♦ 



*****K54>***^4>^^^* 
♦PRINT QJ^ 
*_*-*_*-♦-*-*-*-♦ 

♦ PRINT ENTRY ♦ 

♦ LINE ON MAP ♦ 
» ♦ 
***************** 
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***** 

•SJ * 
* H3* 



***** 
*SH » 
* G5* 



***»*B34i*«**4>**** 
*PRINT QJ* 
*-*-*-*-*-*-*-*-♦ 
♦PRINT POSSIBLE * 

♦ INVALID ENTRY * 

* POINT OUP MSG * 
***************** 

**** I 

* * . 

♦ 2 *... 



FCHRLO ^ X 

*****(i5********** 

♦ SET CNT * 

♦ OF PRINTED » 

♦ LINES TO * 

♦ 54 TO PREVENT * 

♦ OVERFLOW ♦ 
***************** 



*.CTRL DICT.* 



OVRLSH .*. 

Dl *. 
.* HAS * 
BR .* ROOT 
...*. BEEN OVER- 
*. LAID 



* POINT TO * 
.X* NEXT CONTROL * 

* DICTIONARY * 

* ENTRY * 
***************** 



02 ». 
.* IS *. 

*^CTRL DICT * 
ENTRY EQ TO 



. 


**** 
EXTNSW .*. 

.." •• 

NO .* FIRST 
....*. ER FOUND 
, ♦• 

• *. . 
*. .* 


*****£l********** 

* AREA * 
***************** 



*****PI********** 
*SPACEI QJ* 
*-*-*-*-*-*-*-*-* 

* SPACE ONE ♦ 

* LINE * 

* * 
***************** 



*4i4t**Gl ********** 
*PRINT QJ* 
*>*-*-*-*->*■>*-*-* 

* PRINT ROOT * 

* STRUCTURE * 

* OVERLAID MSG * 
***************** 



....X. 

X 

.*. 

HI *. 
.* ANY *. 
DUPLICATE *. N 

LABELS .*. 
. FOUND .* 



**««*J1*****«**«* 



*,**************** 



**«**K1********** 
*SPACEl QJ* 
t-*-*-*'*-*-*-*-* 

* SPACE ONE * 

* LINE * 
« * 
***************** 



****4>F2********** 
*SPACE1 QJ* 
*-*-*-*-*-*-*-*-* 

* SPACE ONE ♦ 

* LINE * 

* * 
***************** 



«»4>**G2********** 

* MOVE UNREF- * 
*ERENCEO SYMBOL * 

* MSG TO MAP * 

* PRINT AREA * 
***************** 



*««**H2********** 

* MOVE CHARS * 

* EXTRN AND * 

* EXTRN LBL * 

* TO MAP PRINT * 

* AREA * 
***************** 



•*««4>J2********** 
♦PRINT QJ* 
*-*-*•>*>*-*-*-*-* 

♦ PRINT ♦ ♦ 

♦ UNREFERENCED ♦ 

♦ SYMBOLS MSG ♦ 
***************** 



*****t^2*****^* 

* ♦ 

♦ RESET SW 

♦ EXTNSM TO 

• BRANCH 

* * 



ERROR 
ON ENTRY 
. LABEL . 
♦. .* 



*****Q3********** 

* * 

* PUT MSG * 

* INTO MAP * 

* PRINT AREA * 

* * 
***************** 





C5 ♦. 




.* ANY ♦ 


NO .* 


ERRORS 


...*. 


IN THIS 


» 


RU-^ 




*. .» 


X 


*. .* 


*♦•*♦ 


*YES 


*SL * 




* B2* 




♦ • 




* 




SETJCS 




ERR085 




*** 


**QS****** 


INITIALIZE 




ERROR MSG 




WITH 85 



***************** 



*****^'i********** 




E5 *. 


*SPACE1 QJ* 




.♦ ERRUR ♦ 


*-*-*-♦-*-♦-♦-*-* 


* ABTERR * 


YES .* IN LNKEDT 


* SPACE ONE * 


* CHART QM *X., 


». OR $ 


♦ LINE * 


* * 


*. PHASE 



***************** 



*****f2********** 
♦PRINT QJ* 
*-*-*-*-*-*-*-*-♦ 

* PRINT INVALID * 

* TR LBL ON END * 

* OR ENTRY MSG * 
***************** 



X. 

X 
UNRSPC .*. 

G3 ♦. 

.♦ ANY ♦ 

♦ ZERO LNG 

CONTROL 

♦.SECTIONS 



*************** 



****f:^********* 

♦ SVC 6 ♦ 

♦ CANCEL ♦ 

♦ * 
*********>****** 



F5 ♦. 

♦ IS 

OPTION 

CANCEL 

ON 



NO 



••** 

* * 



4i****H3********** 

* * 

* PUT MSG INTO * 

* MAP PRINT ♦ 

* AREA ♦ 

* ♦ 
***************** 



*****J3***^****** 
*SPACEl QJ* 
*-*-*-*-*-*-*-*-* 

♦ SPACE ONE * 

♦ LINE * 

♦ * 
***************** 



*****K3********** 
♦PRINT QJ^ 
♦-♦-♦>♦>♦-*-*-*-* 

* PRINT ZERO * 

* LNG CTRL * 

* SECT MSG * 
***************** 



..X. 

X 

**** 



EXELWR X 

******Q^**********t. 

SVC 

♦ WRITE A « 

LINE TO 

♦ SHOW * 

ERROR 



****H5***^^*^^* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



***** 
*SL * 
♦ B2^ 
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»«*«A4***«* 
» CNVBIN 



SETJCS X 

*««**B2******* 

♦ SVC 13 * 

♦ SET JOB CTRL * 

♦ FLAG TO SHOW 

♦ GOOD LINK * 

♦ EDIT OUTPUT* 



CLEAR 
ERROR REG- 
ISTER, RB 



SVC 1 

FETCH 

SLNKEDTA 



*«C3«**** 
CNVLOP 
*E3 



♦ LOAD A REG 
» WITH 6, THE 

♦ COUNT OF 

♦ HEX OUTPUT 

♦ CHARACTERS 


** 


•»**«*B5 *****«*•*• 
* AREA POINTER • 


X 

«*«*«C4******** 

• SHIFT A 

* BYTE FROM 

• INPUT REG TO 

* ADJACENT REG 


** 


X 

• *• 

C5 *. 

NO .*"* HEX ***. 
....*. CWA« CNT .* 

*. EQ ZERO .* 
• *• ■ * 

*. .* 



ZERO 
ADJACENT 
REGISTER 



»*»*l>5 ♦•««»*»** 
• RET TO LNK * 
» REG AODR * 



♦ E3 
ENTRY POINT 
TO CONVERSION 
SUBROUTINE 
FROM MAP 
PHASE WHEN 
THE CYLINDER 
VALUE OF A 
DISK ADDRESS 
IS TO BE 
CONVERTED. 



•»*«h4******** 

SHIFT A 

HALF BYTE 

FROM INPUT 

REG TO 

ADJACENT REG 



X 

»«F4*«*»*» 
SUBTRACT 

9 FROM 
ADJACENT 
REGISTER 



YES •* RESULT 
...*. OF CALC 
♦.POSITIVE 



•****H4****** 



ADD 57 » 

TO ADJACENT * 

REGISTER * 

* 



ADD 192 TO 
ADJACENT 
REGISTER 



«***•*••** 



««««*K4*** ****** 

♦ STORE HEX 

♦ CHAR IN LOC 

* POINTED TO BY 

* SPECIFIED R€G 



X 

•••• 
• • 
» 1 • 
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IJBRLD 



END 

OF CARD 

IMAGE 



.» HAS ». 

» AN ABORT 

ERROR 
». OCCURRED . 



RESTORE 

DISK ADDRESS 

OF LAST 

BLOCK 



*C2 
BRANCH ON HIGH TO 
ROTSIC INSTEAD 
OF TO LOCATION 
ERROR. 



« STORE NEWLY ♦ 
♦CALCULATED BYTE* 

• COUNT IN THE * 

* INPUT AREA • 



POINT TO 

NEXT RLD 

RECORD 



»«*»B^*«* »**»*» 

GET COMPLETE 

PHASE NUMBER 

THIS C SECT 

BELONGS TO IN 

CD IMAGE 



« IS THE P 

POINTER IN 
»THIS PHASE. 



MODIFY SUB-* 
RTN AT LOC 

DERDAD TO TR 
CTRL TO LOC 

ROTSID *C2* 



THIS PROGRAM SWITCH 
IS ALWAYS SET TO NOP 
ON THE FIRST RLD 
RECORD. 



.» R/P *. 

.« POINTER *. BR 
. PROCESSING .»... 
•.NECESSARY.* 



STORE THE 
PHASE NUMBER 
OF P POINTER 
IN LOC PHSNO 



*RESET SW PREPHS* 
* AND GET NEXT ♦ 
»ADDR ON SYSOOl » 



««E3«****»* 
RESET SW 
RLDSWl TO 
BRANCH- 
PROCESS 
CONSTANT 



GET RELOC 

FACTOR FOR 

PHASE 



REPOSITION 

SYSOOl TO 

START OF FILE 



RLDRAG 

»»»»«G1* 
«RDS001 



♦«»»F3*»*»*** 
SET SW * 
RLDSW3 IN 
CONSTANT PRO- 
CESSING SECT 
TO BRANCH • 



.* POINTER ♦. 

.EQ MINUS CTRL. 

». DICT NO .♦ 



«*««F4***«***«« 

SET UP TO 

READ THE 

28 BYTE PHASE 

HDR 



SET UP REG AS 

POINTER TO 

INPUT AREA 

PLUS 12 



»»»J1*»#»»»« 

NOP SW 

RLDSWl IN 

THIS RTN- 

POINTER 

PROCESSING 



« LOAD REG WITH * 
•CNT OF BYTES TO* 
• BE PROCESSED * 
•AND SUBTRACT 4 * 



GET RELOC 

FACTOR FOR 

P POINTER 



****K3*»»»*** 

SAVE RELOC 

FACTOR IN 

LOCATION 

RFOFP 
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.X. 



SET SW 
RLDSW2 TO 
BRANCH- 
INITIAL 
CONDITION 



RLCTER X 

•»*»«B2»»««»«««» 

• ACD ONE TO 
» THE CNT OF 
» UNRESOLVED 

• ADCDNS KEPT 

• IN LCC UNRESD 



RNXTRN 
YES 



UNRESOLVED 



RESET SW ♦ 
RLDSW2 TO • 
NOP AND CLEAR 
ER ENTRY SW ♦ 




* GET RELOC 
•FACTOR OF CTRL 

• DICT ENTRY 



«»•« p 1 ««««•• -IK » » 

SAVE THE 

ASSEMBLED 

ORIGIN OF THE 

CTRL DICT 

ENTRY 



* CTRL 

DICT ENTRY 
».SD OR PC . 



«««C2««««««» 
SET SW 
RLDSW3 TO 
BRANCH- 
BYPASS 
PROCESSING 



•SM * 
• Kl» 

RLDRET 



»E2 
IF THE R POINTER WAS 
AN ER IT IS NECESSARY 
TO PROVIDE AN ASSEM- 
BLED ORIGIN FOR USE 
IN CALCULATING THE 
LOAD ADDRESS. THE 
ASSEMBLED ORIGIN IS 
THAT ADDRESS OF THE 
SD, PC, CR CM THAT 
DEFINES THE ER. SWITCH 
RLDSW2 IS THE ROUTING 
SWITCH THAT DETER- 
MINES IF AN ASSEMBLED 
ORIGIN IS NEEDED. 



♦FIND SD/PC THE 

♦ RESOLVED LR 

♦ BELONGS TO 



RLDSW2 


.♦. 




03 •. 




* WAS 




THE R 




POINTER 


«. 


AN ER 



• ADD ASSEMBLED 
•ORIGIN OF CTRL 

• DICT ENTRY TO 

• RELOC FACTOR- 

• EQ LOAD ADDR- 



ADD THE 

LENGTH OF THE 

COMMON TO THE 

CALCD 

LOAD ADDR 



»«*»G3»«»*«»»* 
STORE EITHER 
LOAD ADDR OR 
RELOC FACTOR 
IN LOC RFOFR 
*E4 



kE4 
IF THE R POINTER WAS AN 
ER, THE CONTENT OF RFOFR 
IS THE SUM OF THE 
ASSEMBLED ORIGIN AND THE 
RELOCATION FACTOR. IF 
THE R POINTER WAS A NON 
ER, ONLY THE VALUE OF THE 
RELOCATION FACTOR IS STORED 
IN LOCATION RFOFR. 



CTRL DICT 

ENTRY A 

. COMMON . 



Jl •. 
.♦ IS ♦. 

CTRL DICT 

ENTRY AN 

ER 
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Bl ». 
.,» ARE ♦ 

R AND P 
POINTERS 

NOT 
•. EQ .* 

**»YES 



•*»C1***»»»* 
SET SW • 
RLDSWl TO 
NOP - ALLOW 

, POINTER 
PROCESSING • 



RLADCN X 

♦DERDAD QT* 
«-«—*-»-♦-»—»-♦—« 

♦ SET UP CORE » 

♦ IMAGE BLK * 

♦ IN WKAREA • 



C3 ♦. 
.» WAS ». 

.« THE ADCON 
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Chart SQ, Pass 2 ABORT and MAP Routines $LNDEDTA; Refer to 
Linkage Editor, Chart 37 
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Chart SU. Determine If Phases to be Cataloged Fit in Core 
Image Directory $LNKEDTC; Refer to Linkage 
Editor, Chart 38 
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Replaced $LNKEDTC; Refer to Linkage Editor, Chart 
38 
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Chart SW. Catalog Phase Entries to Core Image Directory 
$LNKEDTC; Refer to Linkage Editor, Chart 38 
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Chart Tk. Read Control Statements lAAlNT; Refer to 
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Chart TB. Analyze control Statements MAINT; Refer to 
Maintenance, Chart 39 
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£M*1NS X 
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* BACK TO 
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STHNT 
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»TA * 
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CRDBYT 
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** 1$ «. 
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1??: 
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DELET 



.* RENAM ». YES 



G3 ». 
ALLOC *♦. YES 
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CONDL 

**N0 



ERRINV 

«««««ftJ3»»«*«»*««* 
ERRRTN TF 



««***««•«*• 



ADELET 

««**«D4**«**** 

• TURN ON • 

♦ DELET SW, 



ACONDS 

•♦♦♦«E4*»*»**^ 
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• CONDENSE 
...X» SW, BIT 4 II 

• CRDBYT 

• •Jl 



»«*F4«*««*«' 

TURN ON 

RENAME S^i 
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CRDBYT 

• Jl 



AALLOC 

«»««»G4*«****« 

♦ SVC 5 * 

* TURN ON BIT 6» 
...X* IN IITH BYTE » 

• IN SUPVR » 
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#F5 
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♦A4 ON CHART TC. 



•TC • 



FMAICL 

««*««H4«*«**«* 
• TURN OFF • 
ALL PHASE 

IN CORE 
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• F5 • 



.X* 



•«»«J4-* •*•*•»•• 

• SVC 1 
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•«*«J5* •*•••••• 

* SVC 1 • 
« FETCH HAINTCN * 
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Chart. TC. Load Phases MAINT; Refer to Maintenance, Chart 39 



♦A4 

TESBYT SWITCH-INI 

BIT 4t X»Oe» » MA 

BIT 5, X»04« = MA 

BIT 6» X*02* s HA 

BIT 7f X«Ol« = MA 



lALIZEO TO X*60* 
NTCN IN CORE 
NTC2 IN CORE 
NTR2 IN CORE 
NTS2 IN CORE 



.♦OPERATIONS 
*. CONCERNS 
♦. CI LIB . 



♦TB-E4 
TD-H4 
***** 



**** 

* * . 
♦TO ♦... 

* H4* 
**** 

OPERCL X 

* SET ♦ 
*.ANALEN ADDR. ♦ 

♦ CHART PD, TO ♦ 

♦ RETURN TO ♦ 

♦ OPERCL ♦ 



♦ IS ♦ 

MAINTS2 

IN CORE 

♦A4 



.♦ OPERATION 
. CONCERNS 
♦RELOC LIB.. 



MAINTC2 

IN CORE 

*A4 

*. .♦ 



****fl********* 

* SVC 4 ♦ 

* LOAD MAINTC2 ♦ 

* * 



^t***Ql******* 

* RESET BITS ♦ 

♦ 4f 5f 6 AND 7* 

• OF TESBYT ♦ 

• *A4 ♦ 

* * 

^L****t^******** 



♦ TURN ON * 

♦ MAINTC2 IN ♦ 

♦ CORE SW, BIT * 

♦ 5 OF TESBYT * 

♦ ♦A^ ♦ 
************** 



♦TD »... 

» H^* 
**** 
OPERRL X 

*****Q2******* 

* SET ♦ 

* ANALEN AUDRf * 

* CHART PD, TO ♦ 

* RETURN TO ♦ 

* OPERRL ♦ 
************** 



E2 ». 

* IS ♦ 
MAINTS2 
IN CORE 



.♦ OPERATION 


♦ . NO 


♦. CONCERNS 


...... 


*. SS LIB 


♦ 


*. .* 




♦ . .♦ 


X 


♦YES 


***** 


**** , 


»TB ♦ 


* * . 


♦ J3^ 


♦TD ♦... 


* • 


♦ HA* 




♦ ♦♦♦ X 


ERRIN 


OPERSL .♦. 




E3 ♦. 




.♦ IS ♦ 




.♦ MAINTS2 


♦ . YES 


♦. IN CORE 


...... 


♦ . *M 


* . 



BCONDS X 

*****Qit******* 

♦ SET ♦ 

♦ ANALEN ADDR, ♦ 

♦ CHART PC, TO ♦ 

♦ RETURN TO ♦ 

♦ BCONDS ♦ 
************** 



♦ IS^ ♦ 

MAINrS2 

IN CORE 

♦ A4 



**** 
* 
♦ I 



****Q2********* 

♦ SVC 4 ♦ 

♦ LOAD MAINTR2 ♦ 

♦ * 
*************** 



*****^2******* 

♦ RESET BITS ♦ 

♦ 4, 5, 6 AND ?♦ 

♦ OF TESBYT ♦ 

♦ ♦AA ♦ 



****** 



******* 



*****j2******* 

♦ TURN ON ♦ 

♦ MAINTR2 IN 

♦ CORE SW, BIT 

♦ 6 OF TESBYT 

♦ ♦A4 ♦ 
************** 



***4tp3********* 

♦ SVC 4 ♦ 

♦ LOAD MAINTS2 ♦ 



*****(i'^******* 

♦ RESET BITS ♦ 

♦ 4, 5, 6 AND ?♦ 

♦ OF TESBYT 

♦ ♦A4 ♦ 

♦ * 
************** 



*****H3******* 

♦ TURN ON ♦ 

♦ MAINTS2 IN 

♦ CORE SW, BIT 

♦ 7 OF TESBYT 

♦ ♦A4 ♦ 
************** 



HAINTCN 

IN COKE 

*A4 

♦ . .♦ 



****fit********* 

♦ SVC 4 ♦ 

♦ LOAD HAINTCN ♦ 

♦ * 
*************** 



*****Q^******* 

♦ rtESET BITS ♦ 

♦ 4, 5, 6 AND 7* 

♦ OF TESBYT ♦ 

♦ ♦A4 ♦ 

♦ * 
************** 



*****H4^^^^^^^ 

♦ TURN ON ♦ 

♦ HAINTCN IN ♦ 

♦ CORE SW, BIT ♦ 

♦ 4 OF TESBYT ♦ 

♦ ♦A4 ♦ 
************** 



****E5********* 

♦ FINENT ♦ 

♦ MAINTS2 PHASE ♦ 

♦ CHART UJ ♦ 
*************** 



***** 

♦ TD ♦ 

♦ B2^ 
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Chart TD. Branch to Phases MAINT; Refer to Maintenance, 
Chart 39 



SCANFS 

•FRSTCh 



YES .* WAS 

...». MAX LENGTH 
♦.EXCEEDED . 



.* IS «. 

DELET SW 

ON, BIT 6 

*JI 



F2 «. 
.« IS * 

CATAL OR 
CONDENSE 
. SW ON 
«. »J1 .» 



«N0 



•• IS *. 

.• RENAME «. YES 
».SW ON, BIT 5,.» 



» PHASE ENTRY 
.X« *J3 



«»*G3»«*»»*** 

PHASE ENTRY 

PLUS 8 



*F5 

BEFORE LOADING A NEW 
PHASE, WHEN MAINTS2 IS 
IN CORE, THE FINISH 
ROUTINE (MAINTS2+12) 
HAS TO BE EXECUTED, 
WHICH RETURNS TO THE 
ADDRESS SET UP AT 
ANALEN TO LOAD THE 
NEW PHASE. 



BLOPER X 
•»*»»«H2**» 
ERRRTN 



.» ANALEN « 
. RETURN ADDR 
♦. ♦FS .* 



*J3 
PHASE ENTRIES 
MAINTC2 - CHART TJ 
MAINTR2 - CHART TL 
MAINTS2 - CHARTS UA,UB 
MAINTCN - CHART VN 
MAINTCL - CHART VU 



.BRANCH 


TO 


AEND, TA-G4 


.BRANCH 


TO 


OPERCL, TC-Cl 


.BRANCH 


TO 


OPERRL, TC-D2 


.BRANCH 


TO 


OPERSL, TC-E3 


.BRANCH 


TO 


BCONDS, TC-C4 
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Chart TE. Scan Control Statements MAINT; Refer to 
Maintenance, Chart 39 



* * 

* FRSTCH ♦ 

* * 
*************** 



* * 

* GET ENTRY ♦ 
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* OPERAND * 

* * 



* * 

* INITAl ♦ 

* * 
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♦ ♦. 
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CHAR A .«... 
BLANK .» 



* * 

* UPDATE ADOR * 
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***«C44>******** 
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* * 
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COMMA. BLANK 
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♦.SIGN ^ 
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* ADOR POINTERS * 

* TO NEXT CHAR » 
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**«**E5*********' 
SAVE 



***«***«>*******< 



* RETURN T3 ♦ 
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* * 



NO .* MAX *. 
...». LENGTH .♦ 
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♦ • 

♦ RETURN TO ♦ 
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♦♦♦♦H2**^^^^^^^ 

♦ * 

♦ RETURN TO ♦ 

♦ LINK ADDR ♦ 
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Chart TF. Common Error Message Routine MAINT; Refer to 
Maintenance (^ Chart 39 



• ERRRTN • 



IMSG X 

»«**4i*A4*4i«***«***« 
PUT TG 

PRINT HSG 

• ON • 

SYSLST 






SENT IN .*. 



kUO 



* PARAMETERS * 

• * 



Cx.. 



BR .** HSG '♦. 
...♦. SWITCH .♦ 
• • .* 



RETLST X 

• RESET HSG ♦ 



************** 



X 

N0P2 .*. 
C4 



MOOIF 
YES .♦' 



WAS 

RESPONSE 

INVALID 



L6HSG X 

SVC 

♦ PRINT MS6 ♦ 

ON SYSLOG 



************* 



.*. 

♦. INFORMA- ♦ SET HSG » 
MSG *• TION * SW AT 

TYPE .• ,..X* NOPl TO 

.♦ I-TYPE ♦ A BRANCH 
.* ♦ • 

*. .* ************** 

•DECISION 
.D-TYPE 



DMSG X 

* RESET NSG • 

* SW AT • 

* NOPl TO 

* A NOP * 

* • 
************** 



SYSLOG ♦. Y 
. .AME DEVICE .*. 
♦.AS SYSLST.* 



*. SAME DEVIC 



• SET CANCEL ' 
•X* SW AT N0P2 

• TO A BRANCH 

• * 
************** 



****E3********* 

* RETURN TO • 

* LINK ADDR * 

* * 
*************** 



IS *, NO 
SYSLOG .*... 
A 1052 .* 



ANSWER X 

****** ft^*********** 

SVC 

♦ GET OPERATOR ♦ 

RESPONSE 
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SYSLOG 

************* 



G4 •. 

.* *. 
.* RESPONSE *. YES 
*. CANCEL .*.... 



♦ SVC 6 ♦ 

♦ CANCEL JOB » 

♦ * 
*it**^^,*^****^** 



**** 

* * 

♦ I * 



L6CARD .*• 

HI ♦. 
.* IS •. 
.•CTRL STMHT *. NO 
*. TO BE .*... 
•• LOGGED .• 
♦ . •• 
*. .* 
•YES 



^•••••••••* 

__TERMINE • 

LENGTH OF * 

« DATA IN * 

• CTRL STMNT * 

• • 
•••••••••••••*••• 



••••••Kl««**«****** 

SVC 



SYSLOG ♦ 



*•••••••••••• 



• SVC 6 • 

• CANCEL JOB • 

• * 
*************** 



SKIPIT X 

*****J3******* 

• TURN r- - 

SKIP-- 



is- 



l\W 



************** 



* 2 • 

• • 
•••• 



************** 
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Chart TG. Common IOCS I/O Routine MAINT (Part 1 of 2) ; 
Refer to Maintenance, Chart 39 



• PUT OR GET • 

• MACRO ♦ 



• A2 
2 I/O OPERATIONS 
OCCUR ON 1ST PASS 
IF DTF SPECIFIES 
DOUBLE-BUFFERED 
(2 I/O AREAS). 



•«**A3**«*« 
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«««*A5 •••*•*• 
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THE RECORD 
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LOAD REG 15 
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LOGIC MODULE 

FROM DTF 
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»«**D1* ********* 

LOAD REG 14 • 

WITH ADDR * 

OF NEXT USER * 

INSTRUCTION * 
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B3 *. 

EOF 



C3 *. 
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RESTORE 

REGISTERS 
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* 2 I/O 
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IJJSWAP X 
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• BRANCH TO • 
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•*•♦•E3*****»***^ 
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*ADDR IN REG 14 

• TO EOF ADDR 

♦ FROM DTF 
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*»«*«E5 ******** 
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♦ OF PREVIOUS 

♦ I/O AREA 

♦ FROM DTF 



LAPOVR 


• *« 




Gl * 




• 


YES .* 


FIRST 


....*. 


PASS 


* 





*NNNNNNNNNNNNNNNNNNNNNNNNNN 

* • GET IS THE • 

* *ENTRY POINT TO * 

* ♦ LOGIC MODULE * 

* ♦ FOR BOTH * 

* * GET AND PUT * 



*G2 
IN THE OTF THE 1ST PASS 
SW» BIT 3, IS INITIALLY 
OFF. IF DEVICE IS 
OUTPUT, THIS SW IS 
TURNED ON WHEN THE FILE 
IS OPENED. INDICATING 
NOT 1ST PASS. BIT 2 
IS ON FOR 2 I/O AREAS. 



•*F3******* 

BRANCH TO 

EOF ADDR 

REG14 



•«**G5 ******** 

DECREMENT 

ADDR OF NEXT 

I/O AREA BY I 

TO ALLOW FOR 

CTRL CHAR 




*• 



HI *. 

.* 2 I/O *. 

AREAS SPEC 

IN DTF 

♦ G2 



••••J 1* •••*«• 
CHANGE • 
INDICATOR 
IN OTF TO 
INDICATE NOT 
1ST PASS * 



•••••Kl**** 


»•••'! 




•GETIO 


TH 










• DO INPUT 


OR 




•OUTPUT ON 


SPtC- 




•IFIED FILE 


• A2* 
»••••• 



•••««H5 ••*****••* 

* RESTORE • 

* REGISTERS • 

* SAVED ON * 

* ENTRY TO ♦ 

* LOGIC MODULE * 



*J2 

REG 1 IS LOADED WITH 

THE ADDR OF THE DTF. 

TO ISSUE SUBSEQUENT 

SVC 0, REG 1 MUST 

CONTAIN THE ADDR OF 

THE CCB, WHICH IS THE 

FIRST FIELD IN THE DTF. 

REG 1 IS ALSO THE BASE 

REG FOR REFERENCING 

THE DTF FROM THE LOGIC MODULE. 

REG 15 IS LOADED WITH THE RELOCATED 
ADDR OF THE LOGIC MODULE FROM THE DTF. 
REG 15 IS THE BASE REG USED FOR THE 
LOGIC MODULE. 

REG 14 IS LOADED WITH THE ADDRESSES 
OF THE NEXT SEQUENTIAL INSTRUCTION AFTER 
THOSE GENERATED BY THE GET OR PUT MACRO. 
WHEN I/O IS COMPLETE THE LOGIC MODULE 
BRANCHES TO THIS ADDRESS. 



•••••J5«** *••**•• 

* LOAD USER ♦ 

* I/O REG WITH • 

* ADDR OF ♦ 

* PREVIOUS • 

* I/O AREA * 



•**K5********* 
RETURN TO ♦ 
LINK ADDRr ♦ 
REG14 • 



•••• 

• * 

• 1 • 
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Chart TH, Common IOCS I/O Routine MAINT (Part 2 of 2); 
Refer to Maintenance, Chart 39 



♦ 6ETI0 * 



* EXTRACT ♦ 
« COMMAND CODE « 

* FROM THE CCH * 

* IN THE OTF • 
« « 



INITIAL X 

* SCAN TABLE « 
*0F ASA COMMAND • 
♦CODES FOR MATCH* 
«T0 OTF COMMAND « 
*CODE *D2* 



FOUND .*. 

El ♦. 

.« IS ♦. 
.* ASA CMD •. NO 
*. CODE A SKIP .*... 
*. CMD FOR .« 
*. PTR .♦ 



♦D2 
TABLE CONTAINS 
ASA COOES FOR • 
CARRIAGE CTRL 
AND STACKER 
SELECT. 



♦YES 



««««««(i«4t««4i««**« 



«««*4i«Gl ♦♦♦♦♦♦♦♦♦♦♦ 

SVC 

♦SPACE PRINTERt ♦ 

REG 1 POINTS 

♦ TO CCH IN ♦ 

DTF ♦Ga 



♦♦♦♦Hl**^«^^^9« 

♦ SVC 7 ♦ 

♦ WAIT ♦ 
« * 



IJJNOSK .♦. 

B3 *. 
.DOES DTF*. 
.♦ INDICATE ♦. NO 
♦.PUNCH EJECT* .♦... 
♦. 1442 .« 
*. ♦A4 .♦ 
♦ . .♦ 
♦YES 



♦TURN OFF EJECT ♦ 
♦INOR IN DTF AND* 
|»MOVE ADOR OF A ♦ 
♦BLANK PUNCH UK ♦ 
♦ AREA TO CCW ♦ 



«*««**03^^^^^^^^*^^ 

SVC 

♦ PUNCH BLANKS ♦ 

TO REGISTER CD 

AT PCH STATION, 

1442 



4i*4i*E3*^^^^*^^^ 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 



♦A4 
ANSWER IS YES 
WHEN 1ST OPERATION 
ON A 1442 SERIAL 
READER PUNCH IS 
A PUNCH OP 



♦B4 
CCH COMMAND 
CODE IS CARRIAGE 
CTRL OR TEST I/O 
IF DEVICE IS A 
PRINTER. FOR 
OTHER DEVICES 
GET OR PUT IS 
PERFORMED HERE. 



♦62 
CARRIAGE MAY BE 
RESTING WITH THE 
BRUSH MAKING 
CONTACT. HITH THIS 
CONDITION EXISTING 
A SKIP COMMAND 
HOULO NOT MOVE 
THE CARRIAGE. 



**«*:»««4>***4e**4i* 



.X 

IJJMOV X 

**4>*4iG3********** 

♦ MOVE S/360 ♦ 

♦ COMMAND CODE ♦ 

♦ FROM TABLE ♦ 

♦ TO THE CCH ♦ 

♦ ^64 ♦ 



***4t*|-|3********«* 

♦ TURN ON 1ST ♦ 
♦BIT OF COMMAND ♦ 
♦CODE IF DEVICE ♦ 

♦ IS A SERIAL ♦ 

♦ READER-PUNCH ♦ 



•**• 

* • 

* 2 ♦ 

* * 
**** 



*G4 
IF THERE HAS NO MATCH 
IN TABLE THE COMMAND 
CODE IS BLANK. 



« * 

• 2 ♦ 

* * 
**** 



CALL X 

4c«**««iB5«**^^^^^*** 

SVC 

♦ EXCP, REG ♦ 

1 POINTS TO 

* CCB IN DTF ♦ 

♦ B4 



C5 ♦. 

.♦ IS ♦. 

DEVICE ♦. NO 
A PRINTER .*... 
. .« 

♦ . .* 

*. .♦ 
*YES 



**4c*[)5********* 

* SVC 7 ♦ 

* WAIT * 

* * 



^^^♦♦ES^^^******* 
» MOVE PRINT ♦ 

♦ COMMAND CODE * 

♦ TO THE CCW » 

♦ IN DTF * 

♦ * 



SVC 

♦ PRINT LINE. * 

REG 1 POINTS 

* TO CCB ♦ 

IN DTF 



****G5********* 

♦ RETURN TO ♦ 

♦ LINK ADDR ♦ 

♦ CHART TG * 
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Chart TJ. Core Image Library Maintenance MAINTC2; Refer to 
Maintenance, Chart 40 



♦ MAINT C2 ♦ 

♦ PHASE ENTRY ♦ 

♦ PLUS A * 



♦ MAINT C2 ♦ 

♦ PHASE ENTRY ♦ 

♦ PLUS 8 ♦ 

*************** 



******Ql********1f** 

SVC 

♦ READ 1ST * 

RCD OF 

♦ SYS DIR * 



♦ B2 
REFER TO 
NOTE ♦Jl 
ON CHART 



****t^^********* 

* MAINTC2 * 

* PHASE ENTRY ♦ 

* * 
*************** 



***** 

♦ TB ♦ 

♦ J3* 



♦ I » 

* * 
**** 



.♦ OPERAND ♦. YES 
SUFFIX .*.... 
♦. .ALL .* 



******** 



**** 



.* PHASE ♦. 


YES 




*.T0 BE DELETED, 


♦. .. • 




♦. ♦82 .* 






♦ . .♦ 




**** 


♦. .* 


X 


* * 


♦ NO 


♦ *♦♦ 


♦ 2 ♦ 




* * 


* * 


• 


I ' t 


♦ ♦»♦ 




**** 




X 






.♦. 




X 


DI ♦. 




*****Q2********** 


.♦ NEW ♦. 




♦SCNCIN TK^ 


NO .♦ NAME SPEC ♦. 




♦-*-*-♦-♦_♦_♦_♦_♦ 


..♦. IN CTRL . 


* 


♦SCAN CI DIR FOR^ 


♦. STMNT .♦ 




♦COMPARE TO NEW ♦ 


♦ . .♦ 




♦NAME *C3* 


♦ . .♦ 







♦C3 
ERROR CONDITION 
IF NEW NAME IS 
ALREADY IN CI 
DIR. SUBROUTINE 
RETURNS TO ERRPRS. 



.♦ NEW ♦. 

XYES .♦NAME START ♦. 
.♦. WITH AN 



****fl********** 
SCAN CTRL ♦ 
STMNT TO ♦ 
DETERMINE ♦ 
LENGTH OF ♦ 
NEW NAME ♦ 

**************** 



♦ SCAN CI DIR ♦ 

♦ FOR COMPARE ♦ 

♦ TO OLD NAME ♦ 
***************** 



*****f2********** 



***************** 



*****Qi^********** 

♦SCNCID TK^ 
♦_«_♦_♦_♦_«_♦_»_♦ 

♦ SCAN DIR FOR ♦ 

♦ COMPARE TO 8 ♦ 

♦ CHAR OPERAND ♦ 
***************** 



*****Cl^*********: 

♦ MOVE BLANKS 

♦ TO PHASE 

♦ NAME FLD 

♦ IN DIR ENTRY 
* 
**************** 



******Qd:^********* 

SVC 

♦ WRITE 

UPDATED 

♦ CI DIR ♦ 

BLK 

************* 



*****^i^********** 

♦ * 

♦ UPDATE ♦ 

♦ RCD 1 UF ♦ 

♦ SYS DIR ♦ 

♦ ♦ 
***************** 



Gl ♦. 


******Q2******** 


NEW ♦. 


SVC 


NAME ♦. NO 


♦ WRITE 


ENDS PAST ...... 


UPDATED 


COL 71 .♦ 


♦ CI DIR 


. .♦ • 


BLK 


♦ . .♦ X 





******[^l*********** 

ERRRTN TF 

♦-♦-♦-♦-♦-♦-*-*-♦ 

DSPLY 

♦ MSG ♦ 

3M21I 

************* 



****jl********* 

♦ NEWRD ♦ 

♦ MAINT PHASE ♦ 

♦ CHART TA ♦ 
*************** 



ERRPRS 

*****^2********** 
♦NXTOPR TE^ 
»-*-*-♦-♦-♦-♦-♦-♦ 

♦ SKIP NEW NAME ♦ 

♦ IN CTRL STMNT ♦ 

♦ *J3 * 
*******^t********* 



-♦_♦_♦_♦_♦-♦_♦_♦ 

DSPLY 
♦ MSG ♦ 

3M54I 
************* 



****i(2********* 

♦ ENTMAI ♦ 

♦ MAINT PHASE ♦ 

♦ CHART TA ♦ 
*************** 



MREOPN 

*****f/t******* 
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Chart TK. Scan Core Image Directory MAINTC2; Refer to 
Maintenance, Chart 40 
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Chart TL. Initialize for Relocatable Library Maintenance 
MAINTR2; Refer to Maintenance, Chart 41 
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Chart TM. Catalog Relocatable Library MAINTR2 (Part 1 of 
2) ; Refer to Maintenance, Chart 41 
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Chart TN. Catalog Relocatable Library MAINTR2 (Part 2 of 
2) ; Refer to Maintenance, Chart Ul 
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Chart TP. Delete from Relocatable Library MAINTR2 (Part 1 
of 2); Refer to Maintenance, Chart 41 
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Chart TQ, Delete from Relocatable Library MAINTR2 (Part 2 
of 2); Refer to Maintenance, Chart Ul 
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Chart TR. Build ESD Record for Relocatable Library MAINTR2 
(Part 1 of 3); Refer to Maintenance, Chart 41 
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Chart TS. Build ESD Record for Relocatable Library MAINTR2 
(Part 2 of 3); Refer to Maintenance^ Chart 41 
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Chart TT. Build ESD Record for Relocatable Library MAINTR2 
(Part 3 of 3) ; Refer to Maintenance^ Chart 41 
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Chart TU. Buiia RLD Record for Relocatable Library MAINTR2; 
Refer to Maintenance, Chart 41 
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Chart TV. Build TXT Record for Relocatable Library MAINTR2; 
Refer to Maintenance, Chart 41 
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♦ VARIABLE FLD ♦ 

♦ LENGTH TO 136 ♦ 

♦ MINUS CARD ♦ 

♦ BYTE CNT FLD ♦ 



RCTXTW 

**««*«C5^*^*^^*« 
RCWRBK T 

WRITE BLOCK 
♦ IF FULL 



D4 ♦. 

.♦ WILL ♦. 

.THIS TXT FIT^ 

. IN OUTPUT 

*. RCD .♦ 



RCTXTU 

«««««E4^ ♦♦♦♦♦♦♦* 

♦ MOVE PART OF 

♦ TXT TO OUTPUT 

♦ RCD TO FILL 

♦ 136 BYTE VAR 

♦ FLD 



MOVE TEXT 

•FLD TO 

OUTPUT RCD 



READ CARD 

FROM 

SYSIPT 



»»««G2^ ♦♦♦*♦♦♦ 

ELIMINATE 

1ST CHAR IF 

81 CHAR 

TAPE RCD 



WRITE 

BLOCK IF 

FULL 



««*G4^^ ♦*♦♦♦«♦♦ 

UPDATE TXT ♦ 

ORIGIh. FOR ♦ 

NEXT OUTPUT ♦ 

RCD ♦ 



INIT ADDRS 
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OUTPUT RCD 



WRITE 
♦ BLOCK IF 
FULL 



•••«J4««« ••*«»«* 

MOVE • 

REMAINING TXT » 

TO NEXT * 

OUTPUT RCD ♦ 



*****i(,it*«» ****** 

• INIT OUTPUT 
*VAR FLD LENGTH 

* TO 136 MINUS 

• BYTE CNT OF 

♦ REMAINING TXT 
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Chart TW. Rename a Module in Relocatable Library MAINTR2; 
Refer to Maintenance, Chart Ul 
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♦ EXTRACT NEXT 
» OPERAND FROM 
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» INITIALIZE 
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• 
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X 
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SEARCH 

DIRECTORY 

FOR OLD NAME 
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.DIRECTORY. 



» INCR DIR ADDR » 
»T0 NEXT ENTRY, » 
•UPDATE DSK ADDR* 



* ENTERED • 

SEARCH FROM 
*. CATALR .» 



* ENTERED « 

SEARCH FROM 
*. DELET .» 
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REPLACE 
SWITCH 



SEARCH RELOC 

LIBRARY 

DIRECTORY 



RENERO X 

«»«»«H2»««*»«** 
» MOVE OPERAND 

• TO ERROR 

• MESSAGE 



• MORE 

ENTRIES IN 
•. THIS 
•. BLOCK. » 



DISPLAY 

MESSAGE 

3M33I 



♦ SEARCHED 

FOR OLD OR 
*. NEW 
•.NAME .* 



RENERN 

*«***«J4«*«**«**«* 
ERRRTN TF 

DISPLAY 

• MESSAGE » 

3M54I 



RENCST 

«««««H5« •**••*** 

• INSERT NEW 

• NAME IN PLACE 
...X« OF OLD NAME 

• IN DIRECTORY 

• BLOCK 



•**««*J 5 **•««*•«««• 

SVC 

♦ WRITE ♦ 

UPDATED 

* DIRECTORY * 

BLOCK 



«*««K5 •••*•••• 
» ENTMAl 

♦ MAINT PHASE 

* CHART TA 
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Chart TX. Write Block in Relocatable Library MAINTR2; Refer 
to Maintenance, Chart 41 



RCWRbK 



CATSYR 

♦«»«»»C3»» 
ERRftTN 



DSPLY 

MSG 
3M53I 



MOVE 1 TO 1ST 

BYTE OF 

OUTPUT BLK 



•*»E1*»»»»»«» 

MOVE OUTPUT 

RCD TO 1ST 

LOGICAL RCD 

OF BLOCK 



RCWRBN 

••»»«F1«»*»»*««« 

• SUBTRACT 1 

• FROM NO OF 
»BLKS AVAILABLE 

• IN RL 



«««02******< 
TURN ON SW • 
TC ALLOW NO 

NORE CTRL 
CARDS TO BE 

PROCESSED • 



SVC 6, FETCH 

$$BCNCL 
TO CANCEL JOB 



•*««««« 



C4 *. 

.» MORE «. 

* ENTRIES • 

IN THIS BLK 



UPDATl 

« »«««0 4*** *«*•** 

* PICK UP 

* ELEMENT OF 

♦ ADDRESS TO BE 

• UPDATED 



1ST 
LOGICAL 
RECORD 



»**F2*»**»«** 

MOVE 1 TO 

1ST BYTE OF 

OUTPUT BLK 



UPDATE X 

«»«*»E 4* «***«**** 
» INCREMENT • 

• ELEMENT TO BE • 

• UPDATED » 



RCWRBM 

«*«««F 3* *****••• 

• MOVE 2 TO 1ST 

• BYTE OF 

• OUTPUT BLOCK 



READ CARD 

FROM 

SYSIPT 



*«««D5 ******** 

ELIMINATE 

1ST CHAR IF 

81 CHAR TAPE 

RECORD 



****F4 •***•«** 
* RETURN TO 
» LINK ADDRESS 



*«*F5********* 
ENTMAI ♦ 
MAINT PHASE ♦ 
CHART TA * 



••»G1******** 


SVC 


WRITE 322 


BYTE BLK 


IN RELOC 


LIB 



«**«G2********* 

MOVE OUTPUT 

RCD TO 1ST 

LCGICAL RCD 

OF OUTPUT BLK 



.» HAS *. 

END CARD 
BEEN READ 



***G3******** 
MOVE OUTPUT 
RCD TO 2ND 
LOGICAL RCD 
OF OUTPUT 
BLK 



.* HAS *. 

.♦ END CARD 
. BEEN READ 
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Chart UA. Catalog and Delete Entries MAINTS2; Refer to 
Maintenance, Chart 42 



• * 

♦ 1 • 

* « 



♦ NAINTS2 ♦ ♦ 

♦ CATENT ♦ 



AODR IN REG4 * 
* ♦B4 ♦ 



* RESET ALL 

* ERROR 

* SWITCHES 



« * 

• SET RESIDUAL » 

• CNT FOR * 

• OUTBLOCK * 

« * 



RSETSW X 

♦ SET OCSH TO* 

♦ ALL O'S FOR * 

♦ CATALSt RESET 

♦ CHPRSO INPUT * 

♦ SWITCH *E2* 
************** 



*****F1*4<*4>*** 

* SET CTLBYl ♦ 

* BIT 5 ON TO ♦ 

* READ AFTER * 

* BOOK END * 

* * 



• POINT TO NEXT ♦ 
•DIR UPDATE LIST* 

• ENTRY, SET * 
•CATAL CODE FOR * 

• OIR UPDATE * 



HI *. 
.* 1ST *. 
.♦ ENTRY *. NO 
•. TO NAINTS2 .*... 



•****J1********** 
♦INITS UM* 
♦-♦-♦-»-♦-»-♦-♦-♦ 
« READ SYS • 

* DIRECTORY. ♦ 

♦ OPEN SYSIPT ♦ 
***************** 



.*. 

A3 *. 

.* ANY ' 

.* UPDATES 

*. PENDING 



*4>4i4i*B3********** 

* SET DISK AOOR * 
*T0 START OF SS * 
♦LIB, LOAD OUT- * 

* PUT AREA ADDR * 

* TO OUTPUT CCM * 



«4t4i**C3********** 

* DECREMENT THE * 

* DISK ADDR BY * 

* I RCD, RESET * 
*N0. OF DELETED * 

* BOOKS * 
♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦ 



.X.X. 



♦ B4 
THE OPERAND POSITION AND 
LENGTH ARE SUPPLIED BY 
NAINT PHASE 



***** 
♦UB * 
* HI* 



BKOSEl X 

Hif***03********** 
*MGVE BOOK AODR * 

* TO DIR UPDATE * 
» LIST. SAVE * 

* STARTING DISK * 

* ADDR OF BOOK * 



»E2 

BIT ONE OF COMPRESSED 
INPUT SWITCH IS SET 
TO ZERO. 



•***A5********* 
♦MAINTS2 PLUS 4 * 

♦ OELENT ♦ 

♦ * 
••****«***«**** 



DELETS X 

*««*«B5********** 

♦ SAVE OPERAND * 
♦LENGTH IN REG3,* 

* SAVE OPERAND * 

• ADDR IN REG4 * 

♦ »B4 * 
»****•**•**♦***** 



*«**4iC5******* 

* RESET CURR * 

* ERROR * 

* SWITCHES, SET 

* DELETE * 

* SWITCH * 
************** 



*m^i**D^**m******if 

* LOAD POINTER * 
*T0 OIR UPDATE, * 

* SET UPDATE * 

* ENTRY TO ♦ 

* DELETE ♦ 



NMCK X 

4:*«*«E3********** 

♦MVBNMC UM* 
♦-♦-♦-*-♦-♦-♦-♦-* 

* PUT BOOK NAME * 

* IN BOOK * 

* CATALOG FLD * 
^^*iln^**^^*^ii^*m***** 



F3 *. 

.* SUB *. 
* LIB * 

QUALIFIER A 
^ PERIOD .* 



* A ♦ 

♦ * 
»♦»* 



*. 



***** 
*UB ♦ 
♦ A4* 



.» 1ST * 

ENTRY TO 
HAINTS2 



*:tL**^f^********** 

*INITS UM* 
*~*-*-*^*-*-*-*-* 

* READ SYS * 

* DIRECTORY. ♦ 

* OPEN SYSIPT * 



Kl ♦. 

.♦ ANY ♦. 

.♦ ACTIVE ♦. YES 

♦. ENTRIES IN .*.... 

*• SS OIR .* 

♦ . .♦ 



*N0 

X 

**** 

« « 

♦ I ♦ 

* • 
**** 



**** 

• * 

• 2 ♦ 

• • 
**** 



**** 

* * 

* 3 * 

* * 
**** 



*****J^*^^***^^^*** 

* SET CURRENT * 

* SUB LIB NAME * 

* TO DESIRED * 

* SUB LIB * 

* * 
***************** 



**4i«*K3*********< 

* SET DELETE 

* NAME TO 

* DELETE ALL 

* 
****************> 



X 
***** 
*UJ * 
* Al* 



SBLMSG X 

***4i*G4******* 

* TURN ON SW * 

* TO PRINT SUB * 

* LIB QUAL HSG 

* AFTER PROC. ♦ 

* CHART UJ-Jl* 



X 

***** 
*UN * 
* C3* 



*H4 
IF THE OPERAND 15 
NUT ALL, JUST 0N(. 
OPERAND WILL BE 
SERVICED AT A 
TIME. 



OINIRT .*. 

G5 *. 
.* SUB ♦ 
NO .* LIB 
...*. QUALIFIER 
*. PERIOD 



**** 

* * 

* 4 * 

* * 
**** 



H5 *. 
.* IS *. 

* THE *. 

0PERAr4D ALL .* 
*. *H4 .* 



.X. 



«**** 

*UB * 

* A4* 

* * 



HVBCAT 

SLNMC2 .*. 

J5 ♦. 
.* END *. 
YES .*0F SUB LIB *. 

*. LIST BEEN .* 

♦. REACHED .* 



•**«*K4********** 
*OPRERT UN* 
*-*-*-*-*-*-*-*-* 

* ISSUE I OR * 

* ERROR * 

* MESSAGE * 
^^^^************** 



***** 
*UJ * 
* Kl* 



.*. 

K5 *. 

.•SEARCH *. 

.* NAME EQ *. 

♦. NAME OF SUB . 

♦. LIB .* 
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Chart UB. Rename Entry and Book Name Validity Check 
MAINTS2; Refer to Maintenance, Chart 42 



»A5 UA-F3,H5 



MVBCAT 

♦•««»A4» 
*MVBNMC 



SAVE LENGTH 

AND ADDR OF 

RENAMS 

OPERAND 



PUT BOOK NAME 

IN BOOK 

CATALOG FLD 



*«B4»«»*«*** 
LOAD REGS 

-3 TO CHECK 

FOR VALID 

SUB-LIB 



NEW NAME 
**2ND**** 



OLD 

NAME 

1ST 



»*D1««»»*»» 
RESET ALL 

ERROR 
SWITCHES 



D2 «. 

.« SUB « 
» LIB 

QUALIFIER 
*. PERIOD 



GET BOOK NAME 

FRCM OPERAND, 

»F5 



GET BOOK NAME 

FROM OPERAND, 

• F5 



.* INCR ♦. 
•SEARCH, END* 

OF LIB 
•. TABLE .» 



•SEARCH • 

NAME EQ 

SUB LIB 

NAME 



»*««»E4»»**»»»»*» 
» LOAD POINTER * 
» TO DIR UPDATE « 
•LIST, SET CURR ♦ 
•SUB-LIB TO SUB-* 
• LIB WANTED * 



ISSUE I OR D 

ERROR 

MESSAGE 



•SET 1ST OPERND 
* 1 PROCESSED SW.* 
» SET SWITCH TO^ • 
» RENAME » 



*««»«F2^ ♦*»•••• 

• PUT NEW NAME 

• IN DIRECTORY 
» UPDATE LIST 



CLGETB X 


• F5 


«»««*F4«*««*«»«*» 


THE OPERAND IS CHECKED 


♦LASLID UM» 


FOR 1ST CHAR ALPHA AND 


♦-»—»—»—»—»—♦-»—♦ 


THE REST ALPHA OR 


* GET BOOK NAME • 


NUMERIC. OPERAND MUST 


• FROM OPERAND, * 


BE LESS THAN 9 CHAR 


» ♦PS • 


IN LENGTH. 



.« 1ST • 

ENTRY TO 
MAINTS2 



OPREIl 

»*»««»G3* 
ERRRTN 



READ SYS DIR, 

OPEN 

SYSIPT 



^H2 ERROR ROUTINE FOR 

MSG 3M21I IS LOCATED 
IN MAINT PHASE AT 
LABEL OPRERI. 



DSP MSG 

3M21I 

*H2 



««»«H3«««*«**»^ 
* ENTMAI MAINT 
*PHASE CHART TA 



MVBKNl 

»«»««G4» *»*»*»■»■* 
» LOAD POINTER 

* TO DIR UPDATE 
•LIST, PUT BOOK 

* NAME IN DIR 

* UPDATE LIST 



« TM LOCATION * 

• DCSW WITH HEX ♦ 

• CO, ALL ONES- ♦ 
•DELETE, MIXED- * 
•RENAME, 0-CATAL* 



• E3^ 
NMCK 



♦Kl MAINT WILL RETURN TO MAINTS2 
AT RNMENT (RENAME ENTRY) 
AFTER GETTING LENGTH AND 
ADDR OF NEXT OPERAND 
(NEW NAME). 



.* WHAT *. 






DELETE .• OPERATION •. RENAME 




...*. IN PROCESS .♦ 




* *». .** 
X *. .• 






»«»«» *CATAL 






• UJ ♦ 






• Al» 






K3 KNOWING THE BOOK ♦ • 






NAME THE PROG BRANCHES • 






TO THE I/O CONTROL 






ROUTINE TO X 






1. READ IN THE BOOK »»»**K4**»^*»^»*» 


( 


FROM SYSIPT. • GET ADDR OF • 




2. COMPRESS THE CARD • OUTPUT AREA, • 


* ENTMAI MAINT 


IMAGES. • RESET LENGTH • 


♦PHASE CHART TA 


3. CATALOG THE BOOK. » OF LAST CARD » 


♦ •Kl 


« FIELD, ♦K3 • 








.BKWAIT 
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Chart UC. I/O Control MAINTS2 (Part 1 of 2); Refer to 
Maintenance, Chart 42 



WAITBO X 

♦ LOAD REGS 5-7 ♦ 
♦FOR I/O OUTPUT • 

♦ SET OUAADR TO * 

♦ FF NOT END ♦ 

♦ OF BOOK ♦ 



HAIOl X 

* LOAD ADOR OF * 

* THE CURR * 

* OUTPUT AREA * 

* * 

* * 
*^^t^^if *********** 



X.*UE-E2 

. UF-F3,K4 
X UH-K4 
I .*. 
A4 *. 
.« CARD *. 
* COUNT *. NO 
REQUESTED .*... 



* * 

* INCREASE ♦ 

* CARD COUNT ♦ 

* BY ONE ♦ 

* * 

****:t************ 



.» SEQ ♦. 

CHECK 
REQUESTED 



X 
.♦. 


ERRSEQ X 


X 
.♦. 


D2 ♦. 


^^^*Jti^*Q■^i^********** 


D4 ♦. 


.♦TEST ♦. 


ERRRTN TF 


.♦ LAST 


♦ ERRBYt ♦. NO 
CATALOG THIS ...... 


*-♦-*-♦-♦-♦-♦-*-* 


NO .♦ CARD 


DISPLAY 


...♦. READ IN 


♦. BOOK .♦ 


♦ MESSAGE * 


♦ . SEQ 


♦ . .♦ 


3M25D 


♦ . 


♦ . .♦ 




♦ . •♦ 



NOLERR 

tf*****f:\*: 

ERRRTN 

♦_»_♦_♦. 



TF 
-♦-♦-♦-» 



DISPLAY 

♦ MESSAGE ♦ 

3M53I 

^i***m******** 



***** 
♦UJ ♦ 
♦ B5^ 



WRITE BLOCK OF 
♦ BOOK IN * 

SOURCE 
♦ STATEMENT ♦ 

LIBRARY 



.X 

SWBOA X 

^*tlf**Q2********** 

♦ POINT TO ALT ♦ 

♦ CCW LOAD ALT ♦ 

♦ CCB LOAD ADOR ♦ 

♦ OF ALT OUTPUT ♦ 

♦ BUFFER ♦ 
^tf*************** 



****H2********* 
♦SVC 7 WAIT FOR ♦ 

♦ CHAN END ♦ 

♦ ♦ 



***** 
*UB * 
* K4^ 



***************** 



* FIRST ♦ 

TIME 

THROUGH 

♦ E5 



******G4^^^*^^**^^^ 

SVC READ 

♦ FIRST CARD ♦ 

OF BOOK 

♦ INTO ♦ 

BUFFER 

*#«********** 



*****H4^*^^^^^^*' 

♦ MOVE WAIT 

♦ INTO INITBK 

♦ TO OVERLAY 

♦ BRANCH INST. 
* 
***************** 



♦E5 
TWO INSTRUCTIONS ARE 
ASSEMBLED AT LABEL 
INITBK. THE BRANCH IS 
ASSEMBLED LAST SO THAT 
IT WILL BE IN CORE THE 
FIRST TIME THROUGH 
OVERLAYING THIS WITH 
A WAIT INSTRUCTION 
MAKES IT A WAIT 
CONDITION THEREAFTER. 



*****J2*********' 

* INCOAO 

* INCREMENTS 

* THE DISK 

* ADDRESS 
* 

***********•***«! 



****J4***^^^^^^ 
♦SVC 7 WAIT FOR ♦ 

♦ CHAN END ♦ 

* ♦ 
**«****«**•**•* 



X 
***** 
♦UO ♦ 
♦ 82* 
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Chart UD, I/O Control MAINTS2 (Part 2 of 2) ; Refer to 
Maintenance, Chart 42 
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♦♦♦♦♦D4***^^^^^^* 

♦ GET LENGTH OF ♦ 
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♦TO OUTPUT AREA ♦ 
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♦ LENGTH IN ♦ 
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♦ ♦ 
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Chart UE, 



Format Book MAINTS2; Refer to Maintenance, Chart 
42 



*A1 
IF MEND CARD WAS LAST 
CARD READ AND DID NOT 
FIT IN BLOCK A NEW 
BLOCK MUST BE MADE FOR 
THE MEND CARD. 



. 


*A3 


I 


UD-B4,£:^ 


X 




BKCPRS .♦. 




A2 *. 




.* *. 




.*IS CONTROL * 


YES 


*. CARD A MEND 


*. ... 


*. CARD .* 




*. *A1 .* 




*. .* 


X 


*N0 


***** 




♦ UG * 




♦ 01* 




* * 




* 




LCDPRC 



***** 
*UH ♦ 
* Al* 



*****B2********** 

* * 
*CLEAR REG 1 GET* 

* THE OPERAND * 

* ENDING ADDR. * 

* * 

**:C************** 



F .*. 
C2 *. 
.* ANY *. 
.* BLANKS IN *. N 
.NAME FIELD OF.*. 
*.LAST CARD.* 
*.READ .* 



*.0P CODE MACRO.*. 



*YES 



D2 *. 

.* FIRST *. 

.* OPERAND * 

.CHAR A BLANK 



**** 

♦ * 

* 3 * 



NOBHDR 

******05*********** 

ERRRTN TF 

*_*-*-*-*_♦-*-*-* 

DISPLAY 

* MESSAGE * 

3M35D 

************* 



CARD ALL 
. BLANK 

*. *E3 .* 



X 

***** 

*uc * 

* A4* 



LDSCAD 

*****E4********** 

* LOAD ADDR OF * 

* SCRATCH AREA, * 

* AREA USED TO * 

* COMPRESS * 

* CARD IN * 
***************** 



FNDOP 

*****P2********** 
♦COMPUTE REMAIN-* 

* ING LENGTH OF * 
*CARD. SCAN FOR * 
♦OPERATION FIELD* 

* * 
***************** 



*H1 
BIT 3 OF CTLBY2 ON 
MEANS THAT THE 
HEADER HAS BEEN 
PROCESSED. 



YES . 


* HEADER *. ) 


(YES .* ^ 


...*BEEN PROCESSED.* 


...*. WAS HEADER 




*. ♦HI .* 


♦.BOOK END . 




*. .* 


*. .* 


X 


*, .* 


*. .* 


*** 


*N0 


♦NO 


2 * 




* 


* 
*** 




X 




X 


.*. 


4jfcjfe±iSa2**-=fe*=it* *. 


vi3^ ^. 


* 


* 


.* *. 


* 


TURN ON SW * ) 


< NO .* 


* 


LCDBY TO TEST * 


....*. OP CODE MEND 


* 


FOR LAST CARD* 


*. 



************** 







F4 ♦. 






.* INPUT *. 






.* ALREADY *. YES 






♦. COMPRESSED .*.... 






*. .* 


**** 




*, ,♦ 


* * 




*. .* X 


* 2 * 




*N0 ***** 


* * 




*UF * 


**** 




: %»!♦ 

* 


X 




NOCPR 


.*. 




X 


G3 *. 




**«**G4******* 


* *. 




* RESET ADDR ♦ 


*, 


YES 


* SWITCH TO * 


BOOK END 


*... . 


♦SAVE REMAINDER * 


.* 




* OF CARD * 


*. .* 




* * 


*, .* 


X 


************** 


*N0 


***** 






*UG * 




• 


* DI* 

* * 






* 




X 


LCDPRC 





*****H4********** 

♦ ♦ 
♦GET END OF CARD* 

* ADDR PUT A * 

* BLANK AT END ♦ 

♦ OF CARD ♦ 

*******:(c********* 



♦♦***K3******* 

* * 

* SET SWITCH 

* LAST CARD 

* WAS MEND 

* * 
************** 



*****K4********** 
-* * 

* PUT A ZERO IN * 

♦ NEXT TO LAST ♦ 

* POSITION OF ♦ 

♦ CARD * 
***************** 



***** 
*UF * 
* Al* 
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***** 

*UE * 
* K4* 



SCNCO X 

*****Ai ******«*•• 
•SCAN INPUT FOR * 

• ^NEXT BLANK, * 

• CALC THE NO. * 

• OF NON-BLANKS * 

***************** 



*****B1********** 
*MQVE NON-BLANKS* 
*FRON INPUT AREA* 

* TO COMPRESSED * 

* CARD AREA * 

* * 
***•*••**•**««••• 



OF"CARO 
**. .♦' 



SCNBLN X 

•****0l********** 

• SCAN FOR NEXT * 

• NON-BLANKi * 
*COHPUTE LENGTH • 

• OF BLANK FLO • 
« * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



.* ENO *. 
*. OF INPUT 
*. CARD •* 
*. •* 



***** 
*UE * 
♦ F4* 



NOCPRS X 

4i***«A54i«******** 
♦POINT TO COL 2 ♦ 
♦OF INPUT CARD, ♦ 

♦ GET AOOR OF ♦ 

♦ OUTPUT BLOCK ♦ 

♦ * 
«*«*«*4i«****4t**** 



♦ ♦♦♦ 

* * 

* 2 ♦ 

* * 
**** 



*****C3*****^*^^^ 
♦SET ENO OF BLK ♦ 
♦BYTE, CALC THE ♦ 
♦REMAINING LENGH^ 
♦OF INPUT CAROt ♦ 

♦SAVE coNo cooes^ 

***************** 



♦C4 
THE NUMBER OF NON- 
BLANKS CONTAINED 
IN SUB FIELD IS 
IN THE LOM ORDER 
OF THE BYTE 
PRECEDING THE 
FIELD. THE BYTE 
IS REFERRED TO AS 
THE FLAG BYTE. 



♦UG ♦ 
♦ Bl^ 



FLGINC X 

*4i4i**B5*«i«**4>**** 

♦ GET NUMBER OF * 

♦ NON-BLANKS ♦ 
♦FROM FLAG BYTE * 

♦ AND PUT IN » 

♦ LENGTH REG ♦ 



♦ MOVE FLAG AND * 

♦ NDN-BLANKb ♦ 

♦ FROM CARD TO * 

♦ SAVE AREA ♦ 

♦ ♦CA ♦ 



♦ I NCR SAVE AREA ♦ 
♦ADDR BY LENGTH ♦ 
♦OF INPUT, I.MCR ♦ 

♦ INPUT ADDR BY * 

♦ LENGTH REG *l ♦ 



FLGBLN X 

*****E1 ********** 

* STORE NO. OF * 

* BLANKS IN 1ST * 
*BYTE OF CMPRSD * 

* CARD AREA, * 

* INCR POINTER * 
*•*«****•«*•***** 



:**«*E3***^^^^^^> 

RESTORE 

CONDITION 

CODES 



**** 

♦ * 

♦ 3 ♦ 

♦ * 
**** 



•«***G1******* 

* SET ADDR * 

* SW TO SAVE * 

* REMAINDER OF 

* CARD AT * 

* RELDIN *G2* 
****$«•***•*•« 



F3 *. 

♦ IS ♦- 

OUTPUT ♦. YES 
FUf • 



THE PORTION OF ANY 
J 

PUT 

BLOCK IS SAVED AT 
RELDIN IN COMPRESSED 



♦. BLOCK FULL 



***** 

*UC * 

* A4* 

* * 



***** 
*UC * 
♦ B2^ 

* * 



^^^•^^^♦♦♦♦♦♦^ 



**«***«4i*«4i4i«* 



F5 ♦. 
.♦ WILL *. 
.♦ DATA JN 
.♦.SAVE AREA FI 
♦.IN OUTPUT. 
♦. BLK .* 
♦. .♦ 
♦ YES 



NOFULL X 

♦ MOVE FLAG A^4D ♦ 

♦ NON-BLANKS TO ♦ 

♦ OUTPUT BLOCK, * 

♦ SET END OF * 

♦ OUTPUT BLK SM ♦ 
***************** 



IS 

ADDR SM 

SET 

♦ . .♦ 



**** 

* * 

* I * 

* * 
**** 



>H3 


**** X 




READ ANOTHER 


NRELOI .*. 


X 


INPUT STATEMENT 


HA ♦. 


«****H5***^^^^^^^ 




.* *. 


♦RESET SAVE AREA^ 




.* END OF ♦. NO 


♦ ADDRi CALC ♦ 

♦ REMAINING ♦ 




*. INPUT CARD .*.... 




*. .♦ 


♦ OUTPUT BLOCK * 

♦ LENGTH ♦ 




*. .* 




♦. .* X 


IkO*************** 



*J3 
WRITE BLOCK OF BOOK 
IN SOURCE STATEMENT LIB. 



INTO OUTPU. 

♦ BUFFER, SET * 

♦ ENO OF BLOCK * 

♦ BYTE * 

*****«****««***** 



*****JA*^^^^^^^^^ 

* SET ENO OF * 

* INPUT BLOCK * 
*INDICATOR, GET * 
*LEN6TH OF SAVED* 

* SEGMENTS * 
***************** 



*****K1********** 
* IN OUTPUT * 



*****•**«•**••*•* 



•*** 



.* IS *. 
.* OUTPUT *. YES 

Fur* 



- BLOCK FULL 
*. 

♦. .♦ 



***** 



***** 
*uc • 



I5i 
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***** 

*UF * 
* 03* 



• « 

* I ♦ 



IS BKENO CARD. 



SET LAST * 
CARD SWITCH * 



*•*•******•••« 



.:?;Mrb?:?:.f?.. 


*. BLOCK .* 




*. .* 




*. .* 


X 


♦YES 


«**«* 


**** 


♦UC ♦ 


* * . 


♦ 82^ 


** *... 


* • 


* E2* 


« 


**•* 


WAITBO 


LCDPRC X 




•««*«oi««**«***«* 




•BLOCK INDICATOR* 










♦ ♦ 




«**••*«•«**•***** 






♦E2 




UE-A2,G3 



.♦ ♦• 

.♦ CARD ♦. NO 
. COUNTING .♦... 
♦. REQUESTED. ♦ 



YES .♦ ANY 
...... CARD COUNT 

♦. ERRORS . 



CNTERR 

ERRRTN TF 

♦-♦-»-♦-♦-»-♦-♦-♦ 

DISPLAY 

♦ MESSAGE ♦ 

3H26D 

************* 



El ♦. 
.♦ ♦. 

♦ OUTPUT ♦ 
SUPPRESSED 

♦ . .♦ 

♦ . .♦ 
♦ . .♦ 
♦NO 



•*****F1^^^^^^^^^^^ 

♦ BLOCK OF BOOK ♦ 
IN SS LIB 



•«*•««*•«•••• 



************** 



*****F4********** 

♦ LOAD I/O CTRL ♦ 

♦ REGS LOAD ♦ 

♦ OUTPUT BUFFEK ♦ 

♦ ADDR ♦ 

♦ ♦ 
***************** 



♦F5 
IF THE ERROR SMITCH 
IS ON THE BOOK IS 
NOT TO BE CATALOGED. 



«**«*G1^^^^^^^ 

♦ RESET LAST CO 
♦PROC SM. RESETS 
♦HEADER READ SH ♦ 
♦RESET SEQ CHECK 

♦ SWITCH ♦ 
*•***•«******* 



ERROR ♦. YES 
SWITCH ON ...... 

♦ F5 .♦ 



♦ CLEAR SEQ NO^ 



CLEAL _ 

FIELD I 

LAST CARD HAS 



«•••«•«*♦««*** 



•♦♦♦♦J !♦♦♦♦♦♦♦ 

♦ SET SW NEXT^ 

♦ CO IS FIRST ♦ 
♦CD OF NEW BOOK ♦ 



••♦♦♦*♦♦♦♦♦♦♦♦ 



♦ SEARCH ADDR ♦ 

* ♦ 
***************** 



* INCREMENTS * 

* THE DISK ADDR * 

* TO THE NEXT ♦ 

* BOOK * 
***************** 



••**j5***4i***«** 
SET BLOCK * 
COUNT IN ♦ 
UPDATE * 
ENTRY * 
* 
•«•*•**•••**«*«* 



««**«K1*********^ 
♦ SWITCH CCW TO ♦ 

:nj8«!'lTSSi : 

JOUT^UJ JnTWL . 

•*••••♦♦♦♦♦♦♦♦♦♦♦ 



♦ RESET 

♦ ERROR 

♦ SWITCH 

♦ ♦ 
*•**•••♦♦••♦♦♦ 



•♦♦♦ 



♦UJ ♦ 
♦ Al^ 
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TURN ON SW 
TO IGNORE 
MEND CARD 



SCAN FOR 1ST ♦ 

CHAR OF ♦ 

OPERAND ON * 

BOOK END CARD • 



SAVE REGS 8 

AND 10, SET 

TRT TABLE TO 

STOP ON A 

COMMA 



OPRSCN 

»«»««E1»**»»*«*»* 
• PUT BR. INDEX » 
•VALUE IN REG 8,» 
•SCAN FOR BLANK « 
•OR COMMA, CALC • 
•OPERAND LENGTH • 



SET SWITCH • 
INPUT IS IN 
COMPRESSED 
FORMAT 



.» OPERAND 
FORMAT 
•. CORRECT 



C4 ». 

.• CORR ♦ 

KEY WORD 

SEQUENCE 

FLD 



NO .• CORR 
...•. OPERAND 
•. LENGTH 



CDCTPR X 

«««««C5««*«^«*«* 
» PUT NUMBER OF 
» CARDS IN BOOK 
• IN SAVE AREA, 
» ZERO NUMERIC 
•IN CNT OPERAND 



««»E4»****** 

SET SWITCH 

TO CHECK 

SEQUENCE 

NUMBERS 



• WAS •. NO 

OPERAND ON ••... 
«. CARD .• 



LOAD MAX 
LENGTH OF 
OPERAND 



.« CATAL •. 

.♦ AND BKEND 
•. NAMES THE 
♦. SAME 



BNDERR X 
ERRRTN 



DISPLAY 

MSG 

3M23D 



OPRRTN 


• •• 




F4 ♦. 




.• ANY 


NO .• 


MORE 




OPERANDS 



»»««E5^^»»«*«» 

MOVE CARD 

COUNT TO 

SEARCH AREA, 

ZERO ZONES 



.• ANY ». 

» NUMERICS 

IN OPERAND 
• • FLD 



•PACK CARD CNT, 

• CONVERT TO 

• BINARY, STORE 

• CARD CNT IN 
« CDCNTl 



.• 4TH •. 


NO 


« 


SET SWITCH 


*. OPERAND 






TO COUNT 


•.PROCESSED.* 






CARDS 










• • •• 


X 






• YES 


• » 








» 1 » 








« » 








*«»♦ 




« « 


BERRl X 






« 4 • 


♦»♦»»» J4««» *»»»»» 






* * « 


ERRRTN TF 






«»«« 



DISPLAY 

MSG 

3M23D 



RESTORE 
TRT TABLE 
AND REGS 
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♦♦*•• A 1 «*♦•*♦• 
• RESET SW-HDR* 
» WAS BOOK END,* 
» RESET SW-IST 
•RENAME OPERAND* 
*WAS PROCESSED* 



• A2 
UA-K3 
UB-F2,J4 
U6-K4 



.♦ OPERATION •. 

•SUPPRESSED DUE. 

•.TO ERROR .• 



A3 ♦. 

.• WAS A *. 
♦ CARD READ •. NO 

AFTER BOOK .•... 
•. TRLR .• 



»»«B3^«*»*** 

RESET SW- 

CARO READ 

AFTER BOOK 

TRAILER 



***B4******** 

ENTMAI 

MAINT PHASE 

CHART TA 



FINSHS .*. 

B5 •. 
.* ANY •. 

.•ENTRIES IN ♦. NO 
•SYS DIR UPDATE.^... 
•. LIST .• 



DLINC X 

«»tt*#Cl»^^**^^*** 

• POINT TO NEXT • 

• DIR UPDATE • 

• ENTRY, SAVE • 

• CURR POINTER • 

• ADDRESS • 



• END 
OF DIR 
UPDATE 
LIST 



•**C3^^^^*^^ 

WAIT FOR 

EXTRA CARD 

TO READ 



•«»F1« •*•••**• 

LOAD ADDR 

OF DIR 

UPDATE 

SUBROUTINE 



UPDATE SYS 
DIR AND 
SS DIR 




•••E2***«^*** 

AEND 

MAINT PHASE 

CHART TA 



ARE CONTROL 
STATEMENTS 
ON SYSIPT. 



»««»«E3*»»»»»» 
» TURN ON * 

• 1ST CARD 
« OF BOOK 

• PRE-READ SW 



.•SYSIPT •, 
• SAME 

DEVICE AS 
•. SYSRDR . 



MAINT 
READING 
SYSIPT 
• G2 .* 



**«E4****^**^ 

SET DIR AND 

LIB CURRENT 

ADDRS TO 

STARTING 

ADDRS 



UPSYSD .•. 

D5 •. 
.♦ ANY •• 
NO .» ACTIVE 
...... BLKS IN SS 

• . LIB 



••«**E5 *•••••••• 

• GET ADDR OF 
•NEXT AVAILABLE 

• LIB BLOCK 



• TO 



••»F4***««^*** 

SET NO. OF 

DELETED BLKS 

- AND AVAIL- 

BLE BLKS TO 

TOTAL ALLOC 



CMXBLK X 

••«*«F5***«**** 

• CALC THE NO. 

• OF BLKS 

• REMAINING ON 

• CURR CYL FOR 

• CATALOGING 



• • 



•YES 



RESET DIR 

UPDATE LIST 

POINTER 



.* SUB *. YES 
*. LIB MSG TO .*.... 
*. PRINT .* 



• K4« 

FRESET 

*»**«K !•••••• 

• RESET SW 

• TO PRINT 

• SUB-LIB 

• MESSAGE 



MVSTMT 

«*«**H3********** 

* MOVE CONTROL * 

* CARD IMAGE * 

* FROM BUFFER * 
•INTO CTRL CARD * 
•INPUT AREA. •KA^ 



•J3^ 



WRDIR X 

•*«ii**G5**^«*** 
SVC 
♦ WRITE SYS 
DIR ON 
* SYSRES 



*K2* 



TF 



ERRRTN 

•—•-»—•—»—•—•—•-• 

PRINT NO SUB 

•LIB QUALIFIER* 

MSG 



TURN OFF 

1ST CARD 

OF BOOK 

PRE-READ 

SW 



••»«K3********* 

* PUTLST MAINT * 
*PHASE CHART TA * 

* •KA * 



ENTMAI 
MAINT PHASE 
CHART TA 



*J4 

REFER TO NOTE 
>A4 ON 
CHART TC 



*K4 
LAST CARD READ FROM SYSIPT 
IS A CONTROL STATEMENT 
FOR MAINT. BYPASS CARD 
READING. 



«««««H5 ******* 

* TURN OFF 

* MAINTS2 IN 

* CORE SW 

* *J4 



•••«J5*^^^^*^* 

• ANALEN 

• MAINT PHASE 

• CHART TD 
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* • 

* I ♦ 

* • 



* * 

* OIRUP * 



» SET BASE ♦ 
* REGSt SAVE * 



4c*4i««««««*****4>«* 



♦ SET DIR ADOR ♦ 

* FOR SEARCH ♦ 

* LOAD DIR DISK * 

• ADDR FOR * 

♦ SEARCH ♦ 



****4>01 ********** 

♦ CLRBLK ♦ 

♦ CLEARS THE ♦ 

♦ OUTPUT ♦ 
« BLOCK AREA * 
» ♦ 
***************** 



«**•«£ 1 ********** 

* LOAD REG 3-5 * 

* FOR DIR BLOCK ♦ 
*SCAN. LOAD REGS* 
*6-8 FOR UPDATE * 

* LIST SCAN * 
««**4>«**4>**«*4t*** 



TSTOP .*. 

A3 *. 
.* *. 

.* OPERATION *. 

«. PREVIOUSLY .' 

*. DONE .* 

♦ . .* 

*. .* 



.* RENAME *. 
. OPERATION . 



DELETE ». 

SUB LIB •* 

.ALL .* 



**** 

Ix.. 



* • 

* 5 * 

* * 
**** 



ORENHl X 

«*4i**B2********** 

♦ PUT DISK ADDR ♦ 
*AND ENTRY ADDR * 

♦ IN OLD BOOK * 

♦ NAME * 

♦ ♦ 



*****C2******* 

* RESET * 

* UPDATE 

* SWITCH 

* RENCDE 

* * 

* * . 

* 5 *... 

* * . 
**** X 

STEPLI .*. 

D2 *. 

.* MORE *. 

.* ENTRIES ♦ 

*. ON UPDATE 

*. LIST .* 



B3 *. 

.*CATAL. *. 

RENAME OR 

DELETE 



DRPROC X 

* REPLACE NAME * 

* IN DIR WITH * 

* NEW NAME * 

* OR BLANKS * 

* * 



* * 

* RESET DELETE ' 

* UPDATE 

* FLAG 

* * 



♦ 7 ♦ 



.* HAS * 
.* NEW NAME 
*. BEEN PUT I 
*. SSLIB 



«**4i*C4******* 

* TURN ON * 

* NEW NAME 

* ERROR SWITCH 

* 



NO .* SUB-LIB *. 
...*T0 BE DELETED.. 
*. .* 

*. .* 



.X.. 

X 

***« 

* * 

* 5 * 

* * 
***« 



STEPBl X 

*****E2 ********** 
*RELOAD POINTER * 

♦ TO DIRECTORY ♦ 

* UPDATE LIST * 

• * 

* * 



DELET X 

*****E5********** 

* INCREMENT * 

* NUMBER OF * 
» DELETED » 

* BOOKS * 

* ♦ 



.* ANY *. 
.* DIRECTORY ♦. NO 
ENTRIES .♦... 
*. .♦ 

*. •* 
*. .* 
*YES 



RDBLKI 

*REAOS THE FIRST* 

BLOCK OF 

♦ SYS DIR * 

**«* ! 

* * . 

* h *... 

* * . 
♦*** X 



HI 



.♦. 



♦ . 



.* MOVE ♦. 

♦ENTRIES IN DIR. 

*. BLOCK .* 

*. .* 



WRVRD X 

* SET END OF * 

♦ BLOCK NOT ' 

* END OF 

• DIRECTORY 

• SWITCH ♦ 



*«*«*«H2*********** 



DIRDIl X 

***4<*F5********** 

* GET NUMBER OF * 
*BOOKS TO DELETE* 
*FROM DIR ENTRY * 

* ADO NUM OF * 

* BLK * 



*****G5********** 

* DELI UPDATES * 

* THE SYS DIR * 

* FOR REMOVAL * 

* OF BOOK, DEL * 

* OR CATAL * 



.* *. 




SVC WRITE 
♦ DIR BLOCK ♦ 




.* END OF *. YES) 


; 




*. DIRECTORY .*... 




ON DISK 




*. •* 




« * 




*. .* 






♦♦*♦ 


♦ . .* X 


««4>««***«**** 


♦ ♦ 


♦NO ♦•*♦* 




♦ 3 ♦ 


***« . *UL • 




♦ ♦ 


* * . * 81* 




♦••* 


« 7 *-.. ♦ * 






« ♦ . » 






**** X EODIRO 


X 




DNTCHT .*. 


• ♦. 


X 


.* BOOK **. 


J2 ♦. 


•♦♦♦♦*J3*******^*^« 


.♦ ♦. 


RDBLKI READS 


.* NAME *. NO 


.♦ END OF ♦. NO 


• NEXT CYL » 


«. IN SEQUENCE .*.... 


♦. CYLINDER ...... 


*. .* 


♦ . .♦ 


*. .* 


♦ . .♦ 




*. .* X 


♦ . .♦ 


*««««***•••«* 


♦YES ♦♦♦♦ 


•YES 




• « * 


* 




♦ 2 ♦ 




, 


X ♦ * 






♦♦•♦ **»♦ 


• 


»••••••. .•••*X. 


* ♦ 




♦ 1 ♦ 


X 


MRCMPL X 


♦ * 


•*«**K2*^*^^*^^^* 


•*«*4tK3*««*«*4i*** 


♦♦♦* 


« INCDOL ♦ 


: ;sisfi« : 




« INCREMENTS ♦ 




• NEXT AOOR * 


. to OIJI^TORY . 




♦ « 






«*••*••«»»•«*««•• 




X 


• 

X 






♦••* 


♦♦** 
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SET END-OF-* 
BLOCK, END-OF- 
DIRECTORY 
SWITCH 



»»*««B1«»»»»»»»«« 
» SET CCB TO * 
♦WRITE DISK AND » 
•VERIFY IT. LOAD* 
• ADDR OF NEXT » 
» DISK TO WRITE » 



INCDEC SETS « 

UP THE DISK « 

SEARCH ADDR. » 



B3 •. 
* DIR *. 

SPACE ♦. YES 
ALLOCATED ...... 


DOVERR 

•*««»«B4»*«««»*>»tt« 
ERRRTN TF 

• . .X DI SPLAY 


X 

»«»«*«B5«*»«««« 
WRV WRITES 
• AND VERIFIES 
THE LAST 


FILLED .* 


MESSAGE • 
3M54I 


SS LIB 
BLOCK 



SET SWITCH 
DIRECTORY 
OVERFLOW 
ALLOTTED 



•PLACE NEW ENTRY* 
* IN DIRECTORY « 
» INCR NUM OF * 
♦ACTIVE ENTRIES • 
« AND BLKS « 



DIRECTORY 

BLOCK 

. FILLED . 



« ALL 

CATALOGING 
*. DONE 



SET END OF 

BLOCK NOT 

END OF DIR 

SWITCH 



WRITE BLOCK 

IN SS LIB 

AND VERIFY 

IT 



♦»«E3««»»»«*« 

INCDDl 

INCREMENTS 

THE DISK 
ADDR TO THE 
NEXT BLOCK 



CLRBLK 
CLEARS THE 
SYSTEM DIR 
OUTPUT AREA 



* ANY » 

MORE 

CATALOG 

UPDATES 



♦RESTORE CHANGES* 

♦ THE CHANNEL * 

♦ PROG TO WRITE * 

♦ AND VERIFY * 

♦ DATA ONLY ♦ 



POINT TO THE 
START OF DIR 
UPDATE LIST 



OPERATION 
DELETE 
. .ALL 



.* THIS *. 

DELETE 

OR RENAME 

.COMPLETED. 



DELETE OR 

RENAME ERROR 

MESSAGE 



NO .* END OF 
...*. UPDATE 
♦. LIST 



CLRBLK CLEARS 

THE UPDATE 

AREA 



PUT END CODE 

IN NEXT 

ENTRY 
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* « 

« INITS ♦ 
« « 



* * 

• GETBKN * 



«««««»«»«4t«4i*« 



SVC 

• READ SYS » 

OIR RCO 

O NO. 3 « 

*C2 



•**4>A3********* 



«4i**«**«*«4i**** 



LASLIO X 

* INCR OPERAND * 

* ADDR PAST * 

* SUB-LIB * 
♦QUALIFIER. DECR* 
♦OPERAND LENGTH ♦ 



♦UA » 
♦ G4* 



»C2 
THE SYSTEM DIRECTORY 
IS LOADED INTO CORE 
AND WILL REMAIN UNTIL 
THE END OF SOURCE 
STATEMENT LIB. 
PROCESSING. 



X 
BOoi^AME •:*!!!. 


OPREIl 
>...X DSPLY MSG 


TOO LONG .♦ 


♦ 3M21I ♦ 



»**4i«4i«4i*4i4i** 



.*. 

DI ♦. 

.♦ IS *. 

« SS LIB *. NO 

ALLOCATED .♦... 

«. .» 



* HOVE THE NO. * 

* OF THE LAST ♦ 

* BLK AVAILABLE ♦ 
« TO THE LIB * 

* END ADDR « 



INIDAO 

« GET CURR DISK « 
« ADDR, STORE « 
« 1ST LIB ADORt « 
•DECR SEARCH CNT« 
9 « 



ALOERR X 

ERRRTN TF 

DSPLY MSG 
♦ 3M43I ♦ 



♦♦••F2********* 

♦ SVC 6 * 

• CANCEL JOB » 

* • 



LASLI2 X 

* TRANSLATE ♦ 

* BOOK NAME ♦ 

* INTO ALPHA- ♦ 

* NUMERIC ♦ 

* SEQUENCE * 



E3 ♦. 
.* IS *. 

YES .♦ SYNTAX *. 
...*. SWITCH 
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Chart UN. OPRERS, OPRERT, and DELERR Error Subroutines 
MAINTS2; Refer to Maintenance, Chart 42 
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Chart VA, Process Allocate Control Statement MAINPA (Part 1 
of 2); Refer to Maintenance, Chart 43 
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Chart VB. Process Allocate Control Statement MAINTA (Part 2 
of 2); Refer to Maintenance, Chart 43 
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Chart VC, Update Record 4 of System directory MAINTA; Refer 
to Maintenance y Chart 43 
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Chart VD. Build Directory and Library Reallocation Tables 
MAINTA; Refer to Maintenance, Chart 43 
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Chart VE. Compute Displacement and Direction for Directory 
and Library Movement MA.INTA; Refer to 
Maintenance t Chart i\3 



•••• 

• 2 • 



••••• 
•VD • 
• D2« 



REALLOCATION 

TABLE FOR THIS 

DIRECTORY 



.♦ NUMBER OF • 
. TRACKS USED 
•. EQUAL .# 



E3 •. 

.•COMPARE*, 
t OLD STRTG 
ADDRESS TO 
.NEW STRTG. 
•.AODR .• 



HIGH 




♦ INCREMENT 
♦ADDRESS TO NEXT 

♦ HALF-TABLE 



G4 •. 

6 
PASSES 



MOVE NEW 

STARTING AOOR 

TO NBUCK 

•Jl 



MOVE NEW 

STARTING ADOR 

TO NBUCK I 



ADDRESSES IN NBUCK 
AND NBUCKl DETERMINE 
THE DIRECTION IN WHICH 
THE DIRECTORY OR LIBRARY 
IS TO BE MOVED. 



.X. 



DSPL3 X 

•••••J3«««««*«»«« 

• COMPUTE THE • 

• NUMBER OF • 

• TRACKS IN THE • 
•DIR OR LIBRARY • 

• TO BE MOVED • 



•••••H 4* •••••••• 

• INITIALIZE 

• ADDRESSES TO 
•UPDATE RECORDS 

• 1-3 OF SYSTEM 

• DIRECTORY 



•••••J44 

•SET ENDING LIB 
•AND DIR RECORD 
• AND ENTRY IN 



• ••• 
• 1 ♦ 



• A2« 

• • 

UPSYSN 



676 DOS System Control 



Chart VF. Update System Directory Records 1, 2, and 3 
MAINTA; Refer to Maintenance, Chart U3 
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Chart VG. Write Updated System Directory MAINTA; Refer to 
Maintenance^ Chart 43 
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Chart VH. Update Library Directories MAINTA; Refer to 
Maintenance, Chart 43 
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Chart VJ, Relocate Directories and Libraries MA.INTA.; Refer 
to Maintenance, Chart 43 
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Chart VK. Format Unused Tracks MAINTA; Refer to 
Maintenance, Chart 43 
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Chart VL. TSTNUM, CONVRT, and UPDATE Subroutines MAINTA; 
Refer to Maintenance, Chart 43 
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Chart VM. Update Disk Address and Copy Label Track 

Subroutines MAINTA; Refer to Maintenance, Chart 
43 
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Chart VN. Initialize to Condense a Library MAINTCN; Refer 
to Maintenance, Chart ^^ 
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Chart VP. Condense a Directory MAINTCN; Refer to 
Maintenance, Chart 4U 
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Chart VQ. Condense a Library MAINTCN; Refer to Maintenance, 
Chart 44 
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Chart VR. Automatic Condense MAINTCN; Refer to Maintenance, 
Chart 44 
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Chart VS. VERILI, lODISK, and WRTEDR Subroutines MAINTCN; 
Refer to Maintenance ^ Chart ^^ 
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Chart VT. CHGCCW and ICRDAD Subroutines MAINTCN; Refer to 
Maintenance, Chart 44 
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Chart VU. Set Condense Limits MAINTCL; 
Maintenance., Chart 45 
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Chart W. Print System Status Report and Update 

Subdirectories $MAINEOJ (Part 1 of 3); Refer to 
Maintenance e Chart 45 
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•. •HB .♦ 



.• AUTO ». 

CONDENSE 

LIMITS 

.SPECIFIED. 



• H3 
EACH OF THE FIRST 3 
SYSTEM DIRECTORY RECORDS 
WILL BE CHECKED, ONE 
AT A TIME. 
RECORD 1 = CI LIB 
RECORD 2 = RELOC LIB 
RECORD 3 = SS LIB 
note: auto CONDENSE IS NOT 
PERFORMED IF THERE 
ARE NO DELETED BLOCKS 
IN THE LIBRARY, EVEN 
IF THE CONDENSE LIMITS 
HAVE BEEN EXCEEDED. 
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Chart VW. Print System Status Report and Update 

Subdirectories $MAINEOJ (Part 2 of 3); Refer to 
Maintenance, Chart ^5 



OUTPUT AREA ♦ 



MOVE X'28« • 
TO ONSW TO BE* 
OREO IN COHH • 
REGNf 'GB • 



•••Ol******** 
MOVE CONDS 
CI LIB HSG 

TO PRINT 
OUTPUT AREA 



B2 *. 

.• •BA • 
CL .• CONDENSE 
LIMITS 

•• REACHED 
♦. FOR .» 

'•RL 



MOVE X'24' • 
TO ONSW TO BE» 
OREO IN COMM • 
REGNt vGB • 



MOVE CONOS 

RELOC LIB MSG 

TO PRINT 

OUTPUT AREA 



• B4 
ADDRESSES ARE INCREMENTED 
AT BLOCKS H2 AND J2 TO CHECK 
CONDENSE LIMITS IN THE SYSTEM 
DIRECTORY RECORDS. THEY ARE 
CHECKED IN THIS SEQUENCE! 

1. CI LIB 

2. RELOC LIB 

3. SS LIB 

THE NUMBER OF AVAILABLE BLOCKS 
IN THE LIBRARY IS COMPARED TO 
THE CONDENSE LIMITS. 



ENOTBL+12^ 

• MOVE X«22' • 

• TO ONSW TO BE« 

• OREC IN COMM • 

• REGN, #03 • 



•••03* 
MOVE CONDS 
SS LIB MSG 

TO PRINT 
OUTPUT AREA 



VV-J2,C4,F4 



SVC 

PRINT 

MESSAGE 

ON SYSLOG 



*««»«f:2«****«*«* 

♦ SET CONDS 

• REQUEST FLAGS 
♦IN DSPLT 22 OF 

♦ COMM REGN FOR 

• MAINTCN, •G3 



F4 ♦. 
.• ALL •. 

•LIB CONDS 

LIMITS ARE 

•. CHECKED . 



•••••G2 ******* 

* CHANGE SWITCH 

* AT AUNOP * 

* TO INDICATE 

* AUTO CONDS IS* 

* NECESSARY • 



•**H2******** 

INCREMENT 

BRANCH ADDR 

TC BE USED 

AT BLOCK B2 

*B4 



• G3 

DISPLACEMENT 22 OF 

THE COMMUNICATIONS 

REGION IS USED TO 

PASS AUTO CONDENSE 

INFORMATION TO 

MAINTCN. 
X«08« = CONDENSE CI LIB 
X«OA» = CONDENSE RELOC LIB 
X'02' = CONDENSE SS LIB 
X«20' = FETCH SMAINEOJ 
AFTER CONDENSE 



G4 *. 

,* AUTO ♦. 
CONDENSE 
NECESSARY 



SVC 4 
LOAD MAINTCN 
PHASE , 



•••J2******** 

INCREMENT 
PCINTER TO 
NEXT SYSTEM 

DIRECTORY 
RECORD 



X 








SVC 1 




FETCH MA 


[NT 


PHASE, • 


K4 



****K2******* 

CHANGE SWITCH 
AT BRIFRL * 
TO BYPASS 
MPS TESTS • 



ENTRY TO MAINT PHASE 
IS AT LABEL AUTOEN, 
CHART TA 



• ••• 

• • 

• I • 
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Chart VX. Print System Status Report and U^^date 

Subdirectories $i4AIN£0J (Part 3 of 3); Refer to 
Maintenance, Chart 45 



ENDJCE . 
NOWRTl X 

WRITE LAST 
« TRANSIENT DIR 
BLOCK UNLESS 
♦ SUPPRESSED • 



♦ INITIALIZE 
♦REGS AND CLEAR 

♦ SUB-DIRECTORY 

♦ BUFFERS 



BLGOON X 

»*»»«*C1**»****» 
WRITE AND 
• VERIFY BLANK 
BLOCK IN 
• SUB- 
DIRECTORY 



♦Dl»»»»»» 
UPDATE 

DISK 
ADDRESS 



El •. 
.» ALL *. 

•SUB-DIRECTORY. 
.TRACKS BLANK . 



READ RECORD 
1 OF SYSTEM 
DIRECTORY 



•**GI******* 

READ BLOCK 

FROM CI 

DIRECTORY 



COMDOL .♦. 










B3 • 










.* 










,• FGP 






YES 




». ENTRY 










«. -C^ 










». 


♦ 








«. .« 






X 




»N0 






*vz • 

» A2» 

• « 


'foreground 



N0WRT2 

••««««B5»«*«««««* 

WRITE LAST LIB 

• RTN DIRECTORY 

BLOCK UNLESS 

♦ SUPPRESSED • 



D3 •. 

$ 
ENTRY 



WRITE LAST FGP 
» DIRECTORY 
BLOCK UNLESS 
• SUPPRESSED • 



N0WRT4 X 

»«»#»»D5««»»»««* 

WRITE LAST 

» LIOCS OPEN 

DIRECTORY 

•BLOCK UNLESS 

SUPPRESSED 



DSERV X 

*«E5*«*«*«« 

» SVC 2 * 
♦ OPEN SYSLST 
«USING SSBGPENf 
•LOGICAL IOCS 



.» END ♦. 

OF CI 
DIRECTORY 
, SCAN 



G3 ♦. 
.• END ». 

OF CI 
DIRECTORY 
. BLOCK . 



»G4 
REFER TO FIGURE 76 
FOR AN EXAMPLE OF 
THE SYSTEM STATUS 
REPORT. PRINTING 
IS DONE WITH A PUT 
MACRO. REFER TO 
CHARTS TG AND TH 
FOR THE PUT MACRO 
EXPANSION. 



•♦»F5*»»«»««» 

READ ENTIRE 

SYSTEM 

DIRECTORY 



»«»»G5»*« »*»♦** 

PRINT SYSTEM 

STATUS REPORT 

ON SYSLST 

• »G4 ♦ 



UPDATE DISK 

ADDRESS TO 

READ NEXT 

BLOCK 



INCRTT 

*«***H3********* 

♦ INCREMENT 

♦ POINTER TO 
•NEXT DIRECTORY 

♦ ENTRY 



EOJROU 

• SVC 12 • 
» RESET BIT 7 • 

• IN 2ND JOB 

» CONTROL SWt » 

• COMM REGN,^KI 



X 
2 • 



DISPLAY 

MESSAGE 

1C90A 



J5 •. 

.• NEW •• 

•SUPERVISOR 
CATALOGED 



• Kl 
THIS SWITCH IS 
SET ON INITIAL 
ENTRY TO MAINT TO 
INDICATE TO 
JOB CONTROL TO FETCH 
SHAINEOJ WHEN A 
/S CONTROL CARD IS READ 



»K3 
THE WAIT MACRO IS 
TESTING THE PCI BIT 
IN THE CCB INSTEAD 
OF THE NORMAL TRAFFIC BIT. 
THIS ALLOWS FOREGROUND 
PROGRAMS TO CONTINUE 
BUT THE USER MUST IPL 
TO BEGIN ANOTHER 
BACKGROUND JOB. 



SVC 7, WAIT 
• K3 



SVC 14 
EOJ 



Appendix H, Detailed Flowcharts 693 



Chart VY. Build Library Routine and Transient Subdirectory 
Blocks $MAINEOJ; Refer to Maintenance, Chart 45 



• LIB 


RTN « 


. YES 


DIRECTORY 






*. FULL .» 
















X 


»N0 




*vx* 








» G3 








« » 
















INCR 


X 






»*«B2»««««*«« 






MOVE LIB RTN 


« 




ENTRY TO 






LIB RTN 






OUTPUT 


BUFFER 


• 





TRANSIENT 
DIRECTORY 
. FULL 



##*»B 4* •**••**• 

MOVE 

TRANSIENT 

ENTRY TO 

TRANSIENT 

OUTPUT BUFFER 



««*«D2»«»»»»««* 

WRITE AND 

VERIFY LIB 

RTN DIRECTORY 

* BLOCK * 



» INCREMENT 
•BUFFER POINTER 
» FOR NEXT 
» ENTRY 



WRITE AND 

VERIFY 

TRANSIENT 

DIRECTORY 

BLOCK 



INCREMENT 

BUFFER 

POINTER FOR 

NEXT ENTRY 



»«««<E2*»*«»«*«»« 
» CLEAR LIB • 
» RTN OUTPUT • 
•BUFFER, UPDATE » 
» DISK ADDR • 
•FOR NEXT OUTPUT* 



•CLEAR TRANSIENT* 
•OUTPUT BUFFER, * 
» UPDATE DISK ♦ 

• ADDR FOR ♦ 

* NEXT OUTPUT * 



«•••« 
»VX • 
• G3« 



• F3 
1 TRACK 
ALLOCATED 



LIB RTN •. NO 
DIRECTORY .•... 
. FULL .* 



MESLIB X 

♦••••G2»^«»»^« 

• MODIFY SW « 

• AT PROLIB TO 
» BYPASS LIB 
» RTN ENTRIES, 



• A2 



« MODIFY SW AT« 
» N0WRT2 TO * 
♦SUPPRESS, LAST 

• BLK IS • 

* WRITTEN • 



• RESET LIB RTN 
•BUFFER POINTER 
« TO BEGINNING 

• OF BUFFER 



TRANSIENT 
DIRECTORY 
. FULL 
•. *F3 .* 



MESTRA X 

«««««G4^ ••••«* 

• MODIFY SW AT* 

• PROTRA TO BY-^ 
•PASS TRANSIENT 

• ENTRIES • 

• •AA » 



• MODIFY SW AT» 

• NOHRTl TO ♦ 
•SUPPRESS, LAST 

• BLK IS ♦ 

• WRITTEN » 



GNTRA 

»*»*»Jit*» ******** 

* RESET TRANS • 
•BUFFER POINTER • 

* TO BEGINNING » 

* OF BUFFER • 



* G3» 
INCRTR- 
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Chart VZ. Build FGP and LIOCS Open Subdirectory Blocks 
$MAINEOJ; Refer to Maintenance^ Chart 45 



. FGP 

DIRECTORY 
. FULL 



MOVE FGP 

ENTRY TO 

FGP OUTPUT 

eUFFER 



.♦LIOCS OPEN 
*. DIRECTORY 
». FULL 
** •• 

'•NO 


• 


. YES 

X 

• VX • 

• G3« 


** move'liocs 

♦ open entry 
» to output 

• BUFFER 


• 




INCRTR 


X 

C4* *♦. 

.♦* BUFFER 
*. FULL 


« 


. NO 



WRITE AND 

VERIFY FGP 

DIRECTORY 

BLOCK 



•♦•D3*»»»«»«* 

INCREMENT 

BUFFER 

POINTER FOR 

NEXT ENTRY 



WRITE AND 

VERIFY LIOCS 

OPEN 

» DIRECTORY 

BLOCK 



INCREMENT 

BUFFER 

POINTER FOR 

NEXT ENTRY 



♦ CLFAR FGP 
•OUTPUT BUFFER, 

♦ UPDATE DISK 

♦ ADDR FOR 

♦ NEXT OUTPUT 



♦ CLEAR LIOCS 

♦ OPEN OUTPUT 
•BUFFER, UPDATE 

♦ DISK ADDR FOR 

♦ NEXT OUTPUT 



F2 •. 
.• FGP ♦. 

DIRECTORY 

FULL 

• F3 



MODIFY SW • 
AT PROTEL 
TO BYPASS 
FGP ENTRIES 



MODIFY SW 

AT NOWRT 3 

TO SUPPRESS, 

LAST BLOCK 

IS WRITTEN 



•LIOCS OPEN 
DIRECTORY 
•. FULL 



•••G4***«*** 

MODIFY SW 

AT PROOF 

TO BYPASS 

LIOCS OPEN 

ENTRIES 



MODIFY SW 

AT NOWRT 4 

TO SUPPRESS, 

LAST BLOCK 

IS WRITTEN 



*»»J2^»»»«»» 

RESET FGP 

BUFFER 

PCINTER TO 

BEGINNING 

OF BUFFER 



GNOP X 

*«**»J4*****««* 

» RESET LIOCS 

» OPEN BUFFER 

» POINTER TO 

* BEGINNING 

• OF BUFFER 
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Chart VfAm Initialize Phase 1, Copy IPL, and Format Cylinder 
of SYS002 CORGZ; Refer to Organization, Chart 
46 



• I • 

•••• 



•••«A1*** •••••• 

I CORGZ • 



WRITE IPL 



•••••A5«****** 

• MODIFY DISK* 

• ADDRESS AND • 
•ecu TO READ IPL* 

• RECORD 3 FROM* 

• SYSRES * 



INIT BASE REGS • 

REG 15 AND • 

REG 14. • 



• B2 
1. FILENAME MS6LST IS FOR SYSLST. 
2. FILENAME IJSYSRES IS FOR THE 

NEW SYSRES. IT MUST BE 

DEFINED ON SYS002. 



MODIFY DISK* 
ADDRESS AND • 
CCW TO FORMAT • 
SYSTEM DIR • 
RECORDS 1-4* 



******B5** 




lOSYRS 


MP 




-*-•-•-* 


READ IPL 


RECORD 


*3 FROM 


SYSRES* 


-CO, HI 


,R5- 



**C1******* 

SVC 2 FETCH* 

*$»BOPEN LIOCS* 

• OPEN RTN OPEN • 

• MSGLST, • 

IJSYSRES. *B2* 



Dl *. 




.* ARE *. 




* IJSYSRES *. 


NO 


EXTENTS VALID. 


«... . 


*. *C2 .* 




*• •* 




*. •* 


X 


•YES 


••*** 




*wu • 




• F2* 




* • 




• 




ERROR 






El *. 




.* IS *. 




* IJSYSRES ♦. 


NO 


DEFINED ON . 


*. .. . 


*. SYS002 .♦ 




*. .* 




*• .* 


X 


• YES 


••••• 




•wu * 


. 


* F3* 



*C2 
THIS ROUTINE FORMATS ALL OF 
CYLINDER 0. THIS TEST INSURES 
THAT NO EXTENT ON SYS002 IS 
WITHIN CYLINDER 0. 



_ FORMATTED WITH AN 

8-BYTE COUNT AND 80-BYTES 
OF ZEROS. 



l.$$BOPENC IS A LIOCS TRANSIENT. 
2. CONTROL IS RETURNED IN-LINE IF 

SYSRES AND SYS002 ARE NOT 

THE SAME PHYSICAL DEVICh. 

IT IS A LOGICAL IOCS ERROR 

IF THEY ARE THE SAME 

PHYSICAL DEVICE. 



WRITE WP 

•—•-•-*-•-•-*-•-• 

WRITE A SYSTEM 

•DIR RECORD ON^ 

SYS002 ^02 



•INCR COUNT AND 
•SEARCH ADDRESS 
• BY 1 RECORD 



E4 •. 

.• HAS •. 

.•SYSTEM DIR *. 

♦.RECORD 4 BEEN. 

•.FORMATTED.* 



••••C 5 *•••••• 

MODIFY DISK^ 

SRCH ADDR ANO^ 

CCW TO WRITE 

IPL RECORD 3 • 

ON SYS002 • 



WRITE bRD IPL 

RECORD ON 
SYS002 -CKD- 



•••••E5**^*^^* 

♦ MODIFY DISK^ 
•ADDRS, 10 ARfcA* 

♦ AND CCW TO • 

♦ FORMAT REMAIN* 

♦ DER OF CYL 0« 



READ SYST DIR 

• RECORD 'f FROM^ 

SYSRES 



UPINIT 

••••*F5* 
•UPRITE 

•INCR COUNT AND 

• SEARCH ADDRS 

• BY 1 RECORD 



WN* 



•*****H1**4 


*••* 


••*• 


WRITE 




WP 


*-•-*-*->*• 


-*-*- 


*-* 


WRITE 


IPI 




* RECORD 


1 nh 


• 


SYS002 





LET C EQUAL THE CI DIRECTORY 

STARTING CYLINDER. ALWAYS 

CYL 1. 

LET R EQUAL THE RL DIRECTORY 

STARTING CYLINDER. 

LET S EQUAL THE SS DIRECTORY 

STARTING CYLINDER 

LET X EQUAL THE NUMBER OF 

CYLINDERS ALLOCATED FOR THE 

CI LIBRARY AND DIRECTORY. 

LET Y EQUAL THE NUMBER OF 

CYLINDERS ALLOCATED FOR THE 

RL LIBRARY AND DIRECTORY. 

LET Z EQUAL THE NUMBER OF 

CYLINDERS ALLOCATED FOR THE 

SS LIBRARY AND DIRECTORY. 

R EQUALS X PLUS 1. 

S EQUALS R PLUS Y, 

IF Y OR Z EQUALS ZERO, THE 

1ST BYTE OF RESPECTIVE DISK 

ADDRESS, RDPSA OR SDPSA, IS 

SET TO BLANK, X-40-. 



••«««G4**^ ••••••• 

•SAVE THE 1ST 13^ 

• BYTES OF THE • 

• ALLOCATION • 

• RECORD IN • 

• CILAL • 



•••••H4*^^ ••••••• 

•COMPUTE CYL FOR^ 
•RL DIR STARTING^ 

• DISK ADDR AND • 
•STORE IN ROPSA • 

• •G2 ♦ 



WRITE A RfcCORD 

ON SYS002, CYL^ 

0. -CKL- 



.• HAS •. 

.•LAST TRACK •. 

.OF CYL BEEN. 

•.FORMATTED.* 



****«J1******* 

* MODIFY DISK* 

* ADDR AND CCW • 

* TO READ IPL • 

* RECORD 2 FROM* 

* SYSRES ♦ 



•COMPUTE CYL FOR^ 
•SS DIR STARTING^ 

• DISK ADDR AMD • 
•STORE IN SDPSA • 

• ^02 • 



• E2« 
READCC 



WP 



lOSYRS 

•-•—*-•—*-•-*' 
READ IPL RECORD 
*2 FROM SYSRES* 



•***«K4*^** •*•••• 

• SAVE SYSRES • 

• LABEL STORAGE • 

• CYLINDER ADDR • 
•FROM ALLOCATION* 
♦RECORD-BYTE 13-* 



♦ 1 

* 
**•* 



• 2 • 

••*• 
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Chart WB. Read and Analyze Control Statement, /Jrite System 
Directory Records CORGZ; Refer to Organization, 
Chart 46 



»WD-C4 
WU-J2 
WH-J3 
WK-D3 



WRITE THE 

SYSTEM DIR 

RECORD 



»»»*mC^*** ******* 

* INIT REG 5 AS » 
♦POINTER TO LAST* 
♦VALID STMNT COL* 

♦ IN WHICH A ♦ 
♦PARAM CAN BEGIN* 



• INIT POINTER 
♦REG 2 FOR NEXT 
♦NON-BLANK CHAR 



.♦ IS ♦ 
THIS THE 
ALLOC 
. STMNT 



CCARD 
NO .^ 



• IS • 

THIS A 
♦COPY STMNT.* 



SVC 7-ENTER 

WAIT STATE TO 

STOP TIMER 



♦SAVE CORGZ BASE* 

• REGISTER, * 

* REG 15, IN ♦ 

♦ REG 3 ♦ 



•**««J1*«**»«*»* 
♦MOVE STMNT, 80- 
♦BYTE IMAGE, TO 

* THE I/O AREA 

* SPECIFIED IN 
*THE MSGLST DTF 



•**««H3********^ 

♦ RESTORE CORGZ 
♦BASE REGISTER, 

♦ REG 14 FROM 

♦ REG 4 



NO .♦ COL 1 OF 
...♦. STATEMENT 
♦. A BLANK . 



«^«*«G4***^**^^*^ 

• INCR POINTER » 

* REG 2 BY 4 TO ♦ 
♦POINT TO FIRST ♦ 

♦ COL PAST ♦ 
♦OPERATION FIELDS 



♦»«H4^^^^^** 
RESTORE THE* 
LIB PROCESS 

BITS TO IN 

SWITCH 

-BITS 4-7- * 



F5 *. 
.» HAS ♦. 

• A COPY 

STMNT BEEN 
♦.PROCESSED. 



♦♦♦♦♦G5^^^******^ 

♦ INCR POINTER, ♦ 
♦REG 2, BY 5 TO ♦ 

♦ POINT TO 1ST ♦ 

♦ BYTE PAST THE ♦ 
♦OPERATION FIELDS 



♦WD ♦ 
♦ Al^ 

ALOCAT 



THIS THE 

1ST COPY 

.STATEMENT. 



♦SAVE CORGZ BASE^ 

♦ REGISTER, * 

♦ REG 14, IN ♦ 

♦ REG 4 ♦ 
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Chart WC. Build SYS0 02 System Directory Information CORGZ; 
Refer to Organization^ Chart 4 6 



X 

SET RL LIB * 
COPY IN 

PROCESS BIT 
ON IN SWITCH 
-BIT 6- ♦ 



. »WB-J4 
. WL-C3 
X 
R .«. 
C2 ». 
.» IS ». 
* NEW ALLOC ». YES 

SPECIFIED FOR.* 

«. CI LIB .♦ 




• MOVE NEW CI 
»LIB ALLOC, CCTT 
...X« FROM CIAL TO 
» CILAL 



BUILD RL LIB 

SYSTEM DIR 
RECORD -RCD2- 



D2 *. 
.« IS *. 

.« NEW ALLOC *. 
.SPECIFIED FOR. 
». RL LIB .« 



* MOVE NEW RL 
•LIB ALLOC, CCTT, 

* FROM CIAL+4 

* TO RLLAL 



E2 ». 

.« IS ♦. 

.» NEW ALLOC ♦. 

•.SPECIFIED FOR. 

•. SS LIB .» 



••»E3*»*»»»»» 

MOVE NEW SS 

LIB ALLOC, 

CCTT, FROM 

CIAL+8 

TO SSLAL 



»»*«D4**««**«** 

INIT TO BUILD 

SS LIB SYST 

DIR RECORD 



» BUILD SS LIB ♦ 
♦SYST DIR RECORD* 
* -RCD3- * 



»«*«F2»»»**«»*» 

SAVE ALLOC 

DATA IN CIAL, 

INIT TO BUILD 

CI LIB SYST 

DIR RECORD 



•COMPUTE MAXIMUM* 
» ALLOCATION BY ♦ 

• ADDING ALL » 

* ALLOCATIONS * 



««*«F4** •*****• 

INIT TO WRITE 

ALLOCATION 

RECORD SYST 

DIR RECORD 4 



•»*«»*•• 



AROUND 

♦»##»G4« 
*WRITE 



WRITE ALLOC 

RECORD ON 

SYS002 



H2 *. 

.•IS ALL ». 

.•OF VOL CYL 

. WITHIN NEW 

♦. SYSRES . 

•.XTENT.* 

'•NO 



* SET CI LIB • 
•COPY IN PROCESS 

* BIT ON IN • 

* SWITCH, BIT 7* 



» BUILD CI LIB 
•SYS DIR RECORD 
» -RECORD 1- 



J3 •. 

.IS ALLOC*. 
• SPECIFIED 

FOR CI 
». LIB 



»««*K3*****«** 
INIT FOR 
BUILDING RL 
LIB SYSTEM 
DIR RECORD 
-RECORD 2- 



♦•**»H4* 
•RESET ALL BITS 
•TO IN SWITCH^ 

• EXCEPT COPY 

• STMNT PROC. • 

• -BIT 3- • 



SYSRDR 
EOF 
• J5 



YES. 

X 

•WL • 
• A2^ 

* • 

END 



THIS SWITCH IS 
SET TO BRANCH 
IN THE RTN 
CHART WL-C3 



X 
* 2 
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Chart WD. Process ALLOC Control Statement CORGZ; Refer to 
Organization, Chart 46 
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DELIMITER 
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DELIMITER 

- A BLANK . 
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♦ INIT POINTER, 
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• INIT FOR CI 
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* PROCESSING 




» PROCESSING ♦ 


• PROCESSING ♦ 
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* 
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.* ALLOC FOR » 
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.» ALLOC «. NO 


CI LIB 
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». FOR SS LIB .».. 



CONVRTK 

•♦•••B4»*»«»»»»»» 
•CONVRT WS« 

» CONVERT ALLOC » 
•TRKS TO BINARY * 
•STORE IN CIAL+2* 



• MORE •. YES 

OPERANDS TO .*.... 
». PROCESS .« 



X 

»WB « 
• C2« 

READ 



• SET BIT OFF* 

• IN SWITCH TO 
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•OPERANDS PROC- 

• ESSED -BIT 4- 



El •. 
.• HAS •• 

» ALLOC FOR •. 
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». PROCESSED.* 



E2 •. 
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E3 •. 
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•INCR REG 2 BY 

* TO POINT TO 

* NEXT COL 



*»»««F1******* 
* SET CI LIB » 
*ALLOC PROCESSED 
» BIT ON IN * 
» SWITCH, BIT 7* 



*«»«»F2*****»* 

* SET RL LIB * 
*ALLOC PROCESSED 

* BIT ON IN * 

* SWITCH, BIT 6* 



«««»*F3***»*»» 
» SET SS LIB » 
♦ALLOC PROCESSED 

* BIT ON IN * 

* SWITCH, BIT 5* 



»»»«F4^*«»*** 
INIT POINTER* 
AND COUNT FOR* 
STORING ALLOC 
TRACKS VALUE * 



INIT POINTER* 
AND COUNT FOR* 
STGRING ALLOC 
CYL VALUE * 



*INCR REG 2 BY !• 

• TO POINT TO • 

• NEXT CHAR • 



♦INCR REG 2 BY 1* 

♦ TO POINT TO * 

* NEXT CHAR * 



*INCR REG 2 BY 1* 

* TO POINT TO * 

* NEXT CHAR » 



.* ALL *. 

YES .* OF TRACKS *. 
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».IN BUCKET.* 



* Dl* 
* • 

ERROR? 



VALID ♦. 
CC CHAR 
COUNT .♦ 



J2 ♦. 

-* ALL *. 

.* OF CYL ♦. 

.SPECIFICATION. 
♦ .IN BUCKET. ♦ 



NO .* IS 
...♦. DELIMITER 
*. A COMMA . 



NO .* VALID * 
...*. TRACKS CHAR 
*. COUNT .» 



*MOVE CHAR INTO • 
•BUCKET AND TEST* 
* FOR NUMERIC * 



»««««K 3******* 

* SET BIT ON ♦ 
« IN SWITCH TO * 

* INDICATE MORE 

* OPERANDS • 

* -BIT 4- ♦ 



•MOVE CHAR INTO • 
*BUCKET AND TEST* 
* FOR NUMERIC * 
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Chart WE. Analyze Copy Statement Type CORGZ; Refer to 
Organization, Chart 47 



INIT COUNT • 
AND LIBRARY 
NAME FOR CI 
LIB COPY 



WP 



GETDIR X 

NEWRO 

READ SYS OIR 

»RCD 1, 2 OR 3* 

FROM SYS002 



• IS • 

THIS A 
•COPY STMNT. • 



♦ CLEAR PHASE, * 
•BOOK OR MODULE • 
•NAME BUCKET AND* 
•PROG NAME BUC- • 

• KET TO BLANKS • 



• REG Z, TO 1ST 
•NON-BLANK CHAR 



OTHER X 

* SAVE LIB IND 
•FROM OPERATION 

• FIELD IN AREA 

♦ SVTYPE 

♦ -2 BYTES- 



El ♦. 




*«»»»E2^^^**^^«* 






•BLKLUP WN 


.• IS •. 


NO 




•. THE OPERAND . 




• INIT POINTER, 

• REG 2, TO 1ST 

• OPERAND 


♦. ALL .• 








». .* 


X 




• YES 


•wu » 

• B5^ 
♦ » 


j 




ERR0R5 


X 


X 






««*««F1^^**^*» 




F2 *. 


• SET COPY ALL^ 




.» TEST •. 


• SWITCH ON • 




.• SVTYPE. *. 


• SWITCH. BITS * 


♦.IS STMNT FOR . 


» 0, 1, 2, 5, &• 
• AND 7 • 




♦. SS LIB .♦ 

♦ . . ♦ 

♦ . .♦ 



X 

• «•«• 

♦wu ♦ 

♦ B2^ 



F3 ♦. 

.♦ TEST ♦. 

.♦ SVTYPE. ♦. NO 

.X^.IS STMNT FOR .♦... 

•. RL LIB .• 



F4 ♦. 

.♦ TEST ♦. 

♦ SVTYPE. ♦ 

IS STMNT FOR 

♦. CI LIB .* 



D5 ♦. 

.♦ ALLOC ♦. 
SPECIFIED 
ON SYS002 

.FOR THIS . 
♦. LIB .♦ 

*' YES 



E5 ♦. 

.♦ ALLOC ♦. 

.♦ SPECIFIED ♦. 

.ON SYSRES FOR, 

♦.THIS LIB .♦ 



INIT FOR • 
OPERAND SCAN 
OF COPY 
STMNT 



♦ BI^ 
♦ « 

ERRORl 



«WF ♦ 
♦ B3^ 



READ SYS DIR 

♦ RECORD NO 1 

FROM SYS002 



♦ B2^ 

« ♦ 

BLDDE 



.♦ HAS ♦. 

COPYS ALL ♦. 
STMNT BEEN . 
.PROCESSED.* 

♦ . • ♦ 

fi. .« 
♦NO 


YES 

X 

♦ 

• 1 
♦ 
«•♦ 


♦ 
« 


♦ . 


.♦ HAS ♦. 

♦ COPYR ALL 

♦.PROCESSED. 
♦ . .♦ 

♦ . •♦ 
•NO 


X 

♦♦H2^^^*^^^ 
INIT COUNTS^ 
AND LIBRARY • 

NAME FOR 
SS LIB COPY ♦ 








X 

•♦•H3^^*^^^^ 

INIT COUNTS 

AND LIBRARY 

NAME FOR 
RL LIB COPY 













.• HAS ♦. 

.* COPYC ALL •. YES 
». STMNT BEEN .«... 
♦. PROCESSED. • 



••*««H4^ •••••♦ 

* INIT TO READ^ 

• SYS DIT RCD ♦ 

• NO 1 AND SET 
♦CL LIB IN PROC» 

♦ SW ON • 



♦ INIT TO READ* 
♦SYS DIR RECORD^ 

♦ NUMBER 3 AND 

♦ SET SS LIB IN^ 

♦ PROC SW ON ♦ 



♦••»«J3«^^*^^^ 

• INIT TO READ* 

• SYS DIR RCD ♦ 

♦ NO 2 AND SET ♦ 
♦RL LIB IN PROC^ 

♦ SW ON ♦ 



• «*•• 
•WB * 

* E2* 
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Chart WF. Scan Copy Statement Operands CORGZ; Refer to 
Organization, Chart 47 



.• THIS CHAR •. YES 
«. A PERIOD .*.... 
♦. -DOT- .• 



• RESTORE NAME 
•FIELD FULL SW, 

• OVRFLH. TO 

• A NOP ♦ 



SET MORE 

OPERANDS 

SWITCH ON 

SWITCH, BIT4* 



IS 
THIS CHAR 
. A BLANK . 



SET DOT 

FOUND SW 

OOTSWT, BIT3- 



OVRFLW .♦. 

.•NAME FIELD • 
•. BUCKET FULL 



••••F3***«**»* 

MOVE CHAR TO 

CURRENT NAME 

FIELD BUCKET. 

REG 7 IS 

POINTER 



••••*G3********* 

• INCRREG 7 TO 

• POINT TO NEXT 

• BYTE IN NAME 

• FIELD BUCKET 



.» NAME • 
.FIELD BUCKET 
•. FULL .• 



•••••E A* •••••■ 

• RESTORE REG 6 

• TO MAX. COUNT* 



INCR POINTER, 

REG 2, PAST 

PERIOD 



SET NAME • 

FIELD FULL SW^ 

-OVRFLW-ON, • 

. THIS CHARTS 

BLK E3 • 



• BR 



DISPLAY 
ERROR 

MESSAGE 
3C21I 



GONXT 

•UPDATE 



»•••••••• 



• INCR POINTER, ♦ 
•REG 2, FOR NEXT* 

• OPERAND CHAR • 



K4 •. 

.» HAS ♦. 

.• A PERIOD •. 

.BEEN DETECTED. 

♦. IN THIS .• 

•.OPER .* 



• YES 
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Chart WG. Initialize to Build Library Directories on SYS002 
CORGZ; Refer to Organization, Chart 47 



••••B2******* 

RESTORE NAME« 

FIELD FULL SW» 

TO NOP, OFF 

-OVERFLOW, • 

CHART WF-E3* 



• SET . FOUND • 

• SWITCH OFF 

• OOTSWT, BIT 3* 



• SS LIB 

IN PROCESS 
•. SW ON . 



C3 ♦. 
.« IS • 

THE COPY 

A .ALL 

.FUNCTION 



.•. TURNSW X 

D3 ♦. ♦••*»D4»»»»»»* 

.• HAS •. ♦ SET DOTSWT • 

• A .NAME ». NO ♦ BITS 4, 5, 6 » 

BEEN SPECI- ...... • AND 7 FROM 

». FIEO .» . • SWITCH BITS • 

♦. .• . • 4, 5, 6 AND 7 

'•YES '. 

I I xl 

X X 

« • • • 

♦ 3 • • 2 • 



.» SUB-LIB ♦ 
. X«. FOR COBOL OR 
«. ASSEMB .♦ 



.• THIS A 

. COPY ALL 

•.FUNCTION 



.• HAS •. 

• A BOOK 

NAME BEEN 
•.SPECIFIED. 



•MOVE BOOK NAME • 
•TO NAME FIELD+1^ 
• -A BOOK NAME * 
•OR C BOOK NAME-* 



SET CI LIB • 
ALL SW ON 
-SWITCH, BIT 2- 



YES .• CI LIB IN ♦. 

PROCESS SW . 

• . ON 



.♦ IS •. 

• RL LIB IN 
PROCESS SW 

• . ON 



SET SS LIB • 
ALL SW ON 
-SWITCH, BIT 0- 



SET RL LIB • 

ALL SW ON 

■SWITCH, BIT 1- 



• B5* 
ERRORS 
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Chart WH. Build Core Iirage Library Directory on SYS 002 
CORGZ; Refer to Organization, Chart 47 



READ RL SYS DIR 

• RECORD FROM ♦ 

SYS002 



.« IS ♦. 

• CI LIB 

IN PROCESS 
•. SW ON . 



READ CI DIR 

BLOCK FROM 

SYSRES 



»INIT POINTERS. ♦ 
»REG 8 EQ CI DIR* 

• ENTRY LENGTH ♦ 
»REG 9 EQ END OF* 

• CI DIR BLOCK * 



» B2» 
TSTRL 



.♦ IS ». 

.« RL LIB • 

.ALLOCATED ON 

♦. SYS002 .• 



«CA«»»«»* 
DISPLAY 

ERROR 
MESSAGE 

3C40I 



» B2» 
TRYSS 



COPY ENTRIES 

FROM SYSRES TO* 

SYS002 CI DIR 



E2 ». 
.* IS *. 

YES -* THIS A *. NO 

....*. CI LIB COPY .*... 

*.ALL FUNC-.* 

».TION .* 



*WU-J3 
WJ-H3 
WJ-Gl 
WK-F4 



E3 *. 
.* IS ». 

* THIS A * 

CI LIB .ALL 
•.FUNCTION .* 



Gl *. 
.* IS *. 

.* THIS A *. 

.COPY ALL LI- . 

*. BRARIES .* 

*.FUNC..* 

'*YES 



*TURN OFF CI LIB 
* IN PROCESS SW * 
*-SWITCH, BIT 7* 



•*«**J1*»«*»*»**« 
*INIT TO READ RL* 
♦SYS DIR RECORD * 

* FROM SYS002 * 
•AND TO COPY RL * 

* DIR * 



* POINT TO DIR 
•ENTRY FOR THIS 

* PHASE 



•MOVE THIS ENTRY* 

* TO THE NEW * 

* CI DIR * 



♦**«E4******^^^ 

INIT REG 4 TO 

CONTROL PHASE 

COMPARE INST 

LENGTH 

-4 BYTES 



• G4* 

• •*• X 

TSTDEL .*. 

G4 *. 
.* IS *. 

.♦NAME FIELD • 
*.4 CHARACTERS 
*.IN LENGTH.* 



POINT TO LIKE 

PHASE NAME. 
RET. IF FOUND 



RRTURN X 




* B5* 




X 


••^•♦H3««***** 




» • 




«««*«H5**^******* 


* SET .ALL • 




* 




*NXTONE WR* 


♦ SW OFF • 




ERRORS 






* -DOTSWT, BITS * 

* 5t 6i AND 7 » 








♦ UPDATE SEARCH * 








*FOR NEXT ENTRY • 


♦ ♦ 








*K4 




♦•** • 










* * • 










*WR *... 










* Gl* 










•••« X 










SEEIF .*. 


J3 ♦. 








J5 *. 


.♦ ARE *. 








.* *. 


.*THERE MORE *. NO 








NO .* ANY *. 


♦. OPERANDS IN .*.... 








...*. ENTRIES .* 


•THIS STMNT.* 








*. FOUND .* 










. *. .* 


*. .* X 








X *. .* 


♦YES ***** 








••♦*• ^YES 


*WB • 








• WU * 


• C2* 








* D2» 


. * * 








• * X 










• •♦•♦ 


READ 








ERRORS * * 


X 


*K4 






• 2 • 


«»«»*K3********** 


RETURN IS TO 


SEEIFt 


* * 


*UPDATE WN* 


i'^h 


WHEN SYSRES DIR 


• *•• 




IS FOUND. 






♦ INCR POINTER, * 


IF 


NOT END OF 


SYSRES 




* REG 2 PAST * 


DIP 


, CONTINUE 
DOTF BLOCK 


SEARCH 




COMMA 


AT 


F5. 




I GETDIR+4 
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Chart WJ. Build Relocatable Library Directory on sys002 
CORGZ; Refer to Organization, Chart 47 



B2 •. 
.• IS •. 

• RL LIB •. NO 
IN PROCESS .•... 
♦. SW ON .• 



READ RL LIB 
•DIR BLK FROM 
SYSRES 



•♦•••02» 

• INIT POINTERS ♦ 
•REG 8 EQ RL DIR« 

• ENTRY LENGTH • 
•REG 9 EQ END OF^ 

• RL DIR BLOCK • 



E2 •. 
.• IS ». 

.• THIS AN ♦. NO 

. RL LIB COPY 

ALL FUNCTION* 



COPY ENTRIES 

FROM SYSRES T0» 

SYS002 



Gl ». 
.• IS • 
.♦ THIS A 
.COPY ALL LI 
•.FUNCTION 



• THIS AN • 

RL LIB .ALL 
•.FUNCTION .• 



• POINT. TO DIR 
•ENTRY FOR THIS 

• PHASE 



••••G4********i 

INIT REG 4 TO 

CONTROL PHASE 

COMPARE INST 

LtNGTH 

-3 BYTES- 



•♦••♦H3«^* 




• MOVE 




WT^ 


♦-•-♦-•-»- 


• -• 


-♦-• 


•MOVE THIS 


ENFRY^ 


• TOTHE 


NFW 


• 


• RL Dl 


R 
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Chart WK, Build Source Statement Library Directory on 

SYS002 CORGZ; Refer to Organization, Chart 47 



TRYSS X 

•••••B2********** 
♦INI7 TO READ SS« 

♦ LIB SYS DIR • 

♦ RECORD FROM • 

♦ SYS002 AND TO ♦ 
♦COPY SS LIB DIR« 

X 
••«»««C2 

DIRGET WS 

READ SS LIB 

♦ SYS DIR RCO • 

FROM SYSRES 



.» SS LIB *. NO 
•.ALLOCATED ON .»... 
». SYSRES .♦ 



READ SS LIB 
SYS DIR ROD 
FROM SYS002 



.• IS •. 
.♦ THIS AN •. Nl 
•SS LIB COPY ALL«. 
•.FUNCTION .• 



COPY ENTRIES 

• FROM SYSRES 

TO SYS002 



• THIS AN • 

SS LIB. ALL 
•.FUNCTION .• 



**««D4^ •••••••< 

INIT REG4 TO 

CONTROL PHASE 

COMPARE INST 

LENGTH 

-9 BYTES- 



••••D5^^**^^**4 

INIT REG4 TO 

CONTROL PHASE 

COMPARE INST 

LENGTH 

-1 BYTE- 



X 

*f*E^*** ****** 

• SINGLtf+4 WR 

• POINT TO DIR 
•ENTRY FOR THIS 

• PHASE 



• F5» 
DOTF 



.•IS rf. 
.• SS LIB •. NO 
.ALLOCATED ON .•... 
•. SYS002 .• 



ISSS X 

••••♦G2*^»«^^^«^ 

♦ INIT REG8 EQ 
♦THE SS LIB DIR 

• ENTRY LENGTH 



READ SS LIB 
♦DIR BLK FROM 
SYSRES 



INIT REG 9 EQ 

END OF SS LIB 

DIR BLOCK 



• MOVE THIS ENTRY' 

• TO THE NEW 

• SS LIB DIR 
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Chart WL. Build SYS0 02 Core Image Directory Entries for $ 
Programs CORGZ; Refer to Organization, Chart 46 



A2 «. 
.« HAS ». 

ALL OF CI 

LIB BEEN 

. COPIED . 



*DI 
i.SET NAME EQ $ 
2. SET DISK ADDR, 

NEWDSK, FOR CI LIB 

SYS DIR 
3. SET CONTROL DATA, 

COUNT, FOR CI LIBRARY 



B2 ». 
.« HAS ». 

* A COPY 

STMNT BEEN 
♦.PROCESSED. 



SET CI LIB * 

IN PROCESS SW» 

ON. 

-SWITCH, BIT7« 



»INIT TO CREATE 
»CI DIR ENTRIES 
» FOR ALL 
« $ PROGRAMS 



I.REG EQ ADDRESS OF 

SYSRES SYS DIR INPUT 

AREA 
2.REG7 EQ SYSRES CI LIB 

DIR STARTING ADDRESS 
3. DISK ADDRESS OF SYSRES 

CURRENT DIR RECORD 

IS IN OLDPSA. 



READ CI LIB 

SYS DIR RCD 

SYS002 



»»«««F2* ♦•»♦«»•»* 
•INIT FOR CI LIB» 

* DIR BLK FROM » 

* SYSRES • 



*»C3»«»*»»» 




SET SW • 


*NXTONE WR* 


RTREND TO * 




A BRANCH » 


•UPDATE~FOR~NixT* 


CHART WC-JA ♦ 


:!i5MJi;^§:srI 


• «*»«»L *♦* 






* 


«•«• . 




• ♦ . 


X 


♦WR ♦... 


«»»»• 


♦ F2^ 


»WC • 


♦ ♦♦« 


•^C2» 


STEXIT X 




•♦•*»D4^^^^^^^^^^ 




♦WRTSD WQ^ 


FRMDIR 






♦~*~ write" the"*"* 




•CURRENT SYS DIR^ 




♦ RECORD ♦ 
«♦♦♦«♦««♦♦«*♦♦««« 




♦ ♦♦« I 








♦ 2 ♦... 












EXIT X 








♦ ♦ 




♦ LOAD REG13 ♦ 




♦ WITH VOL CYL ♦ 




♦ ADDRESS ♦ 




♦ ♦ 



RETURN IS TO STEXIT, 
D4, WHEN THE END OF 
THE DIR IS REACHED 
ON SYSRES 



♦ E5 
THE SWITCH RTREND, 
WHEN A BRANCH, 
FORCES A RE-ENTRY 
INTO THE END 
AT FRMDIR 



♦♦««F4^^^^^^^^ 

SVC 1 

FETCH C0RGZ2 

CHART WW 



READ CI LIB 

DIR BLOCK 
FROM SYSRES 



REG 8 EQ DIR ENTRY 


»«#«»H2 ♦♦♦♦♦♦♦♦♦ 


LENGTH 




REG 9 EQ END ADDRESS 


♦INIT REGISTERS 


OF DIR BLOCK 


♦ FOR DIRECTORY 


REG 4 EQ. 0. BYTE 


♦ SEARCH 


COUNT TO CONTROL 


♦ ♦HI 


SEARCH COMPARE 




INST LENGTH 


, 


REG 5 EQ RETURN 




ADDRESS WHEN END 




OF DIR IS FOUND 


I 




X 




♦EXCMP WR 




«_«_»_»_»_«_«_,,_ 




♦ SEARCH FOR 




♦ $ DIR ENTRIES 




♦ ON SYSRES 



MOVE $ ENTRY 

TO SYS0C2 CI 

LIB DIR 
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Chart WM, Build System Directory Records and Format System 
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•••• A 1» •••••••• 

• BUILD • 



COMPUTE DIR 
ENDING ADDR 
HH IN REG 6 



••••Bl»****o*** 

INCR POINTER, 

REGIOt FOR 

CURRENT LIB 

ALLOC 



♦ INIT COMPUTA- 
♦TION CONSTANTS 

♦ FOR THIS 

• LIBRARY 

• ♦BZ 



GET AUTOMATIC 

CONDENSE 

INFORMATION 

FOR THIS 

LIBRARY 



COMPUTE 

STARTING CYL 

FOR NEXT 

LIBRARY 



CYLINDER COUNT 
BLOCKS PER DIR TRACK 
ENTRIES PER DIR BLOCK 
LIB BLKS PER TRACK 



•C2 
THE DIR AND LIB CURRENT 
ADDRESSES ARE EQUAL TO 
THE DIR AND LIB STARTING 
ADDRESSES RESPECTIVELY. 



•D2 
DIRECTORY TRACK ALLOCATION 
I S DIVIDED BY 10. THE 
QUOTIENT IS THE NUMBER OF 
FULL DIRECTORY CYLINDERS. 
THE REMAINDER IS THE 
NUMBER OF TRACKS IN THE 
NEXT CYLINDER. 



•E2 
COMPARE OLD STARTING 
ADDRESS TO NEW DIRECTORY 
STARTING ADDRESS. IF 
EQUAL THE LIBRARY HAS NOT 
BEEN ALLOCATED. 



.• DIR •. 

• END HH • 
EQ TO OR GT 



•••••C3»«*««»«*» 

• DECR DIR END 
•CC BY 1 AND SET 

• REG6 EQ 9 



»*B5 ** 

INIT FOR 

• FORMATTING THE 

DIR FOR THIS 

LIBRARY 

• H4 



• WRITE SYS DIR • 
•RECORD FOR THIS* 

• LIB ON SYS002 • 



STORE THE DIR 

END ADDRESS 

FROM REG6 

AND REG9 



•♦••*E3 

• SET THE DIR 
•AND LIB CURRENT 

• DISK ADDRESS 



FORMAT, WRITE, 
•I DIR RECORD 
ON SYS002 



INCR SEEK/ 
• SEARCH CNT 
ADDRESS BY I 



E5 ♦. 
.• HAS •. 

• LAST DIR 

BLOCK BEEN 
•• WRITTEN . 



•••FI******** 

COMPUTE 

CURRENT LIB 

ENDING 

CYLINDER 



• ♦•••F3^»««*^»*' 

• ZERO FIELDS 

• 7-11 OF SYS 

• DIR RECORD 
•-BLOCK COUNTS- 



••F5«««**«« 

RETURN TO 

CALLING 
SEQUENCE 



ADDR IN DPEA 
AND LPSA FOR 
MODIFICATION 



•••••G3**^ •••••• 

• COMPUTE AND 

• STORE FIELDS 

• 8 AND 9 -LIB 
•TOTAL AND AVAIL 

• ABLE BLOCKS- 



•COMPUTE NUMBER 

♦ OF CYLINDERS 

♦ REQUIRED FOR 

♦ CURRENT DIR 



•••••Jl««*»*«**** 
» DIR STARTING ♦ 

• ADDR CC PLUS ♦ 
•DIR CYL REQD EQ» 
•LIB STARTING • 

• ADDR CC • 



•••••H2^*^******* 
•MOVE BLANK INTO* 

• 1ST BYTE OF ♦ 
•DIR STORE ADDR ♦X. 

• TO IND NO ♦ 

• ALLOCATION • 



WRITE SYS DIR 

RECORD ON 

SYS002 



H3 •. 
.• HAS •. 

THIS LIB 

BEEN ALLOC 

•E2 



.J3 •. 
.• HAS •. 

DIR ALLOC •. NO 

BEEN MADE .♦... 
.FOR THIS .• 

♦. LIB .• 



_ _ b. DISKAD, IS SET 

_ . _ DIRECTORY STARTING ADDRESS 

MINUS ONE RECORD. 

THE COUNT FIELD CCHHR FOR WRITE CKO IS 

SET EQUAL TO THE CCHHR OF THE DIRECTORY 

STARTING ADDRESS. 

KEY LENGTH EQUAL ZERO. 

DATA LENGTH EQUAL 

. 360 IF CI LIB DIRECTORY. 

. 322 IF RL LIB DIRECTORY. 

. 150 IF SS LIB DIRECTORY. 

I/O AREA, RESDIR, IS SET TO ZEROS WITH 

AN ASTERISK IN THE 1ST BYTE. 

THE WRITE CKD CCW IS MOVED TO THE WRITE 

CCW FOR THE SUBROUTINE WRITE. 



• YES 



THE LIB 

STARTING 

ADDRESS HH 



••K2^^«^»** 

RETURN TO 

CALLING 
SEQUENCE 



K3 ♦. 
.♦ LIB •. 

.•START ADDR •. 

•EXCEED LIB END. 

•. ADDR .• 



• 1 • 

• • 
• ••« 
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Chart WN. UPDISK, BLKLUP, UPRITE, and TSTNUM Subroutines 
CORGZ; Refer to Organization, Charts 46 and 47 



BLKLUP 



»*A3»*»*» 
UPRITE 



UPDISK 

• INIT REG 3 AS * 
♦POINTER TO THE • 
» DISK ADDRESS » 
♦RECORD NUMBER- * 
» -R OF CCHHR- ♦ 



« INCR POINTER, 
•REG 2, TO NEXT 
» CARD COL 



1 ». 


C2 •. 




.• IS • 


END ». NO 


.» THIS 


OF .*.... 


♦. COL BLANK 


TRACK .» 





* SET R EQ 01. 
« DECR POINTER, 
»REG 3, BY 1 TO 
•POINT TO TRACK 

• NUMBER 



El *. 

END 
OF 
TRACK 



• YES 



•«»«F1*«»»^»»»^ 

SET HH EQ 00. 

LOAD REG 3 AS 

POINTER TO 

CYL 

NUMBER 



«*««GI«** **•••• 

INCR R, HH, OR 

CC BY 1 USING 

REG 3 AS 

POINTER 



««H1»^^*^«^ 
RETURN TO 

CALLING 
SEQUENCE 



D2 


• . 




.« VALID ♦. 




STARTING POINT, 


NO 


FOR AN 




». OPERAND .• 










X 


•YES 


***** 




*wu ♦ 






* Bl* 


















ERRORl 






•••«E2*«^ •*•••• 


RETURN TO 


• 


CALLING 




SEQU 


:nce 


• 



UPRITE 

«*«'»*B3^^* •••••• 

• INIT REG 3 AS 
•POINTER TO THE 
•COUNT FLD DISK 

• ADDR RCD NO. 

• -R' OF CCHHR- 



C3 •. 

END '•. NO 
OF .♦... 
TRACK .• 

**YES 



• SET R EQ 01. 

• DECR POINTER, 
♦REG 3, BY 1 TO 
♦POINT TO TRACK 

• NUMBER 



END 

OF 

TRACK 



• SET HH EQ 00. 

• LOAD REG 3 AS 
•POINTER TO CYL 

• NUMBER 



*A5»^»«« 
UPDATE 



• INCR CARD COL ♦ 
•POINTER, REG 2,« 

• BY 1 « 



C5 •. 

.•END OF •. 

STMNT I/O 

AREA 



**E5**^i**** 
RETURN TO 

CALLING 
SEQUENCE 



• F5 
THE ADDRESS IN REG 2 
IS COMPARED TO THE 
ADDR OF THE STMNT 
I/O AREA, CARD, + 71 



♦INCR R, HH, OR • 

♦ CC BY 1 USING • 

♦ REG 3 AS ♦ 

♦ POINTER • 



••**G4*«*^« 
TSTNUM 



«*«««H3^*»*«*»** 

• SET SEEK/SRCH 

• ADDR EQUAL TO 
•COUNT FLD DISK 

• ADDR MINUS 1 
» RECORD 



••J3»*«^«»* 
RETURN TO 

CALLING 
SEQUENCE 



X 

WU • 
F5» 



**K^********* 
RETURN TO ♦ 
CALLING ♦ 
SEQUENCE ♦ 
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Chart WP. WRITE, NEWRD, lOSYSRS, and READDR Subroutines 
CORGZ; Refer to Organization, Charts 46 and 47 



WRITE 



«A3««»«* 
NEWRD 



•«*»A4«***** 
♦ lOSYRS 



•««*A5**««« 
READDK 



LOAD THE ADDR 

OF THE SYS002 

WRITE CCB IN 

REGISTER 1 



»DISKAD, FOR THE 
•DESIRED SYS002 
•SYS DIR RECORD 
• FROM NEWDSK 



• INIT THE CCWt • 
•VARCCW, TO READ* 

• A SYS DIR • 

• RECORD FROM » 

• SYSRES • 



»»mm-»C3* ******** 

• SET THE CCW, 
•VARCCW, TO THE 

• SYS002 READ 

• SYS DIR CCW, 

• NEW CCW 



lOSYRS 

♦"load THE*ADDR* 

♦ OF THE 

• SYSRES CCB 

* IN REGl 



.♦ I/O • 

COMPLETE 
-TEST CCB- 



• SVC 7 ♦ 
•PLACE SYSTEM IN^ 

• WAIT STATE * 



««E2*»«^»^* 

RETURN TO 

CALLING 
SEQUENCE 



LOAD THE ADDR 

OF THE SYS002 

CCB IN REGl 



**«*««E3^*«^*^^^ 
-SVC 0- 
• READ SYS DIR 
RECORD FROM 
• SYS002 



.• I/O * 

COMPLETE 
-TEST CCB- 



*«««D5 •••••••• 

-SVC 0- 
READ DESIRED 
RECORD FROM 
♦ SYSRES 



.* I/O ♦. 

COMPLETE 
-TEST CCB- 



*«*«F 4* •*••** 

• RETURN TO 

• CALLING 

• SEQUENCE 



«««»F5»*»**«« 

* SVC 7 
•PLACE SYSTEM 

♦ WAIT STATE 



*»««G2»«^^^*«»» 


*«*»G3»*^»»» 


RETURN TO • 


SVC 7 


CALLING • 


•PLACE SYSTEM 


SEQUENCE ♦ 


• WAIT STATE 
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Chart WQ. M0VE2, MOVECC, CPYALL, and WRTSD Subroutines 

CORGZ; Refer to Organization^ Charts 46 and 47 



• CPYALL • 



• END 

OF OIR FOR 
•.THIS LIB . 



•MOVE THIS ENTRY^ 

• TO SYS002 DIR • 

• OUTPUT AREA • 



RESTORE THE 

CURRENT OIR 

ADDR, DISKAD, 

FROM SAVE 



• •• 


MRTSD X 


C2 •. 


•••*«C 3* ••••••••• 


IS •. 


♦INIT SEEK/SRCH • 


THIS A •• 


♦ ADDR AND CCW ♦ 


DELETED .• 


♦ TO WRITE SYS ♦ 


ENTRY •• 


• DIR RECORD ON • 


•• •• 


• SYS002 ♦ 





«««D2^^^^^*^^ 


• ♦ 


♦•••••03 








WRITE WP 




SAVE THE 








CURRENT DIR 




WRITE SYS DIR 




ADDR, DISKAD, 




• RECORD ON • 




IN SAVE 


^* 


SYS002 



RESTORE DIR 
STARTING DISK 
ADDR RECORD 
NO., DPSA+6 
TO 01 



rlstore lib 

ending disk 

addr head 

NO., LPEA+5 



*fo 09 



••••A4^ •••••••• 

• MOVE 2 • 



•LOAD EXIT REG, 



•B5««««* 

MOVECC 



• SHIFT CHAR • 

• IN BUCKET 1 • 
•POSITION TO THE* 

• LEFT • 



• MOVE NEW 
•CHARACTER INTO 

• BUCKET ♦ 5 



DECK BUCKET 
POINTcR bY i 
TO INIT FOR 
NEXT SHIFT 



TEST CHAR FOR 

NUMERIC VALUE 

0-9 



• I NCR POINTER 

• REG6, TO NEXT 

• DIR ENTRY 



••G3^***«*» 

RETURN TO 

CALLING 
SEQUENCE 



••G5»»«»»» 

RETUf<N TL- 

CwLLlNG 
SEyUfcMCE 



«««*«H3«^^*^^*«^ 
•UPDISK WN 

X« UPDATE DISK*" 

• ADDR FOR NEXT 

• OIR BLOCK 

X 
J3*»*»***** 

READDK WP 

READ A DIR 

• BLOCK FROM • 

SYSRES 



••••♦K3«««^»^»»< 

• INIT POINTER, 
•REG6, TO POINT 

• TO 1ST DIR 

• ENTRY 
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Chart WR. SINGLE, EXCMP, LKDOT and NXTONE Subroutines 

CORGZ; Refer to Organization, Charts 46 and 47 



• SINGLE 



SINGLE 

• INIT REG 4 

• WITH A 7 TO 

• CTRL THE 

• COMPARE INST 

• LENGTH 



•*«*A3*«*** 
LKDOT 



•A4********* 
NXTONE 



LKDOT 

♦ ••♦#B3< 

• INIT REG 5 TO 
♦EXIT TO SEEIF, 
•CHART WH FOR A 

♦ NOT FOUND 

• CONDITION 



••••♦Cl« 

• INIT REG 5 TO 
•EXIT TO ERRORS, 
•CHART WU FOR A 

• NOT FOUND 

• CONDITION 



• INCR POINTER, 

• REG 5. TO THE 
•NEXT DIRECTORY 

• ENTRY 



NO .♦ END • 
...•.OF DIRECTORY 
•. BLOCK .• 



E2 ». 

.• IS •. 
• THIS • 

ENTRY TO BE 
•. COPIED .• 



.• IS •. 

• THIS THE 

END OF THE 
•.DIRECTORY. 



• •F3^ 
RETURN TO 

CALLING 
SEQUENCE 





•»»E 4* ••••••••• 




SAVE THE ♦ 




COMPARE INST • 


•1 


ENGTH, REG 4, • 




IN REG • 







UPDATE THE 

SYSRES DIR 

DISK ADDR 



• Gl • 

TAKE THE CORRECT • 

NOT FOUND EXIT. 
IF ENTERED AT 

SINGLE, GO TO ERRORS-CHART HU-D2 
EXCMP, GO TO STEXIT-CHART WL-D4 
LKDOT, GO TO SEEIF-CHART WH-J6 



••«««G4* •••••••* 

• RESTORE THE 

• COMPARE INST 
•LENGTH, REG 4, 

• FROM REG 



READ THE NEXT 

• DIR BLOCK • 

FROM SYSRES 



• INIT THE DIR 

• ENTRY POINTER 
•REG 6, FOR THE 

• 1ST ENTRY OF 

• NEW BLOCK 
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Chart WS, CONVRT and DIRGET Subroutines CORGZ; Refer to 
Organization, Charts 4 6 and 47 



IF A WORK AREA IS EMPTY, 
ALLOCATION HAS NOT BEEN 
SPECIFIED. 



IRGET X 

««•«« B 5 -o- *««***'<'* * 
» INIT REG 6 » 
»AS A POINTER T0» 
»THE SYSRES DIR » 
» INPUT AREA « 



»«»«»C1**«««»»»» 
» PACK DECIMAL 
^ALLOCATION AND 
» CONVERT IT TO 
•BINARY IN REG 4 



SAVE THIS 

ADDRESS IN 

REG 7 



*THIS ALLOC 
FOR THE CI 
». LIB 



.» HAS *. 

.» ALLOC » 
.ALREADY BEEN 
». PROCESSED-* 



**«*«D2»««*»«»«* 
»INCR REG 5 BY 4 
»BYTES TO POINT 
* TO RL LIB 
« ALLOC FIELD 



IS ♦. 

S ALLOC 
THE RL 
LIB 



.» HAS *. 
.» ALLOC «. YES 
•.ALREADY BEEN ...... 

•.PROCESSED.* 



*INCR REGS BY 4 
♦BYTES TO POINT 
» TO SS LIB 
* ALLOC FIELD 



»««»D5»**»***** 
SET SEEK/SRCH 
ADDR EQUAL TO 
THE DIRECTORY 
STARTING ADDR 
FOR THIS LIB 



READ A DIREC- 
* TORY BLOCK 
FROM SYSRES 



RETURN TO 

CALLING 
SEQUENCE 



•STORF ALLOC IN 
» CIAL, FROM 

* REG4, USING 

* REG5 AS A 

* POINTER 



RESET WORK 

AREA, BUCKET, 

TO ZEROS 



♦*J3*»»***» 
RETURN TO 

CALLING 
SEQUENCE 
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Chart WT. MOVE Subroutine CORGZ; Refer to Organization, 
Charts 46 and 47 



MOVE ♦ 



•SAVE REGS 4-13. 

• SAVE SYSRES 

• DIR DISK ADDR 



••*««C1***»*»««» 

• INIT TO READ 

• SYS002 

• DIRECTORY FOR 

• THIS LIBRARY 



SAVE NAME 
OF ENTRY 
JUST FOUND 



•♦•#»B2*««*«««*»» 
♦SET ASTERISK IN« 

• NEXT ENTRY OF • 

• SYS002 DIR TO • 

• INDICATE • 

• LOGICAL END • 



• MODIFY THE • 
•SS LIB CONTROL* 

• CHARACTER TO 

• X-0000- • 



• •••B5 •*•***♦•'* 

UPDATE NUMBER 

OF ACTIVE 

BLOCKS IN 

SYS002 SYS 

DIR RECORD 



SET SS LIB 

CONTROL CHAR 

TC X-OOFF- 



**«**«E1****««*»**< 


E2 «. 


RDSY02 WP 


.• HAS », 




.•LAS ENTRY 


READ DIR BLOCK 


•.OF D R BLOCK 


• FROM • 


•. I.EEN 


SYS002 


•F LLEO.^ 



MODIFY CCW, 

VARCCW, TO 

WRITE 



••••C3^*^^^^^*^ 

UPDATE NUMBER 

OF ACTIVE 

ENTRIES IN 

SYS002 SYS 

DIR RECORD 



••••••D4««**^^^*^^* 


•♦*««D5^»^^»^^^*» 


RDSY02 WP 


• UPDATE NUMBER * 




• OF AVAILABLE • 


WRITE DIR BLOCK 


• BLOCKS IN * 


• BACK ON • 


• SYSQ02 SYS ♦ 


SYS002 


• DIR RECORD * 



.• AVAILABLE ♦ 
. BLOCK COUNT 
•.NEGATIVE .• 



COMPUTE END 
ADDR OF THIS 
DIR IN REG 9 



•MOVE ENTRY FROM^ 
•SYSRES DIR I/O • 
•AREA TO SYS002 • 
• DIR I/O AREA • 



•••»F5^^^^^*»^^ 
UPDATE ENTRY 
NUMBER IN THE 

DIR CURRENT 
ADDRESS, DLSA 



••«**G !••••••• 

• MODIFY CMP • 

• INST LNG FOR • 
•THIS DIR CI OR 

• RL EQUAL 7 • 

• SS EQUAL 8 • 



SET NEW DIR 

CURRENT ADDR 

IN DLSA TO 

UPDATE SD 



♦ RESET ENTRY 

♦ COUNT TO 
♦FOR NEXT BLOCK 



YES .• END 
...... OF DIR 

•. BLOCK 



HI •. 

.•SEARCH •• 
• SYS002 ♦ 

FOR DESIRED 

•. NAME .• 

•. •J2 .• 



•INCR R6 TO NEXT 

• SYS002 DIR 

• ENTRY 



•♦•»«J1«««*^«^«» 
♦-ALREADY PROG- 
RESSED- RESTORE 

♦ REGS 4-13 AND 

♦ SYSRES DIR 

♦ DISK ADDRESS 



♦ J2 

A=DESIRED NAME NOT 

FOUND IN DIRECTORY AND 
THERE IS ROOM TO 
ADD ANOTHER ENTRY. 

B=DIRECTORY OVERFLOW. 
SYS002 DIRECTORY 
ALLOCATION HAS BEEN 
EXCEEDED. 

C=DUPLICATE NAME. IT 
HAS ALREADY BEEN 
PRCCESSED. 



IS 
THIS THE 
. RL DIR 



♦ MOVE BLOCK 
♦COUNT FROM DIR 

♦ ENTRY TO WORK 

♦ AREA, BLKCNT 



•••••K4 ♦♦♦♦♦♦♦♦♦ 

♦ MOVE BLOCK 
♦COUNT FROM DIR 

♦ ENTFY TO WORK 

♦ ARE/., BLKCNT 



SISONT X 

*m*m»K5** ****** 

• MOVE BLOCK 

• COUNT FROM 

• DIR ENTRY TO 

• WORK AREA, 

• BLKCNT 
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Chart i^U. Phase 1 Error Message Routines CORGZ; Refer to 
Organization, Charts 4 6 and 47 



*WB-J3 
WB-F4 
WE-F4 
WN-D5 
WN-D2 



♦WE-El 
WG-J4 
HH-G4 



ERRORl 

«««»«*B1» 
ERRRTN 



DISPLAY ERROR 

» MESSAGE » 

3C10I 



DISPLAY ERROR 

* MESSAGE « 

3C61I 



ERRORS X 
••««»»B3»» 
ERRRTN 



DISPLAY ERROR 

* MESSAGE » 

3C60I ♦H4 



ERR0R4 X 

»«»*»»B4» »»♦»•*»♦ 
ERRRTN WV 

DISPLAY ERROR 

» MESSAGE • 

3C62I ♦H4 



ERRORS 

♦•««*«B5« 
ERRRTN 



DISPLAY ERROR 

* MESSAGE « 

3C21I 



ERROR? 

♦»«»»»D1» 
ERRRTN 



DISPLAY ERROR 

» MESSAGE ♦ 

3C20I «H4 



ERRORS 

«»«««»D2* 
ERRRTN 



DISPLAY ERROR 

* MESSAGE ♦ 

3C33I *K4 



ERR0R9 

»«««»»D3» 
ERRRTN 



DISPLAY ERROR 

♦ MESSAGE * 

3C63I *m 



ERRORA 

»»»»»»D4» 
ERRRTN 



DISPLAY ERROR 

* MESSAGE • 

3C64I ♦H4 



ERRORB 

«»»«»*D5« 
ERRRTN 



DISPLAY ERROR 

• MESSAGE • 

3C40I »H4 



•WD-A4 
WN-J4 
WS-Bl 



ERRORD X 
»»«««»F2**« 
ERRRTN 



DISPLAY ERROR 

» MESSAGE ♦ 

3C30I 



DISPLAY ERROR 

» MESSAGE » 

3C65I 



DISPLAY ERROR 

♦ MESSAGE • 

3C66I 



ERR0R6 X 
ERRRTN 



DISPLAY ERROR 

• MESSAGE » 

3C21I 



• H4 
THE ROUTINE THAT DETECTS THE 
ERROR SETS THE LIBRARY IDENTIFIER 
INTO THE ERROR MESSAGE BEFORE 
ENTERING THIS CHART. THE COMPLETE 
ERROR MESSAGE IS FOUND IN THE 
OPERATORS GUIDE USING THE MESSAGE 
IDENTIFICATION INDICATED IN EACH 
BLOCK. 



♦♦»*J1* ♦«♦»»«♦•» 
ZERO REG TO » 
PREVENT DUMP. • 

-PROGRAM CANCEL* 
REQUEST- * 



♦ SVC 6 * 
♦SIMULATE CANCEL* 
» MACRO * 



*WB 

* c; 

READ 



C2* 



THE NAME OF THE PHASE, BOOK, OR 
MODULE IS SET INTO THIS ERROR 
MESSAGE BEFORE ENTERING THIS 
CHART. 
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Chart WV. ERRRTN Error Subroutine CORGZ; Refer to 
Organization, Charts 46 and tl7 



THIS ROUTINE SERVES AS LINKAGE 
TO THE MAINTENANCE PROGRAM 
COMMON ERROR ROUTINE. 
THE COMMON ERROR ROUTINEi 
THE MSGLST DTF, AND THE DTF 
MODULE ARE INCLUDED IN CORGZ 
AT LINK-EDIT TIME. THEY ARE 
DISCUSSED FULLY IN THE COMMON 
MAINTENANCE ROUTINE, MAINT. 



ERRRTN X 

» INIT REG 1 AS 

• BRANCH REG TO 

• THE COMMON 

• ERROR ROUTINE 



••♦•C2»«*»«*«»» 

SAVE CORGZ 

BASE REGISTER, 

REG 15, IN 

REG 3 



DISPLAY 
DESIRED 
MESSAGE 



ERETRN 

••«««E2«««*«*«*i 

• RESTORE CORGZ 
•BASE REGISTER, 

• REG 15, FROM 

• REG 3 



••••F2*«*«*«» 

RETURN TO 

CALLING 
SEQUENCE 
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Chart WW. Copy Libraries from SYSRES to SYS002 C0RGZ2 (Part 
1 of 2); Refer to Organization, Chart 46 



C0RGZ2 



SWITCH 

BIT 5 - RL IN PROCESS 
BIT 6 - SS LIB IN PROCESS 
BIT 7 - CI LIB IN PROCESS 



• TURN ON CI » 
» LIBRARY IN • 
•PROCESS SWITCH 

* *A2 * 



*»«»C1*»«»*«»* 

INIT FOR CI 

LIB COPY. 

SAVE VOL CYL 

ADDR. 



•B2 



INITIAL 
••♦♦*»D1« 
SYSDIR 



REG 



ENTRY LENGTH 
END OF DIRECTORY BLOCK 
IN INPUT BUFFER 
DISPLACEMENT TO DISK 
ADDRESS IN DIRECTORY ENTRY 
REG 10 =DISPLACEMENT TO BLOCK 

COUNT IN DIRECTORY ENTRY 
THE VOL CYLINDER ADDRESS FROM 
BOTH SYSRES AND SYS002 IS SAVED. 



« LIBRARY 

IN PROCESS 
♦ . *A2 



COREIM X 

«««««C5««*««*«« 

* INIT TO MOVE 

* CI LIBRARY 

♦ FROM SYSRES 

♦ TO SYS002 



READ 1 RECORD 

♦ OF SYS DIR • 

FROM SYSRES 



.♦ IS ♦. 

LIBRARY 
ALLOCATED 



INIT TO MOVE 

SS LIBRARY 

FROM SYSRES 

TO SYS002 



*«*«D4**«**«*** 

INIT TO MOVE 

RELOC LIBRARY 

FROM SYSRES 

TO SYS002 



LOAD BLOCK 

COUNT INTO 

REG 11. 



BUILD NEW 

DISK ADDRESS 

FOR LIBRARY 



READ CI DIR 

BLOCK FROM 

SYS002 



«•««««««*•«« 



READ NEXT 

DIRECTORY 

BLOCK 



READ X 

•»«»**F4*««***«« 
READLB H 

"move block""* 
* from sysres 

TO SYS002 



*G3 
END OF PHASE IF CI LIBRARY 
END OF MODULE IF RELOC LIB 
END OF BOOK IF SS LIB 



BLOCK 

COUNT 

»G3 



COPYIT 

*«««*H1 ******** 

♦ INIT ADDRESS 

* FOR SCAN 

♦ OF DIRECTORY 

• ENTRIES 



«*«*«HA*** ******* 
« RESET REGS * 
« TO ORIGINAL ♦ 

* VALUES IN * 
*PREPARATION FOR* 

* NEXT LIB MOVE * 



• 2 
ENDCHK* 



.* END *. 

OF 
DIRECTORY 



»*#»K1»****»»** 

INIT ADDRESS 

PNTRS TO DISK 

ADDR AND BLK 

CNT IN 1ST 

DIR ENTRY 



UPDATE DISK 

ADDR FOR 

SYS002 



»»*«»K4******** 

* INCREMENT 

* ADDR TO NEXT 

* DIR ENTRY 



X 
♦ »♦ 

• 3 
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Chart WX. Copy Libraries from SYSRES to SYS002 C0RGZ2 (Part 
2 of 2); Refer to Organization, Chart 46 



.« ANY • 
*. ACTIVE BLKS 
*. IN LIB .« 



»B2 
THE CI LIB REQUIRES 
FORMATING. WRITIT 

THE RL AND SS LIBRARIES ♦••*»«B3« 
ARE NOT FORMATED. WRITLB 



WRITE ZERO 
• BLK IN CI 
LIB «B2 



*C2 
REG7 - ENTRY LENGTH 
REG8 - END OF DIR BLOCK 

IN INPUT BUFFER 
REG9 - DISPLACEMENT TO 

DISK ADDRESS IN DIR .* 

ENTRY ». 

REGIO - DISPLACEMENT TO ♦ 

BLOCK COUNT IN DIRECTORY 

ENTRY 



C3 •. 

• END ♦ 

OF CI 

LIBRARY 



innnkC5 ********* 

GET ADDRESSES 

OF LABEL CYL 

ON SYSRES 

AND SYS002 



• E2 
LOCATION SWITCH, 
BIT 6 = SS LIB IN PROC 
BIT 5 = RL LIB IN PROC 



• SS LIB 

IN PROCESS 
». •E2 



♦ LOAD REGS 
♦WITH RELOC LIB 

♦ INFORMATION, 

♦ »C2 



#*»«E3»»»*««*« 
GET ADDRESS 

OF SYS 

DIR RECORD 

NO. 2 



*»*D5« 

SVC 

READ BLK 

FROM 1ST 

LABEL TRACK 

ON SYSRES 



CLEAR LIB 
INPUT AREA, 
1728 BYTES 



*t**G2******* 

LOAD REGS 

WITH SS LIB 

INFORMATION, 

• C2 



TURN ON 

RELOC LIB 

IN PROCESS 

SW, 

»E2 



MOVE SYS 

DIR RCD NO. 

TO DISK ADDR 



INIT REG 10 

TO A NON-ZERO 

VALUE 

• H4 



« «**F4'*'**** ***'<■' 

♦ SVC 1 
♦FETCH $MAINEOJ 

♦ CHART VV 



♦•«*F5«^*««^«^ 

SVC 

WRITE BLK ON 

1ST TRACK OF 

♦ LABEL CYL, 

SYS002 



INCREMENT 

RECORD NUMBER 

IN BOTH 

DISK ADDRS 



CLEAR LIB 

OUTPUT AREA, 

1728 BYTES 



**i>HZ******** 
GET ADDRESS 

OF SYS 

DIR RECORD 

NO. 3 



•»*«»H3^»^^*^»^^ 

♦ GET LENGTH 
♦OF SYS DIR RCD 

♦ AND ADD 8 

♦ FOR FORMAT 

♦ WRITE 



♦ H4 
A NON ZERO VALUE IN 
REG 10 INDICATES TO 
SMAINEOJ THAT IT HAS 
BEEN FETCHED FROM 
C0RGZ2. 



GET CNT 

OF REMAINING 

AVAILABLE 

BLKS IN LIB 



TURN ON 

SS LIB IN 

PROCESS SW, 



CHANGE SW ♦ 
AT SKIPWR 
TO A BRANCH 
TO SKIP THE 
1ST WRITE ♦ 



♦ Dl^ 
INITIAL 
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Chart WY. WRITLB, READLB, SYSDIR, READIR, LOOPCT, and 

UPRITE Subroutine C0RGZ2; Refer to Organization, 
Chart 46 



READLB 



•«»«A3***«* 

SYSDIR 



READIR 



•Cl*««** 

WRITLD 



• •«• 


>«B2**««*« 


»« 


»•« 




SVC 






• 


gfSMiiS 




• 


• 


SYSRES 


• 










IPWR 


C2**'.. 






.• 


1ST 




Y 


• . 


BLK IN 




• . 


♦ 


THIS LIB 


• 


B 



•••••«B3«*»**«i 




SVC 




• READ BLK 




FROM SYS 




• OIR ON 


• 


SYSRES 





SVC 

I/O ON 

SYS002 

DIRECTORIES 



SVC 

WRITE LIB 

BLK ON 

SYS002 



•♦.•E2« 

• SVC 7 • 

• WAIT FOR I/O • 
•COMPLETE, SYS002* 



UPDATE DISK 
ADDR ON 
SYS002 



••••G2*»««««*«* 

COMPUTE NEW 

SYS002 DISK 

SEARCH ADDR 

RECORD NUMBER 



•C3«*>« 

SVC 7 
WAIT 



SVC*7* 
WAIT 



• «D3 

RETURN TO 
LINK ADDR 



RETURN TO 
LINK ADDR 



UPDATE 
DISK ADDR 
ON SYS002 



••*«G3*«*«« 
• LOOPCT 



• SVC 7 WAIT • 

• FOR I/O COM- • 
•PLETE ON SYSRES* 



• MOVE LIB 

• BLK FROM 

• INPUT AREA 
•TO OUTPUT AREA 



• H4 
THE CHARACTER COUNT FOR THIS MOVE 
IS SET WHEN INITIALIZATION IS 
PERFORMED FOR EACH LIBRARY. 
CI-7X256 CHARACTERS ARE MOVED. 
RL-2X256 CHARACTERS ARE MOVED. 
SS-1X256 CHARACTERS ARE MOVED. 



UPDATE DISK 
ADDR ON 
SYSRES 



• « 


••«J3*««»^«» 




CHANGE 




SWITCH AT 




SKIPWR TO 




A NOP 







••K3»^^^**^ 

RETURN TO 
LINK ADDR 
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Chart XA. Read and Analyze Control Statements DSERV; Refer 
to Service, Chart 48 



•*«A1*««*»**** 
D5ERV * 



• SVC 2 ♦ 
♦ OPEN SYSRDR • 

AND SYSLST • 
•USING SSBOPEN* 

• LIOCS ♦ 



• ••• 
5 • 



SYSRDR 
A TAPE 
UNIT 



SKIP CC CHAR, 
1ST CHAR OF 
TAPE RCD 



• 4 

• ••• 



•••••A A* ••••••••• 

•FRSTCH XH» 

• SCAN CONTROL • 

• STATEMENT FOR • 

• 1ST OPERAND • 



ENTMAI X 

•••••CI********** 

• LOAD ADDRESS * 

• OF COMMON • 
•MAINT ERROR RTN* 

* INTO REG 9, * 

* ERRREG * 



Dl •. 
.* FIRST ♦. 

♦DSERV CTRL 
STATEMENT 
♦. *C2 



TESBYT INITIALLY X'80 
BIT Oi X«80' - FIRST 
CONTROL STATEMENT 
SWITCH. 



.♦ MORE 
. OPERANDS 
•TO PROCESS. 



READ CONTROL 

STATEMENT FROM* 

SYSRDR 



• *• 
B4 *. 

• 
OPERAND 
PRESENT 


• . NO 


OPAERR X 

••••••B5 ••••••••••• 

DTFCPPUT XB 

....X PRINT 


• • * 


• 


• s^i2¥IS?l<T • 


• YES 




; 






C5.J 

ERRRTN TF 
•-•-•-•-•-•-•-•-• 

DISPLAY 

• "IBIo'g^ • 







TURN OFF • 
1ST CONTROL 
STATEMENT 
SWITCH 
• C2 • 



E3 •. 

.* IS *. 

.* OPERATION • 
*.0F 1ST STATE- 
•.MENT DIS-.^ 
•.PLAY .• 

"'•NO 



IS •. YES 
OPERAND ...... 

ALL .• 



•••E5******* 
TURN ON ALL* 
SWITCHES IN 

DSPBYT TO 
DISPLAY ALL 
DIR *K2* 



ERRINV X 
•••••*F3*** 
DTFCPPUT 



SCAN CONTROL 
STATEMENT FOR 
NEXT OPERAND 



PRINT 

CONTROL 

STATEMENT 
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Chart XB. Print System Status Report DSERV; Refer to 
Service, Chart 4 8 
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chart XC. Print Transient and/ or Core Image Directories 
DSERV; Refer to Service, Chart 4 8 
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Chart XD. Print Relocatable Directory DSERV; Refer to 
Service, Chart 48 
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Chart XE. Print Source Statement Directory DSERV; Refer to 
Service^ Chart 48 
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Chart XF. Get Next Directory Entry DSERV (Part 1 of 2) ; 
Refer to Service, Chart 48 
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Chart XG. Get Next Directory Entry DSERV (Part 2 of 2) ; 
Refer to Service, Chart 48 
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Chart XH. Scan Control Statements DSERV; Refer to Service, 
Chart 48 
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Chart XJ. 



Print Title Lines DSERV; Refer to Service, Chart 
48 
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Chart YA. Analyze Control Statements RSERV; Refer to 
Service, Chart 49 
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Chart YB. Analyze Control Statement Operands RSERV; Refer 
to Service, Chart ^19 
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Chart YC. Read Directory Block and Scan for Module Name 
RSERV; Refer to Service, Chart 49 
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Chart YD. Read Blocks from Relocatable Library and 

Determine Type RSERV; Refer to Service, Chart 49 
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Chart ZB. Analyze Control Statements SSERV (Part 2 of 2) ; 
Refer to Service, Chart 50 
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Chart ZC. Get Card Images and Load Output Buffers SSERV; 
Refer to Service, Chart 50 
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Chart ZD. I/O Input Control SSERV; Refer to Service, Chart 
50 
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Chart ZF. Heading Control SSERV; Refer to Service, Chart 50 
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Chart ZH. $$BOPNLB Transient Program to Open Soarce 

Statement Library SSERV; Refer to Service, Chart 
50 
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Chart ZJ. Read Control Statements and Scan for Operands 
SSERV; Refer to Service^ Chart 50 
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Chart ZK. EOF on SYSRDR, SYSLST^ and SYSPCH SSERV; Refer to 
Service, Chart 50 
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Chart ZL. Error Routines SSERV; Refer to Service, Chart 50 
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APPENDIX I: MICROFICHE INDEX CROSS-REFERENCE LIST 



This list can be used to relate core- image 
phase names to the labels used as 
identification on microfiche. The names 
are grouped by program type such as System 
Control, Auto test, FORTRAN, etc. 

In some cases the program or portion of 
program displayed on one microfiche card 
may have no core image phase name; in other 
cases, it may have no relocatable module 
name. In every case, the microfiche 
identification is given and the user can 
relate this identification to either a core 
image phase name or a relocatable module 
name, or both. The last two numbers (10, 
2 0) of some modules indicate the version 
and modification level and are subject to 
change. 



Contents: 

Assembler: 3 60N-AS-4 65 
Autotest: 360N-PT-459 



Basic Telecommunications Access Method 
(BTAM) : 360N-CQ-469 



COBOL: 3 6 0N-CB-4 52 

Compiler I/O Modules: 360N-IO-476 



System Control Programs 



Program Number 360N-CL-453 



FORTRAN IV: 360N-FO-451 



MPS Utilities: 3 60N-UT-471 



Report Program Generator 
(RPG) : 360N-RG-460 



Sort/Merge (Disk) : 360N-SM-450 
Sort/Merge (Tape) : 3 60N-SM-400 
System Control/IOCS : 360N-CL-U53 

Initial Program Load 

Job Control 

Librarian and Maintenance 

Linkage Editor 

Logical IOCS 

Supervisor Transients 



Utilities: 

Group 1— Unit Record and Disk 3 60N-UT-4 61 
Group 2~Tape 360N-UT-462 
Group 3 — Data Cell 360N-UT-t^63 
Vocabulary File 360N-UT-472 



Core Image 
Phase Name 

$$A$IPL1 



Microfiche 
Label 

$$A$IPL1 



Relocatable 
Module Name 

None 



$$ANERRA 


$$ANERRA 


None 


$$ANERRB 


$$ANERRA 


None 


$$ANERRC 


$$ANERRA 


None 


$$ANERRD 


$$ANERRD 


None 


$$ANERRE 


$$ANERRE 


None 


$$ANERRF 


$$ANERRF 


None 


$$ANERRG 


$$ANERRG 


None 


$$ANERRH 


$$ANERRH 


None 


$$ANERRI 


$$ANERRI 


None 


$$ANERRJ 


$$ANERRJ 


None 


$$ANERRK 


$$ANERRK 


None 


$$ANERRL 


$$ANERRL 


None 


$$ANERRM 


$$ANERRM 


None 


$$ANERRN 


$$ANERRN 


None 


$$ANERRO 


$$ANERRO 


None 


$$ANERRP 


$$ANERRP 


None 


$$ANERRQ 


$$ANERRQ 


None 


$$ANERRR 


$$ANERRR 


None 


$$ANERRS 


$$ANERRS 


None 


$$ANERRU 


$$ANERRU 


None 


$$ANERRV 


$$ANERRV 


None 


$$ANERRX 


$$ANERRX 


None 


$$ANERRY 


$$ANERRY 


None 


$$ANERRZ 


$$ANERRY 


None 


$$ANERR0 


$$ANERRY 


None 


$$ANERR1 


$$ANERR1 


None 
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Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 


Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 
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$$BATTNA 


None 


$$BDENDFF 


$$BDENDFF 
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$$BATTNA 


None 
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$$BEOJ 


None 


$$BATTND 


$$BATTNA 


None 


$$BE0J1 


$$BE0J1 


None 


$$BATTNE 


$$BATTNA 


None 


$$BE0J2 


.$$BE0J2 


None 


$$BATTNF 


$$BATTNA 


None 


$$BE0J3 


$$BEOJ 


None 


$$BATTNG 


$ $BATTNA 


None 


$$BERRTN 


$$BERRTN 


None 


$$BATTNH 


$$BATTNA 


None 


$$BILSVC 


$$BILSVC 


None 


$$BATTNI 


$$BATTNI 


None 


$$BLSTIO 


$$BLSTI0 


None 


$$BATTNJ 


$$BATTNJ 


None 


$$BJCOPT 


$$BJC0PT 


None 


$$BATTNK 


$$BATTNK 


None 


$$BOCP01 


$$BOCP01 


None 


$$BATTNL 


$$BATTNL 


None 


$$BOCP02 


$$BOCP02 


None 


$$BATTNiyi 


$$BATTNM 


None 


$$B0CP11 


$$B0CP11 


None 


$$BATTNN 


$$BATTNN 


None 


$$B0CP12 


$$B0CP12 


None 


$$BCE0V1 


$$BCE0V1 


None 


$$BODAIN 


$$BODAIN 


None 


$$BCHKPD 


$$BCKPD 


None 


$$B0DA01 


$$B0DA01 


None 


$$BCHKPE 


$$BCHKPE 


None 


$$B0DA02 


$$B0DA02 


None 


$$BCHKPT 


$$BCHKPT 


None 


$$ BOD AGS 


$$B0DA03 


None 


$$BCISOA 


$$BCISOA 


None 


$$B0DAD1 


$$B0DAU1 


None 


$$BCLOSE 


$$BCLOSE 


None 


$$BODQUE 


$$BODQUE 


None 


$$BCLOSP 


$$BCLOSP 


None 


$$B0DSPV 


$$BODSPV 


None 


$$BCMT01 


$$BCMT01 


None 


$$B0DSPW 


$$BODSPW 


None 


$$BCMT02 


$$BCMT02 


None 


$$BOFLPT 


$$BOFLPT 


None 


$$BCMT03 


$$BCMT03 


None 


$$BOIS01 


$$BOIS01 


None 


$$BCMT04 


$$BCMTOU 


None 


$$BOIS02 


$$BOIS02 


None 


$$BCMT05 


$$BCMT05 


None 


$$BOIS03 


$$BOIS03 


None 


$$3CMT06 


$$BCMT06 


None 


$$BOIS05 


$$BOIS05 


None 


$$BCMT07 


$$BCMT07 


None 


$$BOIS06 


$$BOIS06 


None 


$$BDRSTR 


$$BDRSTR 


None 


$$BOIS07 


$$BOIS07 


None 


$$BDUMP 


$$BDUMP 


None 


$$B0MSG1 


$$B0MSG1 


None 


$$BDUiyiPB 


$$BDUMPB 


None 


$$B0MSG2 


$$B0MSG2 


None 


$$BDUMPD 


$$BDUMPD 


None 


$$B0MSG3 


$$B0MSG3 


None 


$$BDUMPF 


$$BDUMPF 


None 


$$B0MSG4 


$$B0MSG4 


None 
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Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 


Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 


$$BOMSG5 


$$B0MSG5 


None 


$$BPDUM1 


$$BPDUM1 


None 


$$BOMT01 


$$BOMT01 


None 


$$BPSW 


$$BPSW 


None 


$$BOMT02 


$$BOMT02 


None 


$$BRMSG1 


$$BRMSG1 


None 


$$BOMT03 


$$BOMT03 


None 


$$BRMSG2 


$$BRMSG2 


None 


$$BOMT04 


$$BOMT04 


None 


$$BRSTRT 


$$BRSTRT 


None 


$$BOMT05 


$$BOMT05 


None 


$$BRSTR2 


$$BRSTR2 


None 


$$BOMT06 


$$BOMT06 


None 


$$BSETFF 


$$BSETFF 


None 


$$B0MT11 


$$B0MT11 


None 


$$BSETFL 


$$BSETFL 


None 


$$BOPEN 


$$BOPEN 


None 


$$BSETL 


$$BSETL 


None 


$$BOPENC 


$$BOPENC 


None 


$$BSYSWR 


$$BSYSWR 


None 


$$BOPENR 


$$BOPENR 


None 


$$BTERM 


$$BTERM 


None 


$$B0PEN2 


$$B0PEN2 


None 


$$IPLRT2 


IJBIPL 


IJBIPL 


$$BCPNLB 


$$BOPNLB 


None 


$J0BCTLA 


IJBJCl 


IJBJCl 


$$B0SDC1 


$$B0SDC1 


None 


$J0BCTLD 


IJBJC2 


IJBJC2 


$$BOSDIl 


$$B0SDI1 


None 


$J0BCTLG 


IJBJC3 


IJBJC3 


$$B0SDI2 


$$B0SDI2 


None 


$J0BCTLJ 


IJBJCU 


IJBJCtI 


$$B0SDI3 


$$B0SDI3 


None 


$LNKEDT 


IJBLEl 


IJBLEl 


$$BOSDOl 


$$B0SD01 


None 


$LNKEDTA 


IJBLEl 


IJBLEl 


$$BOSD02 


$$B0SD02 


None 


$LNKEDTC 


IJBLBI 


IJBLBI 


$$B0SD03 


$$B0SD03 


None 


$LNKEDTO 


IJBLEl 


IJBLEl 


$$B0SD04 


$$BOSDOU 


None 


$LNKEDT2 


IJBLEl 


IJBLEl 


$$B0SD05 


$$B0SD05 


None 


$LNKEDT4 


IJBLEl 


IJBLEl 


$$B0SD06 


$$B0SD06 


None 


$LNKEDT6 


IJBLEl 


IJBLEl 


$$BOSD07 


$$B0SD07 


None 


$LNKEDT8 


IJBLEl 


IJBLEl 


$$BCSD08 


$$B0SD08 


None 


$iyiAINEOJ 


IJBLBH 


IJBLBH 


$$B0SDW1 


$$B0SDv7l 


None 


CORGZ 


IJBLBJ 


IJBLBJ 


$$B0SDvvf2 


$$B0SDW2 


None 


C0RGZ2 


IJBLBK 


IJBLBK 


$$B0SDW3 


$$B0SDv^3 


None 


DSERV 


IJBSLl 


IJBSLl 


$$BOSD00 


$$BOSD00 


None 


IJBRSTRT 


IJBRSTRT 


IJBRSTRT 


$$BOUR01 


$$BOUR01 


None 


MAI NT 


IJBLBA 


IJBLBA 


$$BOVDMP 


$ $BOVDMP 


None 






IJJCPDO 


$$BPCHK 


$$BPCHK 


None 


(Error Routine) 


IJBLBC 


IJBLBC 


$$BPDUMP 


$$BPDUMP 


None 
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Core Image 


Microfiche 


Relocatable 


ATLEFC7 


IJVTC7 


IJVTC710 


Phase Name 


Label 


Module Name 














ATLEFDl 


IJVTDl 


IJVTDllO 


MAI NT A 


IJBLBL 


IJBLBL 














ATLEFD2 


IJVTD2 


IJVTD210 


MAINTCL 


IJBLBM 


IJBLBM 














ATLEFEl 


IJVTEl 


IJVTEllO 


MAINTCN 


IJBLBG 


IJBLBG 














ATLEFE2 


IJVTE2 


IJVTE210 


MAINTC2 


IJBLBD 


IJBLBD 














ATLEFFl 


IJVTFl 


IJVTFllO 


MAINTR2 


IJBLBE 


IJBLBE 














ATLEFGl 


IJVTGl 


IJVTGllO 


MAINTS2 


IJBLBF 


IJBLBF 














ATLEFH2 


IJVTH2 


IJVTH210 


RSERV 


IJBSL3 


IJBSL3 














ATLEFH3 


IJVTH3 


IJVTH310 


SSERV 


IJBSLU 


IJBSL4 














ATLEGOl 


IJVTIl 


IJVTIllO 


Autotest Proqram 




ATLEJCTV 


IJVTJl 


IJVTJllO 


Proqram Number 


360N-PT-a59 




BTAM 






Core Image 


Microfiche 


Relocatable 








Phase Name 


Label 


Module Name 


Proqram Number 


360N-CQ-469 




$$BATST1 


IJVSSl 


IJVSSllO 














Core Image 


Microfiche 


Relocatable 


$$BATST3 


IJVSS3 


IJVSS310 


Phase Name 


Label 


Module Name 


ATLECONT 


IJVTAO 


IJVTAO 10 


$$ANERR2 


$$ANERR2 


None 


ATLEDT 


IJVLE 


IJVLE 


$$BCTC01 


$$BCTC01 


None 


ATLEDTIA 


IJVLE 


IJVLE 


$$BETPRT 


$$BETPRT 


None 


ATLEDTIB 


IJVLE 


IJVLE 


$$BHDRCK 


$$BHDRCK 


None 


ATLEDTIC 


IJVLE 


IJVLE 


$$BLEPRT 


$$BLEPRT 


None 


ATLEDTIO 


IJVLE 


IJVLE 


$$BLOPEN 


$$BLOPEN 


None 


ATLEDT12 


IJVLE 


IJVLE 


$$BOTC01 


$$BOTC01 


None 


ATLEDT14 


IJVLE 


IJVLE 


$$BTCNCL 


$$BTCNCL 


None 


ATLEDT16 


IJVLE 


IJVLE 


$$BTMEBG 


$$BTMEBG 


None 


ATLEDT18 


IJVLE 


IJVLE 


$$BT1030 


$$BT1030 


None 


♦ (See Note) 


IJVTAB 


IJVTAB 


$$BT1050 


$$BT1050 


None 


ATLEFCl 


IJVTCl 


IJVTCllO 


$$BT1060 


$$BT1060 


None 


ATLEFC2 


IJVTC2 


IJVTC210 


$$BT2260 


$$BT2260 


None 


ATLEFC3 


INVTC3 


IJVTC310 


$$BT2740 


$$BT27aO 


None 


ATLEFCU 


IJVTC4 


IJVTC410 


$$BT2848 


$$BT2848 


None 


ATLEFC5 


IJVTC5 


IJVTC510 


IJLT2ALC 


IJLT2ALC 


None 








IJLT2R0T 


IJLT2R0T 


None 


♦Can be included as part of 


Other Autotest 








phases as requi 


^red. 




IJLT2TLT 


IJLT2TLT 


None 
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Core Image 
Phase Name 
IJLT2TWS 

IJLT3ALC 

IJLT3R0T 

IJLT3SLA 

IJLT3TLT 

IJLT3TWS 

IJLT5ALC 

IJLT5R0T 

IJLT5SLA 

IJLT5TLT 

IJLT5TWS 

IJLT6ALC 

IJLT6R0T 

IJLT6SLA 

IJLT6TLT 

IJLT6TWS 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 



Microfiche 


Relocatable 


Label 


Module Name 


IJLT2TWS 


None 


IJLT3ALC 


None 


IJLT3R0T 


None 


IJLT3SLA 


None 


IJLT3TLT 


None 


IJLT3TWS 


None 


IJLT5ALC 


None 


IJLT5R0T 


None 


IJLT5SLA 


None 


IJLT5TLT 


None 


IJLT5TWS 


None 


IJLT6ALC 


None 


IJLT6R0T 


None 


IJLT6SLA 


None 


IJLT6TLT 


None 


IJLT6TWS 


None 


IJLOAY 


IJLOAY 


IJLOOY 


IJLOOY 


IJLOIZ 


IJLOIZ 


IJL02Z 


IJL02Z 


IJL03Z 


IJL03Z 


IJLOaz 


IJL04Z 


IJL05Z 


IJL05Z 


IJL07Y 


IJL07Y 


IJL07Z 


IJL07Z 


IJL08M 


IJL08M 


IJL08P 


IJL08P 


IJL08Q 


IJL08Q 


IJL08R 


IJL08R 


IJL08U 


IJL08U 


IJL08X 


IJL08X 


IJL08Y 


IJL08Y 


IJL08Z 


IJL08Z 


IJL09Y 


IJL09Y 



MPS Utilities 



Program Number 360N-UT-471 



Core Image 
Phase Name 

$$BMU100 

$$BMU200 

$:?BMU300 



Microfiche 


Relocatable 


Label 


Module Name 


$$BMaiOO 


None 


$$BMU200 


None 


$$BMU300 


None 



Disk Sort/Merge 



Program Number 360N~SM-450 



Core Image 
Phase Name 

DSORT 

DSORT002 

DSORT003 

DSORTOOU 

DSORT005 

DSORT006 

DSORT007 

DSORT008 

DSORT009 

DSORTOIO 

DSORTlOl 

DSORT102 

DSORT103 

DSORT104 

DSORT105 

DSORT201 

DSORT202 

DSORT203 

DSORT204 



Microfiche 
Label 

IJOSMOOl 

IJOSM002 

IJOSM003 

IJOSM004 

IJOSM005 

IJOSM006 

IJOSM007 

IJOSM008 

IJOSM009 

IJOSMOIO 

IJOSMlOl 

IJOSM102 

IJOSM103 

IJOSMIOU 

IJOSM105 

IJOSM201 

IJOSM202 

IJOSM203 

IJOSM204 



Relocatable 

Module Name 

IJOSMOOl 
IJOSM002 
IJOSM003 
IJOSM004 
IJOSM005 
IJOSM006 
IJOSM007 
IJOSM008 
IJOSM009 
IJOSMOIO 
IJOSMlOl 
IJOSM102 
IJOSM103 
IJOSM104 
IJOSM105 
IJOSM201 
IJOSM202 
IJOSM203 
IJOSM204 
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Core Image 
Phase Name 

DSORT301 

DSORT302 

DSORT303 

DSORT30U 

DSORTUOl 

DSORT402 



Microfiche 
Label 

IJOSM301 

IJOSM302 

IJOSM303 

IJOSM304 

IJOSM401 

IJOSMU02 



Relocatable 
Module Name 

IJOSM301 

IJOSM302 

IJOSM303 

IJOSM30U 

IJOSM401 

IJOSM402 



Compiler I/O Modules 



Program Number 360N~I"476 



Core Image 
Phase Name 

None 



None 



None 



Microfiche 
Label 

IJCFAOIO 



IJCFAOIl 



IJCFA0I2 



Relocatable 
Module Name 

IJCFAOIO 



IJCFAOIl 



IJCFA0I2 



None 



DOS Sort/Merge (Tape) 









None 


Program Number 


360N-SM-400 




None 






None 


Core Image 


Microfiche 


Relocatable 




Phase Name 


Label 


Module Name 


None 


TSRTPOOl 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP002 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP003 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP004 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP005 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP006 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP007 


TSRTPOOl 


IJPSMOOl 


None 


TSRTP008 


TSRTPOOl 


IJPSMOOl 


None 


TSRTPIOI 


TSRTPIOI 


IJPSM002 


None 


TSRTP102 


TSRTPIOI 


IJPSM002 


None 


TSRTP103 


TSRTPIOI 


IJPSM002 


None 


TSRTP104 


TSRTPIOI 


IJPSM002 


None 


TSRTP105 


TSRTPIOI 


IJPSM002 


None 


TSRTP201 


TSRTP201 


IJPSM003 


None 


TSRTP202 


TSRTP201 


IJPSM003 


None 


TSRTP203 


TSRTP201 


IJPSM003 


None 


TSRTP204 


TSRTP201 


IJPSM003 


None 


TSRTP301 


TSRTP301 


IJPSM004 


None 


TSRTP302 


TSRTP301 


IJPSM004 


None 


TSRTP303 


TSRTP301 


IJPSM004 


None 



IJCFA0I4 

IJCFAOZO 
IJCFAOZl 
IJCFA0Z2 
IJCFA0Z4 
IJCFCCZO 
IJCFCCZl 
IJCFCCZ2 
IJCFCIZO 
IJCFCIZl 
IJCFCIZ2 
IJCFYOZO 
IJCFYOZl 
IJCFY0Z2 
IJCFZIIO 
IJCFZIIl 
IJCFZII2 
IJCFZII3 
IJCFZIZO 
IJCFZIZl 
IJCFZIZ2 
IJCFZIZ3 
IJCFZOIl 
IJCFZ0I2 
IJCFZ0I4 



IJCFAOm 

IJCFAOZO 
IJCFAOZl 
IJCFA0Z2 
IJCFAOZ4 
IJCFCCZO 
IJCFCCZl 
IJCFCCZ2 
IJCFCIZO 
IJCFCIZl 
IJCFCIZ2 
IJCFYOZO 
IJCFYOZl 
IJCFY0Z2 
IJCFZIIO 
IJCFZIIl 
IJCFZII2 
IJCFZII3 
IJCFZIZO 
IJCFZIZl 
IJCFZIZ2 
IJCFXIZ3 
IJCFZOIl 
IJCFZ0I2 
IJCFZ0I4 
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Core Image 
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Microfiche 
Label 


Relocatable 
Module Name 


Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 


None 


IJCFZOZl 


IJCFZOZl 


None 


IJHAIZZZ 


IJHAIZZZ 


None 


IJCFZ0Z2 


IJCFZ0Z2 


None 


IJHBA3ZZ 


IJHBABZZ 


None 


IJCFZOZa 


IJCFZOZU 


None 


IJHBARZZ 


IJHBARZZ 


None 


IJDFAPIZ 


IJDFAPIZ 


None 


IJHBASZZ 


IJHBASZZ 


None 


IJDFAPZZ 


IJDFaPZZ 


None 


IJHBIZZZ 


IJHBIZZZ 


None 


IJDFYPZZ 


IJDFYPZZ 


None 


IJHUABZZ 


IJHUABZZ 


None 


IJDFZPIZ 


IJDFZPIZ 


None 


IJHUARZZ 


IJHUARZZ 


None 


IJDFZPZZ 


IJDFZPZZ 


None 


IJHUASZZ 


IJHUASZZ 


None 


IJFFBCZZ 


IJFFBCZZ 


None 


IJHUIZZZ 


IJHUIZZZ 


None 


IJFFZCZZ 


IJFFZCZZ 


None 


IJHZLZZZ 


IJHZLZZZ 


None 


IJFUBCZZ 


IJFUBCZZ 


None 


IJHZRBZZ 


IJHZRBZZ 


None 


IJFVBCWZ 


IJFVBCWZ 


None 


IJHZRRZZ 


IJHZRRZZ 


None 


IJFVBCZZ 


IJFVBCZZ 


None 


IJHZRSZZ 


IJHZRSZZ 


None 


IJFVZraZ 


IJFVZCWZ 


None 


IJIBAIZZ 


IJIBAIZZ 


None 


IJFvJZNZZ 


IJF^ZNZZ 


None 


IJIBAZZZ 


IJIBAZZZ 


None 


IJFWZZZZ 


IJFWZZZZ 


None 


IJIBZIZZ 


IJIBZIZZ 


None 


IJGFIEZZ 


IJGFIilZZ 


None 


IJIBZZZZ 


IJIBZZZZ 


None 


IJGFIZZZ 


IJGFIZZZ 


None 


IJIFAIZZ 


IJIFAIZZ 


None 


IJGFOZZZ 


IJGFOZZZ 


None 


IJIFAZZZ 


IJIFAZZZ 


None 


IJGFUZZZ 


IJGFUZZZ 


None 


IJIFZIZZ 


IJIFZIZZ' 


None 


IJGUIEZZ 


IJGUIEZZ 


None 


IJIFZZZZ 


IJIFZZZZ 


None 


IJGUIZZZ 


IJGUIZZZ 


None 


IJJCPV 


IJJCPV 


None 


IJGUOZZZ 


IJGUOZZZ 


None 


IJJCPO 


IJJCPO 


None 


IJGUUZZZ 


IJGUUZZZ 


None 


IJJCPl 


IJJCPl 


None 


IJGVIEZZ 


IJGVIEZZ 


None 


IJJCP2 


IJJCP2 


None 


IJGVIZZZ 


IJGVIZZZ 


None 


IJJCP3 


IJJCP3 


None 


IJGVOZZZ 


IJGVOZZZ 


None 


IJJCPDV 


IJJCPDV 


None 


IJGVUZZZ 


IJGVUZZZ 


None 


IJJCPDO . 


IJJCPDO 


None 


IJGWZNZZ 


IJGWZNZZ 


None 


IJJCPDl 


IJJCPDl 


None 


IJGWZRZZ 


IJGWZRZZ 


None 


IJJCPD2 


IJJCPD2 


None 


IJHAJiBZZ 


IJHAABZZ 


None 


IJJCPD3 


IJJCPD3 


None 


IJHAARZZ 


. IJHAARZZ 


None 


IJJCPVl 


IJJCPVl 


None 


IJHAASZZ 


IJHAASZZ 


None 


IJJCPV2 


IJJCPV2 
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Cor^ Image 
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Microfiche 
Label 


Relocatable 
Module Name 


RPGlOllO 


IJR119 


IJR119 


None 


IJJCPON 


IJJCPON 


RPG10120 


IJR120 


IJR120 


None 


IJJCPIN 


IJJCPIN 


RPG10120 


IJR129 


IJR129 


None 


IJJCPDVl 


IJJCPDVl 


RPG10130 


IJR130 


IJR130 


None 


IJJCPDV2 


IJJCPDV2 


RPG10130 


IJR139 


IJR139 


None 


IJJCPDON 


IJJCPDON 


RPG10140 


IJR140 


IJRIUO 


None 


IJJCPDIN 


IJJCPDIN 


RPGlOiaO 


IJR149 


IJR149 








RPG10150 


IJR150 


IJR150 


RPG 






RPG10150 
RPG10160 


IJR159 
IJR160 


IJR159 
IJR160 


Proqram Number 


360N-RG~460 




RPG10160 


IJR169 


IJR169 


Core Image 
Phase Name 


Microfiche 
Label 


Relocatable 
Module Name 


RPG10170 
RPG10170 


IJR170 
IJR179 


IJR170 
IJR179 


None 


IJROOO 


IJROOO 


RPG1018A 


IJR18A 


IJR18A 


RPGIOOIO 


IJROIO 


IJROIO 


RPG1018A 


IJR18F 


IJR18F 


RPG10020 


IJR020 


IJR020 


RPG10180 


IJR180 


IJR180 


RPG10025 


IJR025 


IJR025 


RPG10180 


IJR189 


IJR189 


RPG10030 


IJR030 


IJR030 


RPG10190 


IJR190 


IJR190 


RPG10030 


IJR03 9 


IJR039 


RPG10190 


IJR199 


IJR199 


RPGlOOaO 


IJR040 


IJR040 


RPG10200 


IJR200 


IJR200 


RPG10040 


IJR04 9 


IJR049 


RPG10200 


IJR209 


IJR209 


RPG10050 


IJR050 


IJR050 


RPG10210 


IJR210 


IJR210 


RPT10050 


IJR059 


IJR059 


RPG10210 


IJR219 


IJR219 


RPG10060 


IJR060 


IJR060 


RPG10220 


IJR220 


IJR220 


RPG10060 


IJR06 9 


IJR069 


RPG10220 


IJR229 


IJR229 


RPG10070 


IJR070 


IJR070 


RPG10230 


IJR230 


IJR230 


RPG10070 


IJR07 9 


IJR079 


RPG10230 


IJR239 


IJR239 


RPG10080 


IJR08 


IJR080 


RPG10230 


IJR240 


IJR240 


RPG10080 


IJR08 9 


IJR089 


RPG10230 


IJR241 


IJR241 


RPG10090 


IJR09 


IJR090 


RPG10230 


IJR242 


IJR2U2 


RPG10090 


IJR09 9 


1JR099 


RPG10230 


IJR243 


IJR243 


RPGIOIOO 


IJRIOO 


IJRIOO 


RPG10230 


IJR24a 


IJR244 


RPGIOIOO 


IJR10 9 


IJR109 


RPG10230 


IJR2U5 


IJR245 


RPGlOllO 


IJRllO 


IJRllO 


RPG10230 


IJR246 


IJR246 
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Core Image 
Phase Name 

RPG10230 

RPG10230 


Microfiche 
Label 

IJR247 

IJR249 


Relocatable 
Module Name 

IJR247 

IJR249 


ASSEN09I 
ASSENIO 
ASSENIOB 
ASSENllA 


ASSEN09I 
ASSENIO 
ASSENIOB 
ASSENllA 


IJQ09I20 
IJQ10020 
IJQ10B20 
IJQ11A20 








ASSENllB 


ASSENllB 


IJQ11B20 


Assembler 






ASSENllC 


ASSENllB 


IJQ11B20 


Program Number 


360N-AS-465 




ASSENllD 
ASSENllE 


ASSENllB 
ASSENllB 


IJQ11B20 
IJQ11B20 


Core Image 
Phase Name 

ASSEMBLY 

ASSEMOOA 


Microfiche 
Label 

ASSEMBLY 

ASSEMBLY 


Relocatable 
Module Name 

IJQ00020 

IJQ00020 


ASSEN12 
ASSEN13 
ASSENia 


ASSEN12 
ASSEN13 
ASSEN14 


IJQ12020 
IJQ13020 
IJQ14020 


ASSEMOOB 
ASSEM02 


ASSEMBLY 
ASSEM02 


IJQ00020 
IJQ02$20 


COBOL 






ASSEM02A 


ASSEM02A 


IJQ02A20 


Proqram Number 


360N-CB-a52 




ASSEM03 
ASSEM03A 


ASSEM03 
ASSEM03A 


IJQ03$20 
IJQ03A20 


Core Image 
Pnase Name 


Microfiche 
Label 


Relocatable 
Module Name 


ASSEM04 


ASSEM04 


IJQ04$20 


$$BCBLOP 


$$BCBLOP 


None 


ASSEM04A 


ASSEM04A 


IJQ0UA20 


$$BCBODA 


$$BCBODA 


None 


ASSEM04B 


ASSEM04B 


IJQ04B20 


$$BCBUSR 


$$BCBUSR 


None 


ASSLM05 


ASSEM05 


IJQ05$20 


$$BCBUSW 


$$BCBUSW 


None 


ASSEM05A 


ASSEM05A 


IJQ05A20 


None 


IHDOOOOO 


IHDOOOOO 


ASSEM05B 


ASSEM05B 


IJQ05B20 


None 


IHDOOIOO 


IHDOOIOO 


ASSEM06 


ASSEM06 


IJQ06X20 


None 


IHD00200 


IHD00200 


ASSEN07 


ASSEN07 


IJQ07020 


None 


IHD00300 


IHD00300 


ASSEN07A 


ASSEN07 


IJQ07020 


None 


IHDOOaOO 


IHDOOUOO 


ASSEN07B 


ASSEN07 


IJQ07020 


None 


IHD00500 


IHD00500 


ASSEN07C 


ASSEN07 


IJQ07020 


None 


IHD00600 


IHD00600 


ASSEN07I 


ASSEN07 


IJQ07120 


None 


IHD00700 


IHD00700 


ASS EN 08 


ASSEN08 


IJQ08020 


None 


IHD00800 


IHD00800 


ASSEN08A 


ASSEN08 


IJQ08020 


None 


IHD00900 


IHD00900 


ASSEN08B 


ASSEN08 


IJQ08020 


None 


IHDOIOOO 


IHDOIOOO 


ASSEN08C 


ASSEN08 


IJQ08020 


None 


IHDOllOO 


IHDOllOO 


ASSEN088 


ASSEN088 


IJQ0 8X20 


None 


IHD01200 


IHD01200 


ASSEN0 9 


ASSEN09 


IJQ09020 


None 


IHD01300 


IHD01300 
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Core Image 


Microfiche 


Relocatable 


CO3OL006 


IJSCBLIO 


IJSCBLIO 


Phase Name 


Label 


Module Name 














COBOL007 


IJSCBLll 


IJSCBLll 


None 


IHD01400 


IHDOIUOO 














COBOL008 


IJSCBL12 


IJSCEL12 


None 


IHD01500 


IHD01500 














COBOL009 


IJSCBL13 


IJSCBL13 


None 


IHD01600 


IHD01600 














COBOLOIO 


IJSCBL14 


IJSCBL14 


None 


IHD01700 


IriD01700 














COBOLOll 


IJSCBL15 


IJSCBL15 


None 


IHD01800 


IHD01800 














COBOL012 


IJSCBL16 


IJSCBL16 


None 


IHD01900 


IHD01900 














COBOL013 


IJSCBL17 


IJSCLB17 


None 


IHD02000 


IHD02000 














COBOLOIU 


IJSCBL18 


IJSCBL18 


None 


IHD02100 


IHD02100 














COBOL015 


IJSCBL19 


IJSCBL19 


None 


IHD02200 


IHD02200 














COBOL016 


IJSCBL20 


IJSCBL20 


None 


IHD02300 


IHD02300 














COBOL017 


IJSCBL21 


IJSCBL21 


None 


IHD02a00 


IHD02400 














COBCL018 


IJSCBL22 


IJSCBL22 


None 


IHD02500 


IHD02500 














COBOL019 


IJSCBL23 


IJSCBL23 


None 


IHD02600 


IHD02600 














COBOL020 


IJSCBL24 


IJSCBL24 


None 


IHD02700 


IHD02700 














COBOL021 


IJSCBL25 


IJSCBL25 


None 


IHD02800 


IHD02800 














COBOL0 22 


IJSCBL26 


IJSCBL26 


None 


IHD02900 


IHD02900 














COBOL023 


IJSCBL27 


IJSCBL27 


None 


IHD03000 


IHD03000 














COBOL02ti 


IJSCBL28 


IJSCBL28 


None 


IHD03100 


IHD03100 














COBOL025 


IJSCBL29 


IJSCBL29 


None 


IHD03200 


IHD03200 














COBOL027 


IJSCBL31 


IJSCBL31 


None 


IHD03300 


IHD03300 














COBOL028 


IJSCBL32 


IJSCBL32 


None 


IHD03400 


IHD03400 














COBOL028 


IJSCBL33 


IJSCBL33 


None 


IHD03500 


IHD03500 














COBOL029 


IJSCBL34 


IJSCBL34 


None 


IHD03600 


IHD03600 














COBOL030 


IJSCBL35 


IJSCBL35 


None 


IHD03700 


IHD03700 














COBOL031 


IJSCBL36 


IJSCBL36 


COBOL 


IJSCBLOl 


IJSCBLOl 














COBOL032 


IJSCBL37 


IJSCBL37 


C030LOOO 


IJSCBL02 


IJSCBL02 














COBOL033 


IJSCBL38 


IJSCBL38 


COBOLOOO 


IJSCBL03 


IJSCBL03 














COBOL034 


IJSCBL39 


IJSCBL39 


COBOLOOl 


IJSCBL04 


IJSCBLOa 














COBOL035 


IJSCBL40 


IJSCBMO 


COBOLOOl 


IJSCBL05 


IJSCBL05 














COBOL036 


IJSCBL41 


IJSCBLai 


COBOL002 


IJSCBL06 


IJSCBL06 














COBOL037 


IJSCBL42 


IJSCBL42 


COBOL003 


IJSCBL07 


IJSCBL07 














COBOL038 


IJSCBL43 


IJSCBL43 


COBOLOOU 


IJSCBL08 


IJSCBL08 








COBOL005 


IJSCBL09 


IJSCBL09 
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Core Image 


Microfiche 


Relocatable 


None 


IJTFXIT 


IJRFXIT 


Phase Name 


Label 


Module Name 














None 


IJTHEXC 


IJTHEXC 


COBOL039 


IJSCBLUU 


IJSCBLaU 














None 


IJTIFIX 


IJTIFIX 


COBCL040 


IJSCBLaS 


IJSCBL45 














None 


IJTLEXP 


IJTLEXP 


COBCL041 


iJscBLae 


IJSCBL46 














None 


IJTLLOG 


IJTLLOG 


COBOL042 


IJSCBL47 


IJSCBL47 














None 


IJTLSCN 


IJTLSCN 


COBOL0U3 


IJSCBL48 


IJSCBL48 














None 


IJTLSQT 


IJTLSQT 


COBOL044 


IJSCBLU9 


IJSCBLa9 














None 


IJTLTAN 


IJTLTAN 


COBOL050 


IJSCBL50 


IJSCBL50 














None 


IJTLTNH 


IJTLTNH 


DEBUG 


IJSCBL60 


IJSCBL60 














None 


IJTMAXD 


IJTMAXD 








None 


IJTMODI 


IJTMODI 


FORTRAN IV 






None 


IJTMODR 


IJTMODR 








None 


IJTOVRF 


IJTOVRF 


Proqram Number 


36 0N-FO-451 
















None 


IJTSINT 


IJTSINT 


Core Image 


Microfiche 


Relocatable 


None 


IJTSLIT 


IJTSLIT 


Phase Name 


Label 


Module Name 














None 


IJTSLOG 


IJTSLOG 


None 


IJTAAFR 


IJTAAFR 














None 


IJTSMXO 


IJTSMXO 


None 


IJTACOM 


IJTACOM 














None 


IJTSMXl 


IJTSMXl 


None 


IJTACON 


IJTACON 














None 


IJTSSCN 


IJTSSCN 


None 


IJTADIR 


IJTADIR 














None 


IJTSSQT 


IJTSSQT 


None 


IJTADXD 


IJTADXD 














None 


IJTSTAN 


IJTSTAN 


None 


IJTADXI 


IJTADXI 














None 


IJTSTNH 


IJTSTNH 


None 


IJTAIXI 


IJTAIXI 








None 


IJTAPST 


IJTAPST 


Vocabulary File 


Utility 




None 


IJTARBE 


IJTARBE 








None 


IJTARXI 


IJTARXI 


Proqram Number 


360N-UT-472 




None 


IJTARXR 


IJTARXR 














Core Image 


Microfiche 


Relocatable 


None 


IJTDVCK 


IJTDVCK 


Phase Name 


Label 


Module Name 


None 


IJTEXPN 


IJTEXPN 


None 


IJNVBL 


IJNVBL 


None 


IJTFDMP 


IJTFDMP 


None 


IJNVCT 


IJNVCT 


None 


IJTFIOS 


IJTFIOS 


None 


IJNVER 


IJNVER 


FORTRAN 


IJTFOl 


IJTFOl 


None 


IJNVIO 


IJNVIO 


FORTRF.T. 


IJTF02 


IJTF02 


None 


IJNVLI 


IJNVLI 


FORTRGE 


IJTF03 


IJTF03 


None 


IJNVLO 


IJNVLO 


FORTRPU 


IJTF04 


IJTFOU 


None 


IJNVUP 


IJNVUP 
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utilities Group 1 (Unit Record and Disk) 



Utilities Group 2 (Tape) 



Program Number 


360N-UT-461 




Program Number 


360N-UT-462 




Core Image 


Microfiche 


Relocatable 


Core Image 


Microfiche 


Relocatable 


Phase Name 


Label 


Module Name 


Phase Name 


Label 


Module Name 


CDDK 


IJWCDl 


IJWCDl 


CDTP 


IJWCTl 


IJWCTl 


CDDK2 


IJWGEN 


IJWGEN 


CDTP2 


IJWGEN 


IJWGEN 


CDDK3 


IJWCD3 


IJWCD3 


CDTP3 


IJWCT3 


IJWCT3 


CDDK4 


IJWCDU 


IJWCD4 


CDTP4 


IJWCT4 


IJWCT4 


CDDK5 


IJWLAB 


IJWLAB 


CDTP5 


IJWLAB 


IJWLAB 


CDPP 


IJWCPl 


IJWCPl 


DCTP 


IJWMTl 


IJWMTl 


CDPP2 


IJWGEN 


IJWGEN 


DCTP2 


IJWGEN 


IJWGEN 


CDPP3 


IJWCP3 


IJWCP3 


DKTP 


IJWDTl 


IJWDTl 


CDPP4 


IJWCPU 


IJWCP4 


DKTP2 


IJWGEN 


IJWGEN 


CDPP5 


IJWLAB 


IJWLAB 


DKTP3 


IJWDT3 


IJWDT3 


CLRDSK 


IJWCLD 


IJWCLD 


DKTP4 


IJWDT4 


IJWDT4 


CLRD2 


IJWCLD2 


IJWCLDl 


DKTP5 


IJWLAB 


IJWLAB 


CLRD3 


IJWCLD3 


IJWCLD 2 


TPCD 


IJWTCl 


IJWTCl 


DKCD 


IJWDCl 


IJWDCl 


TPCD2 


IJWGEN 


IJWGEN 


DKCD2 


IJWGEN 


IJWGEN 


TPCD3 


IJWTC3 


IJWTC3 


DKCD3 


IJWDC3 


IJWDC3 


TPCD4 


IJWTCU 


IJWTC4 


DKCD4 


IJWDC4 


IJWDC4 


TPCD5 


IJWLAB 


IJWLAB 


DKCD5 


IJWLAB 


IJWLAB 


TPCP 


IJWTCP 


IJWTCP 


DKDK 


IJWDDl 


IJWDDl 


TPCP2 


IJWTCP2 


IJWTCP2 


DKDK2 


IJWGEN 


IJWGEN 


TPCP3 


IJWTCP3 


IJWTCP3 


DKDK3 


IJWDD3 


IJWDD3 


TPDC 


IJWTMl 


IJWTMl 


DKDK4 


IJWDD4 


IJWDD4 


TPDC2 


IJWGEN 


IJWGEN 


DKDK5 


IJWIAB 


IJWLAB 


TPDK 


IJWTDl 


IJWTDl 


DKPR 


IJWDPl 


IJWDPl 


TPDK2 


IJWGEN 


IJWGEN 


DKPR2 


IJWGEN 


IJWGEN 


TPDK3 


IJWTD3 


IJWTD3 


DKPR3 


IJWDP3 


IJWDP3 


TPDKU 


IJWTD4 


IJWTDa 


DKPR4 


IJWDP4 


IJWDP4 


TPDK5 


IJWLAB 


IJWLAB 


DKPR5 


IJWLAB 


IJWLAB 


TPPR 


IJWTPl 


IJWTPl 
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Core Image 


Microfi 


che 


Relocatable 


DCDC 


Phase 


Name 


Label 




Module 


Name 




TPPR2 




IJWGEN 




IJWGEN 




DCDC2 


TPPR3 




IJWTP3 




IJWTP3 




DCDC3 


TPPR4 




IJWTP4 




IJWTPa 




DCDCa 


TPPR5 




IJWLAB 




IJWLAB 




DCDC5 


TPTP 




IJWTTl 




IJWTTl 




DCDK 


TPTP2 




IJWGEN 




IJWGEN 




DCDK2 


TPTP3 




IJWTT3 




IJWTT3 




DCDK3 


TPTP4 




IJWTTa 




IJWTT4 




DCDK4 


TPTP5 




IJWLAB 




IJWLAB 




DCDK5 
DCPR 


Utilities Group 


3 (Data 


Cell) 
















DCPR2 


Proqram Number 


360N-UT- 


463 






DCPR3 










DCPR4 


Core Image 


Microfi 


che 


Relocatable 




Phase 


Name 


Label 




Module 


Name 


DCPR5 


CLDC 




IJWCLMl 




IJWCLMl 




DKDC 


CLDC2 




IJWGEN 




IJWGEN 




DKDC2 


CLDC3 




IJWDD3 




IJWDD3 




DKDC3 


CLDC4 




IJWDD4 




IJWDD4 




DKDC4 


CLDC5 




IJWLAB 




IJWLAB 




DKDC5 



IJWMMl 

IJWGEN 

IJWDD3 
IJWDD4 
IJWLAB 
IJWMDl 
IJWGEN 
IJWDD3 
IJWDD4 
IJWLAB 
IJWMPl 
IJWGEN 
IJWDD3 
IJWDD4 
IJWLAB 
IJWDMl 
IJWGEN 
IJWDD3 
IJWDD4 
IJWLAB 



IJWMMl 

IJWGEN 

IJWDD3 

IJWDD4 

IJWLAB 

IJWMDl 

IJWGEN 

IJWDD3 

IJWDD4 

IJWLAB ' 

IJWMPl 

IJWGEN 

IJWDD3 

IJWDD4 

IJWLAB 

IJWDMl 

IJWGEN 

IJWDD3 

IJWDD4 

IJWLAB 
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GLOSSARY 



active : Any loaded program ready for 
execution. 

attention routine ; System routine activated 
by pressing the SYSLOG request key. 

background program ; In multiprogramming, 
the program with lowest priority. 
Background programs execute from a stacked 
job input. 

BG ; Background program. 

Fl: Foreground Program One. 

Highest priority • user program. 

F2: Foreground Program Two. 

Second highest priority user program. 

foreground initiation : A set of system 
routines to process operator commands for 
initiating a foreground program. 

foreground program : In multiprogramming, 
the program with the highest priority. 
Foreground programs do not execute from a 
job stack. 



inactive 1. 



A program not loaded in the 
system is inactive. 

A loaded program not ready 
for execution. 



MPS: Multiprogramming System. 
multiprogramming system : A system that 



controls more than one program 
simultaneously by interleaving their 
execution. 



problem program : Any program invoked by an 
EXEC statement. (This is a general 
definition. The specific definition for 
use with this manual is found in Section 
1.) 

self-relocating program : A program able to 
run in any area of storage by having an 
initialization routine to modify all 
address constants at object time* 

SYSIN : Name used when SYSRDR and SYSIPT are 
assigned to the same input device by one 
control statement. The assignment can be 
either standard or temporary. 

SYSOUT: Name used when SYSLST and SYSPCH 
are assigned to the same tape file. This 
can only be a standard assignment. 
Separate file operation is re-established 
by submitting a standard ASSGN for either 
SYSLST or SYSPCH to a unit not currently in 
use by the combined file. A CLOSE command 
may be used to perform this function. 

system inquiry : The function of 
operator-initiated communication to a 
problem program. 

task selection : The supervisor mechanism 
for determining which program should gain 
control of CPU processing. 
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257 



106 



Abbreviations, Flowchart 
Add Routine 77 
Additional Features 24 
A-Transient Programs 90, 
Attention Routines 

Nonresident ' 125^, 127 

Physical 107 
Autolink 148 



Background vs. Foreground Programs 23 
Batch Job Support (BJS) 90 
Book Header Card Format 169 
B~Transient Grouping 

Initiation 125 

Termination 126 
B-Transient Programs 90, 125 

Cancel Code Messages 131 

Cancel Codes 97 

Calculation of ESID Numbers in 

MAINTR2 167 
Card Format, Book Header 169 
Catalog Core Image Library Phase 143 
CAW (Channel Address Word) 97, 103, 119 
CCB (Command Control Block) 52, 97, 

98, 119 
CCW (Channel Command Word) 71, 73, 

97, 100 
Channel Status Word (CSW) 97, 104 
CHANQ (Channel Queue) 52, 59, 60, 64, 

92, 106 
CHANQ Table Operation, Example of 97 
Codes 

Device Type 70 

Supervisor Cancel 97 
Command Control Block 97, 98 
Common Library Maintenance Program 29, 157 
Communication Area, Interphase 108 
Communication Region, Supervisor 55-59 
Components 26 

Condense Control Statements 175 
Configuration 24 
Control Center, System 59 
Control Dictionary 146 
Control Dictionary/Linkage Table 147 
Control Statements 

Condense 175 

Core Image Library Maintenance 160 

DSERV 184 

Reallocation 171 

Relocatable Library Maintenance 162 

RSERV 187 

Source Statement Library 
Maintenance 169 
Control System, Physical Input/Output 97 
Copy Statement Formats 181 
Copy System Program 179 

Control Statements Acceptable 180 

I/O Assignments 179 

Job Control Statements Required 180 
Core Image Library Directory 27, 32, 
37, 181, 184 



Core Image Directory Format 39 

Core Image Library 27, 32, 40, 181, 184 

Core Image Library Format 40 

Core Image Library Maintenance Control 

Statements 160 
Core Image Maintenance Program 29, 160 
CORGZ I/O Flow 180 
CORGZ Storage Map 179 
CSW (Channel Status Word) 97, 104 
CSW Testing in the I/O Interrupt 

Processor 105 

Data File Block Format 194 
Definitions of Program Keys 

PIK, LTK, RIK, and FIK 269 
Delete Routine 77 
Density Data 70 

Description of ESD Processing 263 
Description of Flowchart Symbols 260 
Detail Flowcharts 271 
Devices 

I/O 25 

System I/O 25 
Device Error Recovery, Unit Record Devices 

Supported by 108 
Device Type Codes 70 
DFB Format 194 
DIB (Disk Information Block) 

224, 229 
DIB Table 67 
Dictionary, Control 146 
Directory 

Core Image Library 27, 

Foreground Program 27, 

Library Routine 27, 32, 

Open 27, 32, 35 

Phase 27, 32, 37 

Relocatable Library 27, 

Source Statement Library 

System 27, 32, 35 

Transient 27, 32, 35 
Directory Format 

Core Image 39 

Relocatable Library 41 

Source Statement Library 
Directory Service Program 
Disk Information Block 52, 

229 
DOS Supervisor Calls 95 
DSERV Control Statements 



52, 59, 67, 



32, 
32, 

35 



37 
36 



32, 40 
27, 32, 



43 



44 
31, 184 
, 59, 67, 224, 



184 



ERBLOC (See Error Recovery Block) 
ERP (See Error Recovery Procedures) 
Error Block, Tape (TEB) 52, 53, 55, 59, 

60, 61, 63, 223 
Error Message Cross Reference 266 
Error Recovery 

1052 109 

1285 115 

1403-1443 109 

1442 110 

2311 112 
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2321 113 
2400 108 

2501, 2520, 2540 110 
2671 111 
Error Recovery Block 106 
Error Recovery Procedures 97, 107, 108 
ESD Processing, Description of 263 
ESD Records, Relocatable Format of 164 
ESD Types 142, 147, 263 
ESID Numbers in MAINTR2 , Calculation 

of 167 
Example of Autolink with LIOCS 148 
Example of CHANQ Table Operation 97 
Examples for Nonresident Attention 

Request, LISTIO 128 
Example of PLM Usage 4 
External Interrupt 9 6 

FAVP (First Available Pointer) 55, 

60, 222 
Features, Additional 24 
FICL (First in Class List) 55, 60 
FIK (Fetch I/O Key) 269 
Flowcharts, Detail 271 
Flowchart Abbreviations 252 
Flowchart Symbols, Description of 260 
FLPTR (Free-List Pointer) 60, 64, 92, 97 
FOCL (First on Channel List) 60, 72, 

75, 191, 192, 193 
Foreground Initiator 125 
Foreground Program Directory 27, 32, 

36, 177 
Formats 

Book Header Card 169 

Copy Statement 181 

DFB (Data File Block) 194 

Directory (See Directory Format) 

Library (See Library Format) 

Phase Vector Table Entry 197 

Record (See Record Formats) 

Generation, Supervisor 46 
Global Settings 51 
Glossary 763 

Header Card Format, Book 169 

Information Blocks and Other Tables 52 
Initial Program Load Program (See IPL) 
Initiation (B-Transient Grouping) 125 
Initiator Phase Map 129 
Interphase Communication Area 10 8 
Interrelation, I/O Table 60 
Interrupt 

External 9 6 

I/O 96 

Machine Check 9 6 

Program Check 96 

Supervisor Call 90, 95 
I/O Devices 25 
I/O Error Recovery Procedures and Sense 

Data 108 
I/O Flow 

CORGZ Program 180 

Linkage Editor Program 146 

System Programs 26 
I/O Interrupt 96 



I/O Interrupt Processor, CSW Testing 

in the 105 
I/O Tables 52 

I/O Table for One-Device System 72 
I/O Table for Two-Device System 72 
I/O Table Interrelation 60 
IPL (Initial Program Load) 27, 32, 35, 71 
IT Option Table 69, 92 

JIB (Job Information Block) 53, 55, 59, 
60, 195, 199, 201, 204, 214, 217, 218, 
219, 222 

JIB Table 68, 218 

Job Control Programs 72, 79 

Job Control Storage Allocation 79 

Job Control Switches 19 5 

Label List 191 

Label Storage Area (Volume Area) 2 7 

Language Translator Modules 142 

Last-In-First-Out List (LIFO) 232 

Librarian Area 27, 32, 37 

Librarian Maintenance Programs 29, 157 

Librarian Organization Program 30, 179 

Librarian Programs 28 

Librarian Service Programs 31, 184 

Library 

Core Image 27, 40 

Relocatable 27, 42 

Source Statement 27, 43 
Library Condense Program 30, 175 
Library Format 

Core Image 40 

Relocatable 42 

Source Statement 45 
Library Routine Directory 27, 32, 35, 17 7 
LIFO (Last-In-First-Out) 232 
Linkage Editor ESD Processing 263 
Linkage Editor Fundamental 

Calculations 148 
Linkage Editor I/O Flow 146 
Linkage Editor Key Concepts 

Control Dictionary 146 

Example of Autolink with LIOCS 14 8 

Linkage Editor Fundamental 
Calculations 148 

Linkage Table 14 6 

Overhead Processor 146 

Use of Autolink Feature 148 

Use of Linkage Table and Control 
Dictionary 147 
Linkage Editor Map 241 
Linkage Editor Program 28, 142 
Linkage Editor Program Flow 143 
Linkage Editor Storage Map 

For 14K or less than 14K available 
main storage 144 

For 14K or more than 14K available 
main storage 145 
LISTIO Examples for Nonresident 

Attention Request 128 
LISTIO Printout, Sample 261, 262 
Low Core 51 

LUB (Logical Unit Block) 52, 53, 59, 60, 
75, 97, 133, 199, 200, 201, 202, 217, 
218 219 2 2 3 
LUB Table' 62, 72, 193, 204, 218 



Index 
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LUBID Table 59, 60, 64, 97 

LTK (Logical Transient Key) 59, 230, 269 

Machine Check Interrupt 96 

Macro Functions 50 

Macro Relationships 50 

Macros, Supervisor Generation 47 

Main Storage Organization, 

Multiprogram 131 
MAINTA Reallocation Table 172 
Maintenance Programs, Library 28, 157 

Common 29, 157 

Core Image 29, 160 

Relocatable 29, 162 

Source 29, 169 
Maintenance Storage Map 15 8 
Map 

Initiator Phase 129 

Linkage Editor 241 

Phase (See Phase Map) 

Storage (See Storage Map) 

Terminator Phase 130 
Map, IPL Main Storage 73 
MAP Output 12 7 
Messages, Cancel Code 131 
Message Cross Reference, Error 26 6 
Message Writer 107 
Method Used by MAINTA to Reallocate 

SYSRES 173 
Microfiche Index Cross-Reference List 750 

Assembler 758 

Autotest 753 

BTAM 753 

COBOL 75 8 

Compiler I/O Modules 755 

FORTRAN IV 76 

MPS Utilities 754 

Report Program Generator (RPG) 757 

Sort/Merge (Disk) 754 

Sort/Merge (Tape) 755 

System Control/IOCS 750 

Utilities 

Data Cell 762 
Tape 761 

Unit Record and Disk 761 
Vocabulary File 760 
Minimum Requirements 24 
Module in the Relocatable Library 163 
Module Phase Relationship 142 
Multiprogramming 23 
Multiprogram Main Storage Organization 

131 
Multiprogramming Support (MPS) 9 
MVCOM Macro 91 

NICL (Number-in-Class List) 55, 60, 224 
Nonresident Attention Request, LISTIO 

Examples for 128 
Nonresident Attention Routines 125, 127 
Nucleus Code 52 

OC Option Table 69, 93, 135, 222 
One-Device System, I/O Table for 72 
Open Directory 27, 32, 35, 177 
Operating System, Purpose of 24 
Option Tables 69 
Organization (of Supervisor) 51 
Organization Programs 30 



Organization, System Residence 
Output, MAP 12 7 
Overhead Processor 146 



32, 33 



PC Option 


Table 


69, 92, 


222 




PERIDA Layout 232 






Phase Directory 


27, 30, 


37 




Phase Map 










Initial 


tor 129 






Terminator 130 






Phase Vector Tabl^ 


e Entry Format 197 




Phases 














Program 


Detail 


Label 


Name 


Text 


Chart (s) 


Chart (s) 


List 


$$A$IPLA 


71 


74 


270 


191 


$$A$IPL1 


71 


74 


270 


191 


$$A$IPL2 


71 


74 


271-277 


191 


$$A$SUP1 


28,90 


116-121 


386-431 


206 


$$ANERRA 


107 


122 


432,433 


208 


$$ANERRB 


107 


122 


434,435 


209 


$$ANERRD 


107 


122 


436,437 


209 


$$ANERRE 


107 


122 


438-440 


209 


$$ANERRF 


107 


122 


441-443 


209 


$$ANERRG 


107 


122 


444-446 


210 


$$ANERRH 


107 


122 


447 


210 


$$ANERRI 


107 


122 


448 


210 


$$ANERRJ 


107 


122 


449,450 


210 


$$ANERRK 


107 


122 


451 


210 


$$ANERRL 


107 


122 


439 


209 


$$ANERRM 


107 


123 


452 


211 


$$ANERRN 


107 


123 


453,454 


211 


$$ANERRO 


107 


123 


455 


211 


$$ANERRP 


107 


123 


456 


211 


$$ANERRQ 


107 


123 


457,458 


211 


$ $ANERRR 


107 


123 


459 


211 


$$ANERRS 


107 


123 


460 


212 


$$ANERRU 


107 


122 


461,462 


212 


$$ANERRV 


107 


122 


463,464 


212 


$ $ANERRX 


107 


122 


465,466 


212 


$ $ANERRY 


91,107 


124 


470,471 


213 


$$ANERRZ 


91,107 


124 


472,473 


213 


$$ANERRO 


91,107 


124 


474,475 


213 


$$ANERR1 


91,107 


None 


476 


213 


$$ANERR9 


107 


122 


467-469 


212 


$$BATTNA 


125 


132 


477-480 


215 


$$BATTNB 


125 


135 


481,482 


215 


$$BATTNC 


125 


135 


483,484 


215 


$$BATTND 


125 


135 


485-487 


216 


$$BATTNE 


125 


136 


488,489 


216 


$$BATTNF 


125 


136 


490,491 


216 


$$BATTNG 


125 


136 


492 


217 


$$BATTNH 


125 


136 


493,494 


217 


$$BATTNI 


125 


133 


495-506 
532-534 


217 


$$BATTNJ 


125 


134 


507-512 


219 


$$BATTNK 


125 


134 


513-520 


219 


$$BATTNL 


125 


134 


521-525 


220 


$$BATTNM 


125 


134 


526-530 


221 


$$BATTNN 


125 


136 


531 


221 


$$BDUMP 


125 


138 


554,555 


226 


$ $BDUMPB 


125 


140 


560-564 


228 


$$BDUMPD 


125 


140 


565-568 


229 


$$BDUMPF 


125 


140 


556-559 


226 


$ $BEO J 


92,125 


137 


535-537 


221 


$$BE0J1 


125 


138 


543,544 


224 


$$BE0J2 


125 


139 


545,54^ 


224 


$$BE0J3 


77,91, 
92,125 


137 


538 


222 
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Program 


Detail 


Label 


Name 


Text 


Chart (s) 


Chart (s) 


List 


$$BILSVC 


125 


139 


547-549 


225 


$$BLSTIO 


80 


83 


381-385 


206 


$$BOPNLB 


185 


None 


None 


None 


$$BPCHK 


125 


139 


552,553 


225 


$$BPDUMP 


125 


141 


569 


230 


$$BPDUM1 


125 


141 


570-573 


230 


$$BPSW 


125 


138 550,551,574 


225 


$$BSYSWR 


125 


None 


569 


None 


$$BTERM 


125 


137 


539-541 


222 


$IPLRT2 


75 


78 


278-292 


192 


$JOBCTLA 


27,79 


81 


293-303 


193 


$JOBCTLD 


27,79 


82,83 


304-339 


197 


$JOBCTLG 


27,80 


84-86 


340-362 


242 


$JOBCTLJ 


27,80 


87-89 


363-380 


204 


$LNKEDT 


143 


149 


575-592 


233 


$LNKEDTO 


143 


150 


593-601 


236 


$LNKEDT2 


143 


151 


602-609 


237 


$LNKEDT4 


143 


152 


610-616 


238 


$LNKEDT6 


143 


153 


617-623 


239 


$LNKEDT8 


143 


154 


624-627 


239 


$LNKEDTA 


143 


155 


628-633 


242 


$LNKEDTC 


143 


156 


634-636 


243 


$MAINEOJ 


30,177 


178 


691-695 


251 


CORGZ 


177,179 


182,183 


696-715 


251 


C0RGZ2 


179,181 


182 


716-718 


252 


DSERV 


31,184 


186 


719-727 


252 


MAINT 


29,157 


159 


637-644 


244 


MAINTA 


30,157, 
171 


174 


672-683 


248 


MAINTCL 


30,157, 
177 


178 


690 


250 


MAINTCN 


30,157, 
175 


176 


684-689 


250 


MAINTC2 


30,157, 
160 


161 


645,646 


245 


MAINTR2 


29,157, 
162 


168 


647-658 


245 


MAINTS2 


30,157, 
169 


170 


659-671 


247 


RSERV 


31,187 


188 


728-738 


254 


SSERV 


31,189 


190 


739-749 


255 


Physical 


Attention Routines 


107 




Physical 


Input/Output Control System 




(PIOCS) 


97 








Physical 


Transient Programs 


($$A) 106 


PIB (Program Information Block) 52, 


55, 



58, 116, 132, 205, 213, 223 
PIB Table 65, 66, 96, 216 
PIK (Program Interrupt Key) 46, 59, 

116, 269 
PIOCS (Physical Input/Output Control 

System) 93 
PLM Usage, Example of 4 
Printout, Sample LISTIO 261, 262 
Procedure, Task Selection 96 
Processing, Description of ESD 
Processing Programs 31 
Program 

A-Transient 90 

B- Trans lent 90 

Background vs. Foreground 

Common Library Maintenance 

Copy System 179 

Core Image Maintenance 29, 160 

Directory Service 31, 184 

Initial Program Load 27, 32, 35, 



263 



23 
29, 15E 



Job Control 27 

Librarian 28 

Librarian Maintenance 29, 157 

Librarian Organization 30, 179 

Librarian Service 31, 184 

Library Condense 30, 175 

Linkage Editor 28, 142 

Maintenance 29 

Organization 30 

Physical Transient 106 

Processing 31 

Relocatable Library, Maintenance 29, 
162 

Relocatable Library Service 31, 187 

Service 31 

Set Condense Limits 30, 177 

Source Statement Library 
Maintenance 30, 169 

Source Statement Library Service 
31, 189 

Store Condense Limits 30 

Supervisor Control 28, 90 

System Control 27, 71 

System Reallocation 30, 171 

Terminator 125, 126 

Update Transient, Foreground Program, 
Open and Library-Routine 
Directories 30, 177 
Program Check Interrupt 96 
Program Flow, Job Control 79 
Program Flow, Linkage Editor 142 
Program Keys (PIK, LTK, RIK, and FIK) 269 



PSW (Program Status Word) 

97, 102 
PUB (Physical Unit Block) 

60, 75, 97, 119, 133, 192, 

205, 214, 217, 219 
PUB Table 61, 72, 76, 192, 



71, 73, 90, 

52, 53, 59, 
193, 200, 201, 

193, 223 



71 



Reallocation Control Statements 171 
Reallocate SYSRES, Method Used by 

MAINTA to 173 
Record Formats 

System Directory 36 

System Work Area 38 
Relationship, Module Phase 142 
Relocatable Format of 

ESD Records 164 

RLD Records 166 

TXT Records 165 
Relocatable Library 27, 32, 42, 187 
Relocatable Library Directory 27, 32, 40 
Relocatable Library Directory Format 41 
Relocatable Library Format 42 
Relocatable Library Maintenance Control 

Statements 162 
Relocatable Library Maintenance 

Program 29, 162 
Relocatable Library, Module in the 
Relocatable Library Service Program 
REQID Table 58, 60, 64, 97 
Requirements, Minimum 24 
Residence, System 27 
Resident Supervisor 28, 90 
RID (Requestor Identification) 64, 
RIK (Requestor I/O Key) 106, 269 
RLD Records, Relocatable Format 166 
Routine 



163 
187 



97 



Index 
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Add 77 
Delete 77 

Nonresident Attention 127 
Physical Attention 107 
Set 77 
RSERV Control Statements 187 

Sample LISTIO Printout 261, 262 
Sense Data, I/O Error Recovery 

Procedures and 10 8 
Service Programs 31, 184 
Set Condense Limits Program 30, 177 
Set Routine 77 
Settings, Global 51 

Source Statement Library 27, 33, 43 
Source Statement Library Directory 27, 

33, 43 
Source Statement Library Directory 

Format 44 
Source Statement Library Format 45 
Source Statement Library Maintenance 

Control Statements 169 
Source Statement Library Maintenance 

Program 30, 169 
Source Statement Library Service Program 

(SSERV) 31, 189 
Status Report, System 185 
Store Condense Limits Program 30 
Stor:age Allocation 

Job Control 79 

Supervisor 54 
Storage Map 

CORGZ 179 

IPL Main 73 

Linkage Editor (Less than 14K available 
main storage) 144 

Linkage Editor (More than 14K available 
main storage) 145 

Maintenance 158 
Structure (Description of Manual) 5 
Supervisor 27, 71 

B-Type Transient Programs 125 

Call Interrupt (SVC) 90 

Calls, DOS 95 

Cancel Codes 97 

Communication Region 55-59 

Control Programs 27, 90 

Generation 46 

Generation Macros 47 

Interrupt Processors 90 

Nucleus (Resident) 28 

Organization 51 

Storage Allocation 54 

Transient (Non-Resident) 28 
Support 

Batch Job 90 

Multiprogramming 90 
SVC 90 
SVC 1 90 
SVC 2 90 
SVC 3 91 
SVC 4 91 
SVC 5 91 
SVC 6 91 
SVC 7 91 
SVC 8 92 
SVC 9 92 
SVC 10 92 



SVC 11 92 

SVC 12 92 

SVC 13 92 

SVC 14 92 

SVC 15 92 

SVC 16-21 92 

SVC 22 93 

SVC 23 93 

SVC 24 93 

SVC 25 93 

SVC 2 6 94 

SVC 27 94 

System Control Center 52, 59 

System Control Programs 27, 71 

Symbols, Description of Flowchart 260 

System Directory 27, 32, 35 

System Directory Record Formats 36 

System I/O Devices 25 

System I/O Flow 26 

System Reallocation Program 30, 171 

System Residence 27 

System Residence Organization 32, 33 

System Status Report 185 

System Work Area (Librarian Area) 27, 

32, 37 
System Work Area Record Formats 38 

Tables 

CHANQ 64 

Control Dictionary/Linkage 147 

DIB 67 

Information Blocks 52 

Interval Timer 69, 92 

I/O 52 

JIB 68, 218 

LUB 62, 72, 193, 204, 218 

LUBID 59, 60, 64, 97 

MAINTA Reallocation 172 

Operator Communications 69, 93, 
135, 222 

Option 69 

Phase Vector 196, 197 

PIB 65, 66, 96, 216 

Program Check 69, 92, 222 

PUB 61, 72, 76, 192, 196, 223 

REQID 58, 60, 64, 97 
Table Entry Format, Phase Vector 197 
Table Interrelation, I/O 60 
Task Selection Procedure 96 
TEB (Tape Error Block) 52, 53, 55, 59, 

60, 61, 63, 223 
TECB (Timer Event Control Block) 93 
Telecommunications 24, 93 
Termination (B-Transient Grouping) 12 6 
Terminator Phase Map 130 
Testing in the I/O Interrupt Processor, 

CSW 105 
Transient Areas 53 

Transient Directory 27, 32, 35, 71, 177 
Transient Programs 

Physical ($$A) 28, 90, 106 

Supervisor B-Type 28, 90, 125 
Translator Modules, Language 142 
Two-Device System, I/O Table for 72 
TXT Records, Relocatable Format of 165 

Unit Record Devices Supported by Device 
Error Recovery 108 
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Usage, Example of PLM 4 
Use of Autolink Feature 148 
Use of Linkage Table and Control 

Dictionary 147 
Update Sub-Directories Program 30, 177 
Update Transient, Foreground Program, 

Open and Library-Routine Directories 

Program (See preceding entry) 



Volume Area (Label Storage Area) 27 



WAIT Macro 


87 




Work Area, 


System 27, 


32, 37 


Word 






Channel 


Address, CAW 


97, 103 


Channel 


Command , CCW 


97, 100 


Channel 


Status, CSW 


97, 104 


Program 


Status, PSW 


97, 102 
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